Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1585 1709 (N27W66 L=140)   668     62        2 (1560/1680-1617/1730)   0.0 W61-W72 N25-N28
      2 1406 1621 (N27W43 L=117)   463     95        0 (1363/1591-1451/1645) -45.0 W40-W45 N24-N29
      3 1712 1578 (N16W67 L=140)  1246    194        5 (1632/1525-1755/1630) -53.1 W61-W73 N12-N20
      4 1684 1521 (N14W59 L=132)   521     78        2 (1657/1477-1710/1558)  80.5 W56-W60 N10-N16
      5 1338 1421 (N18W29 L=102)   947    302        3 (1218/1348-1454/1513) -61.9 W24-W34 N11-N26
      6  993 1401 (N25W08 L= 81)  2094    601        5 ( 749/1290-1253/1457) -32.2 E07-W20 N12-N32
      7 1527 1396 (N12W40 L=114)   387     55        1 (1499/1362-1556/1418)  76.0 W38-W42 N09-N13
      8  256 1401 (N44E55 L= 19)   383     54        1 ( 232/1383- 288/1417)   0.0 E58-E49 N43-N45
      9  896 1253 (N19E02 L= 72)   315    135        0 ( 832/1239- 965/1266) -33.7 E05-W01 N17-N21
     10 1618 1148 (S04W38 L=112)   431    127        0 (1604/1082-1651/1191)  51.3 W36-W41 S07-S01
     11 1892 1019 (S19W61 L=135)  1824    157        2 (1830/ 971-1967/1058)  -2.5 W52-W76 S20-S16
     12 1217  926 (S06W08 L= 82)   184      9        1 (1198/ 908-1235/ 946) -90.0 W07-W09 S07-S04
     13 1207  857 (S10W06 L= 80)   429    130        0 (1148/ 832-1254/ 903)   8.1 W02-W09 S10-S08
     14 1851  811 (S31W55 L=129)   722    146        0 (1794/ 768-1903/ 864)   7.6 W47-W62 S31-S28
     15  712  791 (S02E23 L= 51)   208     86        0 ( 675/ 767- 751/ 809) -53.1 E24-E21 S04-N00
     16  772  724 (S07E21 L= 52)   937    224        4 ( 707/ 665- 843/ 798)  24.4 E26-E15 S10-S04
     17  307  728 (N03E54 L= 20)  1371    168        3 ( 240/ 666- 379/ 783) -20.0 E60-E49 S02-N05
     18  642  694 (S06E30 L= 44)   517    119        3 ( 603/ 638- 684/ 742)  80.5 E32-E26 S09-S03
     19 1051  641 (S18E08 L= 66)   470    162        1 ( 970/ 617-1122/ 677) -12.5 E12-E03 S19-S16
     20  277  627 (S03E61 L= 12)   645     82        2 ( 243/ 604- 312/ 649)   6.3 E66-E57 S03-S01
     21  312  562 (S07E61 L= 13)  1307    118        4 ( 277/ 515- 344/ 605) -90.0 E65-E55 S10-S04
     22  472  521 (S13E49 L= 25)  1309    223        4 ( 405/ 473- 569/ 601) -45.0 E52-E42 S16-S06
     23  905  474 (S25E22 L= 52)  1676    455        2 ( 772/ 423-1077/ 600) -40.9 E28-E10 S28-S14
     24  254  551 (S07E69 L=  4)   549     74        2 ( 232/ 516- 281/ 585) -90.0 E72-E67 S09-S04
     25  329  466 (S13E66 L=  7)  2515    209        6 ( 251/ 414- 415/ 510) -33.7 E77-E59 S17-S09
     26  722  299 (S32E43 L= 30)  3619    359        6 ( 650/ 130- 790/ 450)  33.0 E74-E35 S45-S21
  

    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