Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1572 1555 (N29W53 L= 65)   598     97        1 (1532/1519-1616/1584) -38.7 W48-W56 N26-N31
      2  454 1300 (N30E38 L=334)  1754    403        3 ( 417/1145- 532/1469) -65.6 E43-E31 N19-N41
      3 1186 1406 (N27W17 L= 29)   284    126        0 (1170/1351-1215/1457)  81.9 W15-W18 N23-N30
      4 1673 1380 (N17W53 L= 65)   475    141        2 (1631/1318-1713/1427) -69.4 W50-W54 N12-N20
      5 1335 1123 (N08W21 L= 33)   203     93        0 (1304/1085-1356/1163)  45.0 W17-W22 N05-N09
      6  402 1051 (N14E42 L=330)   300     61        0 ( 385/1018- 423/1072)  71.6 E43-E40 N12-N15
      7 1565  996 (S04W34 L= 46)   454    153        1 (1539/ 929-1608/1057)  54.5 W32-W38 S07-N00
      8 1843  881 (S16W59 L= 72)   488     97        0 (1831/ 835-1854/ 930) -80.5 W57-W61 S19-S13
      9 1761  864 (S16W50 L= 62)   675     93        0 (1725/ 835-1796/ 903)  15.9 W46-W53 S17-S13
     10  191  764 (S03E69 L=303)   835    118        2 ( 162/ 707- 220/ 808)  26.6 E78-E63 S06-N00
     11  666  560 (S19E30 L=342)   343     88        1 ( 635/ 540- 714/ 583) -31.0 E32-E27 S20-S16
     12  605  513 (S21E37 L=336)   287     69        2 ( 574/ 494- 644/ 527)   0.0 E39-E33 S22-S20
     13 1011  497 (S27E09 L=  4)   386    153        1 ( 938/ 483-1077/ 520)   0.0 E13-E03 S28-S26
     14  642  456 (S26E36 L=336)   304     63        1 ( 615/ 434- 675/ 478) -26.6 E37-E33 S27-S23
     15  623  393 (S30E41 L=331)   354     71        1 ( 606/ 361- 647/ 427)  80.5 E42-E39 S33-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