Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1434 1730 (N32W54 L=101)   771    187        2 (1377/1693-1494/1753)  -9.5 W47-W59 N30-N33
      2  998 1237 (N18W04 L= 52)   738    211        3 ( 906/1213-1129/1262) -32.5 W00-W11 N14-N22
      3 1503 1200 (N02W32 L= 80)   449    101        2 (1460/1172-1536/1230)   8.1 W28-W35 N00-N04
      4 1848 1139 (S13W58 L=106)   890    136        1 (1828/1081-1864/1210)  45.0 W54-W62 S15-S08
      5 1902 1160 (S14W65 L=113)   865    139        3 (1879/1126-1932/1203)  38.7 W61-W69 S15-S11
      6 1713  996 (S15W41 L= 89)   306     86        0 (1701/ 951-1725/1042)  59.0 W39-W43 S18-S13
      7 1036  880 (S02E03 L= 45)   428    190        0 (1009/ 799-1089/ 972)  77.5 E04-W00 S07-N02
      8  793  889 (N05E16 L= 31)   217     62        0 ( 756/ 867- 834/ 910) -45.0 E18-E14 N02-N06
      9 1652  735 (S29W31 L= 79)  1433    288        2 (1546/ 670-1722/ 851)   7.1 W22-W38 S32-S23
     10 1186  799 (S11W03 L= 51)   426    165        2 (1102/ 756-1264/ 842) -12.5 E02-W08 S12-S08
     11  286  672 (N03E60 L=348)  1480    379        5 ( 198/ 618- 369/ 744)   2.7 E70-E49 N00-N06
     12 1231  642 (S21W01 L= 49)   394    146        2 (1216/ 573-1257/ 709)  63.4 E01-W04 S25-S17
     13  869  487 (S20E25 L= 23)   229     54        2 ( 837/ 467- 891/ 506) -45.0 E26-E22 S21-S18
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y