Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  772 1762 (N48E37 L=293)   633    118        1 ( 721/1733- 826/1793)  26.6 E41-E32 N44-N51
      2 1805 1430 (N36W67 L= 37)  2027    217        3 (1755/1341-1835/1522)  85.6 W62-W74 N29-N42
      3  351 1466 (N20E58 L=272)   889    159        3 ( 298/1417- 409/1505)  41.2 E62-E53 N16-N23
      4 1445 1358 (N27W25 L=355)   860    168        1 (1422/1277-1474/1440)  79.7 W23-W28 N21-N32
      5  266 1311 (N10E60 L=269)   951    155        4 ( 218/1262- 323/1358)  29.1 E65-E54 N06-N12
      6 1802 1218 (N21W57 L= 27)   585    136        1 (1755/1176-1847/1271) -21.8 W52-W62 N18-N24
      7 1272 1199 (N14W14 L=344)  1042    288        1 (1165/1158-1394/1233)  19.7 W06-W21 N10-N17
      8  303 1134 (S00E52 L=278)   364     66        2 ( 268/1123- 345/1149)   0.0 E55-E47 S01-N00
      9 1835 1115 (N15W60 L= 30)   437     70        1 (1808/1086-1864/1133)  23.2 W56-W64 N12-N16
     10  209  854 (S19E62 L=268)   488     78        1 ( 188/ 812- 236/ 892) -45.0 E64-E58 S21-S16
     11  981  715 (S18W01 L=331)   936    410        2 ( 913/ 565-1040/ 872) -69.8 E04-W05 S27-S08
     12  360  738 (S25E46 L=284)   347     72        1 ( 336/ 708- 376/ 767)  63.4 E47-E43 S26-S22
     13 1635  532 (S23W54 L= 23)  1997    377        0 (1525/ 440-1741/ 673)  62.1 W46-W59 S30-S13
     14 1013  306 (S48W11 L=341)  1821    356        4 ( 962/ 172-1069/ 445) -81.9 W05-W16 S64-S36
  

    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