Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1216 1662 (N39W35 L=351)   326     59        1 (1190/1631-1243/1680)  76.0 W33-W37 N36-N40
      2 1661 1612 (N21W67 L= 23)  1358    177        2 (1587/1586-1745/1641) -10.9 W58-W84 N17-N24
      3  993 1468 (N33W10 L=326)   210     91        0 ( 967/1440-1029/1510) -78.7 W09-W11 N30-N36
      4  647 1381 (N37E16 L=300)   261     57        1 ( 628/1351- 675/1404)  26.6 E17-E13 N35-N38
      5 1781 1136 (S07W52 L=  8)   318     35        1 (1760/1120-1804/1158) -56.3 W49-W53 S08-S05
      6 1734 1017 (S12W45 L=  1)   577    146        4 (1697/ 952-1768/1071) -90.0 W42-W46 S15-S08
      7  140  988 (N21E70 L=246)   789     92        0 ( 125/ 948- 161/1041) -78.7 E72-E66 N19-N24
      8 1581  938 (S12W31 L=347)   599    132        1 (1563/ 878-1599/1012)  60.3 W28-W33 S15-S07
      9  191  843 (N12E65 L=251)  1621    207       10 ( 146/ 763- 232/ 904)  42.0 E73-E59 N07-N16
     10  947  774 (S05E10 L=306)   438    189        0 ( 925/ 684- 979/ 852)  56.3 E12-E06 S10-S01
     11  444  616 (S04E47 L=269)   328     53        0 ( 422/ 591- 473/ 636)  21.8 E49-E44 S05-S03
     12 1269  476 (S32W01 L=317)  1290    235        3 (1192/ 389-1342/ 565)  36.9 E06-W07 S36-S26
     13  747  456 (S20E32 L=284)   695    108        1 ( 722/ 404- 777/ 513)  66.8 E34-E29 S23-S16
     14  940  439 (S26E21 L=295)   492    100        0 ( 900/ 400- 978/ 478)  20.6 E24-E16 S27-S23
     15  750  200 (S39E51 L=265)   464     40        0 ( 731/ 182- 771/ 219)  63.4 E53-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