Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1443 1710 (N32W53 L=247)   913    185        2 (1379/1688-1511/1728) -21.8 W47-W58 N29-N34
      2 1689 1550 (N15W63 L=257)   929    183        4 (1645/1504-1724/1590) -56.3 W59-W67 N11-N17
      3 1025 1432 (N29W12 L=206)   295     77        0 ( 985/1405-1061/1461)   0.0 W09-W15 N28-N30
      4 1475 1411 (N15W38 L=232)  2795    699        5 (1155/1372-1713/1439) -27.8 W19-W57 N05-N24
      5  716 1251 (N27E12 L=181)   554    148        1 ( 681/1182- 749/1317) -90.0 E13-E10 N22-N31
      6 1861 1199 (S09W62 L=256)  2379    369        8 (1820/1098-1913/1263)  84.8 W57-W72 S15-S04
      7 1128 1137 (N10W09 L=203)   391    138        2 (1112/1063-1151/1210)  54.5 W06-W11 N06-N13
      8 1818 1106 (S13W54 L=248)   685    127        2 (1789/1058-1846/1156) -81.9 W50-W56 S16-S09
      9 1745 1128 (S09W48 L=242)   421    100        2 (1722/1101-1771/1151)   0.0 W45-W50 S10-S06
     10 1679 1059 (S10W40 L=234)   437     95        0 (1658/ 998-1695/1101)  74.1 W39-W42 S14-S07
     11 1170 1013 (N02W08 L=201)   449     81        2 (1120/ 992-1218/1040) -45.0 W05-W10 N00-N04
     12  321  948 (N19E47 L=146)   388     76        0 ( 309/ 904- 335/ 990)  59.0 E49-E45 N16-N21
     13 1527  792 (S21W23 L=217)  1927    421        3 (1418/ 628-1575/ 941) -90.0 W19-W26 S31-S09
     14  457  550 (S07E50 L=144)   576     99        3 ( 421/ 514- 509/ 589) -56.3 E52-E46 S09-S03
     15  694  483 (S16E36 L=158)   700    262        1 ( 648/ 393- 738/ 576)  45.0 E42-E30 S20-S10
     16  271  530 (S05E71 L=123)   762    109        0 ( 244/ 507- 305/ 562) -31.0 E74-E66 S07-S03
     17  430  489 (S10E55 L=139)   331    119        0 ( 410/ 457- 462/ 542)  80.5 E56-E52 S12-S06
     18  926  344 (S31E28 L=166)  1327    338        3 ( 793/ 294-1012/ 446)  13.4 E39-E18 S34-S26
     19  704  224 (S34E51 L=143)   753    187        3 ( 682/ 187- 734/ 265)  33.7 E56-E47 S37-S31
  

    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