Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  979 1575 (N42W12 L=255)   577    113        4 ( 932/1540-1013/1612)   0.0 W08-W15 N38-N43
      2 1690 1526 (N18W61 L=304)   797    127        1 (1658/1470-1712/1562)  71.6 W58-W64 N14-N20
      3 1119 1514 (N34W19 L=262)   231     79        0 (1086/1475-1147/1541) -68.2 W17-W20 N30-N36
      4 1486 1324 (N13W36 L=278)   327    101        2 (1438/1307-1535/1346) -26.6 W32-W38 N11-N15
      5  529 1173 (N26E29 L=214)  2342    568        5 ( 333/1086- 755/1257) -28.1 E44-E14 N16-N33
      6  265 1137 (N27E52 L=191)   404     72        0 ( 252/1110- 289/1173)  76.0 E52-E49 N25-N29
      7 1834  940 (S18W54 L=296)  2093    323        3 (1766/ 817-1876/1080)  42.9 W45-W61 S24-S11
      8  882 1030 (N10E08 L=234)   235     55        1 ( 860/1005- 909/1055)  45.0 E09-E06 N08-N11
      9  212  887 (N13E61 L=181)   880    162        3 ( 167/ 835- 250/ 935) -50.2 E65-E57 N09-N15
     10  979  791 (S05E08 L=235)   350    132        2 ( 913/ 760-1049/ 815)   0.0 E11-E03 S06-S04
     11 1512  726 (S22W24 L=266)   243     90        0 (1490/ 688-1526/ 781)  63.4 W21-W25 S24-S18
     12 1386  644 (S24W14 L=256)   622    132        2 (1348/ 583-1417/ 698)  82.9 W11-W16 S27-S19
     13  289  560 (S08E66 L=177)   997    144        1 ( 243/ 487- 334/ 627) -73.3 E68-E63 S13-S03
     14 1665  550 (S40W36 L=278)   405     91        0 (1633/ 533-1692/ 566) -23.2 W32-W39 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