Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1048 1719 (N36E16 L= 89)   741    130        1 ( 978/1684-1105/1753)  -5.7 E21-E11 N34-N37
      2  410 1566 (N14E55 L= 50)   338     56        2 ( 384/1547- 433/1594)  11.3 E57-E52 N12-N15
      3 1254 1506 (N26W03 L=108)   370    108        0 (1213/1464-1291/1553)  76.0 W01-W05 N22-N30
      4 1517 1505 (N33W22 L=126)  1540    430        2 (1305/1442-1665/1541)   8.1 W06-W34 N29-N37
      5 1109 1253 (N07W00 L=105)   313     88        0 (1066/1230-1157/1272)  36.9 E02-W02 N05-N09
      6  214 1227 (S09E60 L= 44)   372     82        1 ( 191/1189- 239/1259)  59.0 E62-E58 S11-S06
      7  339 1134 (S13E46 L= 58)   452    104        3 ( 286/1106- 393/1158)  -5.7 E51-E41 S13-S11
      8 1837 1091 (N16W53 L=158)   782     96        0 (1796/1046-1875/1138) -12.5 W48-W58 N14-N18
      9  914  966 (S13E05 L=100)   942    504        0 ( 707/ 886-1104/1044)  35.0 E16-W05 S20-S05
     10  324  951 (S24E46 L= 59)   334     72        0 ( 282/ 934- 359/ 970)  15.9 E49-E42 S24-S22
     11 1867  871 (N05W61 L=166)   995    186        0 (1843/ 775-1880/ 960) -66.0 W58-W64 N00-N10
     12 1152  831 (S15W12 L=116)   180     73        0 (1128/ 790-1175/ 855)  76.0 W10-W12 S17-S13
     13 1309  720 (S18W24 L=128)   208     39        1 (1287/ 700-1334/ 739)   0.0 W22-W25 S19-S16
     14 1174  670 (S24W17 L=122)   303    114        0 (1118/ 651-1223/ 692)   8.1 W13-W20 S24-S21
     15 1790  590 (S12W67 L=171)   937    113        2 (1738/ 546-1824/ 624)  50.2 W63-W72 S15-S09
  

    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