Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  608 1734 (N25E50 L=192)   838    178        0 ( 556/1659- 638/1797) -54.0 E57-E48 N19-N30
      2  378 1567 (N10E59 L=184)   764     89        2 ( 341/1529- 413/1606)  78.7 E61-E55 N07-N13
      3 1146 1455 (N20E04 L=239)   219     77        0 (1115/1422-1183/1481)  68.2 E05-E02 N17-N22
      4  222 1302 (S08E63 L=180)  4515    406       17 ( 162/1141- 294/1431) -60.6 E71-E53 S16-N00
      5 1853 1320 (N35W54 L=297)   497     51        1 (1823/1296-1885/1340)   6.3 W49-W60 N33-N36
      6  338 1268 (S08E50 L=193)   711    152        1 ( 271/1226- 409/1296)  20.0 E55-E44 S10-S05
      7 1660 1149 (N17W35 L=278)   305     97        2 (1614/1136-1705/1169)  35.5 W31-W38 N14-N19
      8  644 1116 (S11E24 L=219)   380     98        0 ( 617/1065- 669/1168) -45.0 E26-E21 S13-S08
      9 1343  989 (S01W19 L=261)   204     65        0 (1324/ 957-1358/1027) -33.7 W16-W20 S02-N00
     10  958  978 (S11E03 L=240)   177    101        0 ( 941/ 944- 992/1022) -45.0 E03-W00 S12-S08
     11 1349  585 (S22W32 L=275)   272    116        0 (1314/ 540-1384/ 629) -20.6 W28-W36 S23-S20
     12 1628  538 (S16W54 L=297)   867    129        2 (1571/ 506-1671/ 603) -74.1 W50-W58 S19-S12
     13  951  388 (S46W17 L=260)  2100    440        2 ( 779/ 290-1140/ 474)   1.6 W00-W36 S49-S43
  

    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