Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  653 1769 (N32E49 L=  1)   381     56        1 ( 622/1752- 680/1787)   0.0 E51-E44 N31-N33
      2 1216 1759 (N45E06 L= 43)   390     68        1 (1190/1736-1249/1783)  63.4 E07-E03 N42-N48
      3  452 1681 (N23E60 L=349)  2403    152       10 ( 393/1628- 508/1756) -55.0 E71-E53 N18-N29
      4 1470 1490 (N32W19 L= 68)  1744    419        2 (1299/1377-1598/1592) -16.3 W04-W29 N27-N35
      5 1099 1402 (N16E04 L= 45)   239     81        0 (1070/1372-1133/1435) -21.8 E06-E01 N15-N17
      6  629 1245 (S02E28 L= 21)   237     19        0 ( 608/1223- 647/1271) -71.6 E29-E26 S03-N00
      7 1793 1039 (N12W50 L=100)  2672    572        5 (1719/ 764-1838/1261) -60.0 W40-W57 S03-N23
      8  469  902 (S25E34 L= 16)   579    186        0 ( 436/ 815- 487/ 990)  84.8 E35-E32 S30-S19
      9 1852  942 (N09W59 L=108)   380     41        1 (1833/ 920-1876/ 965)  90.0 W56-W61 N07-N10
     10  397  937 (S24E40 L=  9)   332     31        1 ( 373/ 912- 422/ 960) -33.7 E41-E37 S25-S22
     11  151  839 (S32E70 L=339)  1113    123        1 ( 129/ 772- 184/ 887)  25.0 E78-E63 S36-S29
     12  508  638 (S41E29 L= 20)   272     72        0 ( 472/ 614- 542/ 652)  29.7 E32-E25 S43-S39
     13 1461  504 (S26W43 L= 92)  1398    313        3 (1310/ 429-1574/ 586)   0.0 W29-W56 S27-S23
     14 1461  343 (S35W56 L=105)  1003    124        2 (1414/ 321-1530/ 376)   4.1 W48-W63 S37-S33
     15 1363  292 (S41W53 L=102)   376     24        0 (1345/ 267-1381/ 317) -23.2 W49-W56 S42-S39
  

    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