Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1216 1661 (N39W35 L=351)   328     54        1 (1190/1630-1241/1678)  76.0 W33-W37 N36-N40
      2 1664 1613 (N21W67 L= 23)  1209    188        0 (1587/1588-1750/1642) -12.5 W58-W86 N17-N24
      3 1021 1453 (N32W11 L=328)   352    157        2 ( 964/1412-1086/1512) -66.0 W09-W14 N27-N36
      4  647 1382 (N37E16 L=300)   270     63        0 ( 626/1350- 674/1405)  26.6 E17-E13 N35-N38
      5 1656 1345 (N08W49 L=  5)   302     78        1 (1635/1301-1672/1381)  78.7 W47-W49 N05-N10
      6 1778 1135 (S07W51 L=  8)   307     34        1 (1759/1117-1800/1158) -56.3 W49-W53 S08-S05
      7 1732 1022 (S12W44 L=  1)   479    116        2 (1693/ 969-1765/1066) -60.3 W42-W46 S15-S08
      8  183  876 (N14E65 L=251)  2281    310       10 ( 123/ 761- 236/1044) -73.6 E73-E59 N07-N24
      9 1579  936 (S12W31 L=347)   581    128        1 (1560/ 879-1597/1011)  60.3 W28-W33 S14-S07
     10  946  778 (S05E10 L=306)   410    178        0 ( 923/ 696- 976/ 851)  58.0 E12-E06 S09-S01
     11  442  615 (S04E47 L=269)   307     49        0 ( 421/ 594- 467/ 635)  21.8 E49-E44 S05-S03
     12 1269  477 (S32W01 L=317)  1249    241        2 (1194/ 390-1341/ 564)  33.7 E05-W07 S36-S27
     13  747  455 (S20E32 L=284)   667    107        2 ( 721/ 403- 779/ 511)  76.0 E34-E29 S24-S16
     14  940  439 (S25E21 L=296)   480     80        0 ( 903/ 401- 972/ 477)  29.7 E24-E17 S27-S23
     15  749  200 (S39E51 L=265)   469     38        0 ( 730/ 183- 771/ 220) -90.0 E54-E48 S41-S37
  

    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