Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  383 1552 (N16E55 L= 32)   732    214        0 ( 336/1502- 418/1591) -29.1 E59-E50 N12-N18
      2 1739 1523 (N41W46 L=133)   512     83        0 (1716/1497-1761/1546)  45.0 W42-W48 N38-N43
      3  324 1463 (N10E57 L= 30)   373     47        1 ( 300/1429- 347/1489)  90.0 E58-E54 N07-N11
      4 1564 1418 (N28W28 L=115)  1087    206        2 (1447/1352-1633/1473) -15.9 W19-W33 N24-N29
      5 1512 1163 (N10W27 L=114)   667    129        1 (1481/1083-1535/1223) -60.3 W24-W29 N06-N13
      6 1734 1067 (N10W45 L=132)   421    101        3 (1695/1030-1767/1106) -31.0 W40-W47 N07-N11
      7  287 1058 (S15E50 L= 37)   346     71        1 ( 261/1035- 312/1084) -11.3 E52-E47 S15-S13
      8 1882  888 (N04W64 L=151)   607    189        0 (1831/ 856-1926/ 911)  24.4 W58-W70 N00-N06
      9 1136  764 (S20W11 L= 99)   778    233        2 (1032/ 703-1247/ 842)  50.2 W06-W16 S25-S13
     10 1755  573 (S17W62 L=149)  1379    186        1 (1685/ 492-1815/ 664)  71.6 W58-W65 S22-S10
     11 1275  436 (S37W31 L=118)   247     53        1 (1258/ 412-1296/ 463) -63.4 W29-W32 S38-S34
     12 1083  358 (S47W21 L=108)   633    120        2 (1024/ 337-1144/ 385)   5.7 W16-W27 S48-S44
     13  862  203 (S67W11 L= 99)   527     70        2 ( 835/ 177- 887/ 222) -24.0 W07-W16 S69-S64
  

    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