Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  671 1733 (N58E10 L=247)  3460    570        3 ( 458/1623- 862/1837)   6.6 E36-W16 N54-N62
      2 1562 1671 (N27W59 L=316)  1090     97        4 (1535/1633-1589/1719)  36.9 W55-W66 N24-N30
      3 1643 1594 (N21W61 L=318)  4806    355       15 (1541/1469-1749/1691)  86.4 W50-W74 N11-N27
      4 1507 1568 (N23W47 L=304)   459    106        1 (1481/1518-1538/1613)  63.4 W45-W48 N19-N25
      5  288 1381 (N40E51 L=206)  1305    141        1 ( 263/1302- 324/1440)  83.7 E55-E46 N34-N43
      6 1694 1323 (N04W50 L=307)   576     90        1 (1649/1289-1733/1356) -39.8 W47-W53 N02-N07
      7  595  793 (S02E30 L=227)   581    107        1 ( 569/ 736- 625/ 838) -90.0 E31-E27 S05-N01
      8 1639  770 (S26W34 L=291)   266     49        0 (1614/ 747-1659/ 790) -36.9 W32-W36 S27-S24
      9  902  759 (S10E13 L=244)   225     78        0 ( 869/ 724- 936/ 786)  11.3 E15-E10 S11-S08
     10 1372  549 (S34W11 L=268)  1885    474        1 (1183/ 441-1525/ 706)  12.5 E03-W24 S37-S26
     11 1715  652 (S36W42 L=299)   307     70        0 (1687/ 629-1732/ 672)   0.0 W38-W43 S37-S34
     12 1517  441 (S46W23 L=280)   894    161        1 (1458/ 397-1580/ 503)  24.4 W17-W29 S48-S43
     13  409  414 (S21E62 L=195)  2193    208        3 ( 340/ 371- 496/ 453)  -2.4 E79-E54 S23-S18
     14 1091  162 (S58E28 L=229)   488     40        1 (1068/ 144-1118/ 185) -53.1 E31-E24 S60-S55
  

    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