Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  884 1860 (N42E45 L=150)  1103    141        1 ( 826/1816- 942/1897)   4.4 E53-E36 N39-N44
      2 1138 1632 (N32E12 L=183)  1350    231        0 (1066/1536-1189/1724) -32.7 E21-E06 N26-N36
      3  574 1682 (N20E52 L=143)   544     81        1 ( 546/1656- 603/1713)  -8.1 E55-E48 N18-N22
      4  792 1556 (N17E29 L=165)   579    168        0 ( 751/1509- 859/1612) -24.0 E33-E24 N15-N20
      5  726 1495 (N12E31 L=164)   474    134        0 ( 683/1449- 779/1544) -18.4 E35-E26 N10-N13
      6  409 1318 (S05E46 L=148)   864    220        2 ( 377/1223- 440/1421) -74.7 E50-E43 S11-N00
      7 1562 1289 (N24W25 L=220)   886    253        0 (1516/1198-1587/1401) -77.0 W20-W27 N17-N30
      8  514 1255 (S07E37 L=158)   838    259        0 ( 434/1169- 569/1359)  72.9 E40-E34 S13-N00
      9 1733 1287 (N30W39 L=234)   729    155        0 (1693/1211-1755/1341) -40.6 W34-W42 N26-N32
     10 1011 1276 (N07E08 L=187)   576    176        0 ( 965/1222-1091/1311)  54.5 E09-E03 N02-N09
     11  184  864 (S37E64 L=131)   865    150        0 ( 138/ 828- 244/ 904)  16.7 E74-E54 S39-S33
     12 1236  809 (S12W18 L=213)   195    117        0 (1193/ 788-1284/ 828)   9.5 W15-W21 S13-S11
     13 1002  670 (S27W09 L=204)   412     91        1 ( 961/ 651-1055/ 693)  18.4 W06-W12 S28-S25
     14 1470  349 (S29W58 L=253)   933    123        1 (1400/ 329-1528/ 379)  17.1 W51-W64 S31-S27
  

    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