Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1083 1424 (N30W06 L=299)   726    229        2 (1052/1331-1128/1496)  79.7 W03-W09 N23-N34
      2 1651 1449 (N27W52 L=346)   446     81        0 (1619/1415-1676/1483) -63.4 W49-W54 N25-N29
      3  262 1410 (N29E66 L=228)   755    145        0 ( 232/1347- 314/1450)  49.4 E69-E59 N25-N32
      4  277 1347 (N25E60 L=234)   576     81        1 ( 254/1306- 304/1380)  68.2 E62-E57 N22-N27
      5 1166 1319 (N22W11 L=304)   322     81        0 (1120/1307-1213/1332)  -9.5 W07-W13 N21-N23
      6  352 1114 (N11E47 L=247)   770    224        2 ( 308/1035- 414/1177)  82.9 E51-E41 N06-N14
      7 1745  854 (S10W51 L=344)   530     68        0 (1719/ 822-1769/ 877)  45.0 W48-W53 S12-S08
      8 1020  819 (S08E01 L=293)   384     71        4 ( 996/ 782-1054/ 855) -68.2 E02-W01 S10-S05
      9  832  790 (S10E13 L=281)   252     69        0 ( 817/ 759- 847/ 828)  76.0 E13-E11 S11-S07
     10 1300  751 (S14W17 L=310)   254     97        0 (1283/ 710-1314/ 799)  80.5 W15-W17 S16-S10
     11  298  690 (S16E56 L=237)   441     84        1 ( 276/ 661- 327/ 726) -90.0 E59-E52 S17-S13
     12 1669  605 (S26W48 L=342)   780    119        1 (1644/ 575-1710/ 650) -39.8 W44-W52 S28-S23
     13 1671  493 (S35W54 L=348)   661     62        1 (1637/ 463-1701/ 521)  53.1 W49-W58 S37-S33
  

    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