Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1445 1712 (N32W54 L=247)   990    189        2 (1384/1688-1515/1731) -20.0 W48-W59 N28-N34
      2 1687 1563 (N15W64 L=257)   674    127        2 (1654/1530-1714/1591) -59.0 W60-W68 N12-N17
      3 1026 1433 (N29W12 L=206)   340     91        1 ( 977/1409-1072/1463)   0.0 W08-W16 N28-N30
      4 1502 1416 (N14W40 L=234)  2689    557        6 (1250/1376-1715/1446) -20.9 W23-W57 N06-N20
      5  723 1263 (N28E12 L=182)   544    131        1 ( 685/1212- 774/1320) -82.9 E13-E08 N24-N32
      6 1862 1202 (S09W63 L=256)  2217    340        6 (1817/1101-1911/1264)  84.3 W57-W72 S15-S04
      7 1158 1072 (N06W09 L=202)   867    277        3 (1122/ 995-1233/1210)  85.6 W05-W12 N00-N13
      8 1823 1107 (S13W54 L=248)   682    126        4 (1793/1059-1852/1159) -90.0 W50-W57 S16-S09
      9 1768 1081 (S12W48 L=242)  1109    306        4 (1725/ 972-1832/1150) -81.3 W44-W52 S20-S07
     10 1688 1054 (S11W41 L=234)   562     98        3 (1666/1002-1709/1105)  81.9 W38-W43 S14-S07
     11  327  949 (N19E47 L=146)   386     60        0 ( 314/ 908- 341/ 992)  78.7 E48-E45 N16-N21
     12 1539  788 (S21W24 L=217)  1833    410        3 (1440/ 631-1579/ 942) -90.0 W20-W26 S31-S09
     13  465  550 (S07E49 L=144)   680    120        1 ( 425/ 516- 522/ 595) -60.3 E51-E45 S10-S03
     14  278  531 (S05E70 L=123)  1014    166        2 ( 242/ 504- 333/ 571) -16.7 E74-E62 S07-S02
     15  697  475 (S17E36 L=158)   624    252        0 ( 652/ 395- 740/ 566)  33.7 E42-E29 S20-S10
     16  430  495 (S10E55 L=139)   327    115        0 ( 414/ 459- 463/ 543) -90.0 E56-E51 S12-S06
     17  489  486 (S11E50 L=143)   471     85        0 ( 450/ 464- 533/ 517) -38.7 E52-E46 S13-S08
     18  843  306 (S32E35 L=158)  2327    623        4 ( 684/ 186-1018/ 452)  16.1 E56-E18 S37-S25
     19  574  380 (S20E49 L=144)   348     82        0 ( 532/ 366- 605/ 393) -26.6 E52-E46 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