Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  798 1398 (N34E03 L= 96)   286     59        0 ( 765/1379- 839/1414)   0.0 E05-W00 N32-N34
      2 1687 1291 (N01W49 L=148)   321     79        0 (1660/1244-1711/1327) -76.0 W47-W49 S01-N03
      3  892 1206 (N20E03 L= 96)   260     77        2 ( 870/1158- 916/1248)  45.0 E04-W00 N17-N21
      4 1868 1201 (S10W63 L=162)   782    172        3 (1838/1171-1896/1245)  14.0 W58-W67 S11-S08
      5 1547 1116 (S03W33 L=132)   916    220        2 (1520/1017-1592/1235)  71.6 W30-W36 S10-N02
      6 1880 1073 (S17W59 L=158)   836    174        3 (1844/1027-1904/1130)  20.6 W54-W63 S19-S14
      7  328  940 (N18E47 L= 52)   363    153        0 ( 277/ 908- 380/ 982) -40.6 E50-E43 N15-N21
      8 1764  807 (S29W42 L=141)  1178    271        0 (1730/ 681-1803/ 935)  60.3 W39-W47 S36-S21
      9  727  815 (N02E22 L= 77)   201     29        1 ( 711/ 791- 750/ 838)  18.4 E23-E20 N00-N03
     10 1228  599 (S23E00 L= 99)   746    237        2 (1175/ 521-1262/ 733)  50.7 E05-W05 S27-S15
     11 1031  643 (S15E10 L= 89)   395    182        1 (1014/ 559-1066/ 722)  52.1 E12-E05 S20-S11
     12  344  618 (S01E56 L= 43)   549    106        2 ( 330/ 573- 363/ 665)  38.7 E59-E52 S03-N02
     13  980  399 (S29E22 L= 77)  1025    252        1 ( 890/ 357-1056/ 474)  -4.8 E26-E14 S32-S24
  

    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