Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  974 1846 (N60W37 L=263)   385     50        1 ( 954/1823- 998/1868)   5.7 W32-W42 N58-N61
      2 1705 1597 (N18W70 L=296)   723     33        0 (1677/1576-1732/1613)  -6.3 W66-W76 N16-N19
      3 1241 1347 (N19W21 L=247)   633    215        1 (1141/1314-1331/1369) -18.4 W14-W26 N15-N21
      4 1271 1189 (N10W18 L=244)   283    127        1 (1235/1136-1305/1240)  29.7 W14-W21 N07-N11
      5  217  961 (N20E59 L=167)   547    101        1 ( 180/ 925- 266/ 990) -21.8 E63-E53 N17-N22
      6  637  916 (N10E25 L=201)   264     51        0 ( 608/ 889- 664/ 939) -56.3 E26-E23 N07-N11
      7  299  884 (N14E51 L=174)   295     69        0 ( 288/ 842- 307/ 921)  78.7 E52-E50 N11-N16
      8 1705  610 (S38W37 L=263)  1086    225        1 (1620/ 544-1806/ 681)   5.4 W28-W49 S39-S35
      9  579  608 (S07E37 L=188)   358     66        2 ( 547/ 574- 607/ 636) -68.2 E39-E35 S09-S04
     10 1367  583 (S28W09 L=235)   269     60        0 (1351/ 558-1396/ 617) -76.0 W08-W10 S29-S25
     11  759  572 (S13E27 L=198)   250     52        0 ( 731/ 552- 790/ 592)  11.3 E29-E24 S13-S11
     12  832  507 (S18E25 L=201)   558    165        1 ( 801/ 453- 876/ 566) -90.0 E27-E21 S21-S13
     13  959  499 (S22E18 L=208)   475    125        0 ( 911/ 466- 995/ 556)  26.6 E21-E13 S23-S18
     14  701  476 (S17E35 L=191)   254     66        0 ( 679/ 454- 725/ 500)  26.6 E36-E32 S18-S15
     15 1506  445 (S43W17 L=243)   472     75        1 (1470/ 425-1540/ 471)   8.1 W13-W20 S44-S41
     16  462  335 (S22E64 L=162)  2670    175        3 ( 424/ 255- 493/ 408)  37.4 E76-E54 S29-S16
     17 1345  324 (S47W01 L=227)  1232    180        2 (1253/ 291-1418/ 378)  -7.6 E07-W08 S49-S43
     18  879  270 (S36E34 L=191)   552    112        1 ( 847/ 224- 900/ 327)  35.0 E40-E29 S39-S31
     19  652  291 (S29E50 L=176)   394     55        1 ( 627/ 263- 675/ 311) -71.6 E52-E47 S30-S26
  

    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