Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1329 1687 (N42W01 L=270)  1300    190        1 (1291/1618-1383/1746) -70.0 E02-W05 N37-N48
      2  718 1525 (N15E31 L=237)  1146    275        0 ( 692/1421- 743/1645) -51.8 E37-E26 N08-N22
      3  987 1600 (N26E18 L=251)   366     93        0 ( 970/1549-1001/1644) -50.2 E20-E15 N22-N28
      4 1420 1554 (N35W11 L=280)   441    113        0 (1372/1537-1478/1571)  14.0 W07-W15 N32-N37
      5  280 1470 (N04E65 L=204)   929    147        2 ( 237/1432- 321/1493)   5.7 E70-E59 N01-N05
      6 1334 1412 (N23W09 L=277)   340     57        0 (1316/1373-1348/1447) -68.2 W06-W10 N20-N25
      7  837 1337 (N06E18 L=250)   718    135        0 ( 759/1295- 900/1397) -10.3 E24-E13 N04-N07
      8 1324 1140 (N07W14 L=283)  1064    269        1 (1291/1004-1355/1269) -58.4 W09-W18 N00-N13
      9  164 1137 (S17E64 L=205)  4905    800        8 ( 104/1024- 249/1237)  77.0 E72-E56 S24-S10
     10  499  921 (S25E30 L=238)   803    264        0 ( 389/ 883- 601/ 971)  31.0 E38-E23 S29-S19
     11  196  810 (S37E56 L=212)  1273    372        1 ( 135/ 761- 284/ 851)  20.6 E63-E47 S40-S33
     12 1886  758 (N03W70 L=339)   858    130        1 (1865/ 724-1905/ 808) -51.3 W67-W73 N01-N06
     13 1503  597 (S18W42 L=310)   275     79        0 (1466/ 586-1545/ 607)  31.0 W39-W44 S19-S16
     14 1576  483 (S21W53 L=321)  1082    121        0 (1518/ 432-1619/ 549)  83.7 W50-W54 S25-S16
  

    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