Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1645 1660 (N36W73 L=169)   913     86        0 (1634/1617-1662/1698)   9.9 W66-W89 N33-N37
      2 1286 1666 (N44W33 L=129)   297     52        0 (1269/1644-1317/1681)  18.4 W30-W36 N42-N45
      3 1360 1647 (N41W39 L=134)   344     45        1 (1337/1627-1384/1666) -56.3 W36-W40 N39-N43
      4 1770 1421 (N19W66 L=161)  1956    151        4 (1726/1353-1818/1488)  22.4 W58-W75 N15-N22
      5 1510 1456 (N26W41 L=137)   351     88        0 (1474/1428-1557/1476) -45.0 W38-W44 N23-N27
      6  414 1276 (N26E42 L= 54)  1708    372        6 ( 292/1229- 568/1321)   0.0 E54-E28 N23-N28
      7  253 1162 (N20E57 L= 38)   438     84        1 ( 228/1126- 279/1200)  78.7 E60-E54 N17-N22
      8 1219 1159 (N12W14 L=109)   216     50        0 (1189/1143-1244/1176)  14.0 W11-W15 N10-N12
      9  150 1067 (N14E71 L= 25)  1874    135        4 ( 124/1003- 174/1130)  63.4 E76-E67 N09-N17
     10  942  829 (S05E07 L= 89)   970    220        3 ( 903/ 725- 975/ 926) -85.2 E08-E05 S12-N00
     11 1750  854 (S14W50 L=145)   522     40        0 (1730/ 829-1774/ 884)  71.6 W47-W52 S15-S12
     12 1337  775 (S13W17 L=113)   296    129        1 (1289/ 763-1406/ 789) -23.2 W14-W21 S14-S11
     13 1487  517 (S33W28 L=124)   363     79        1 (1445/ 505-1528/ 534)   0.0 W24-W32 S34-S32
     14 1325  245 (S56W19 L=114)   639     95        0 (1277/ 229-1376/ 257)  -4.4 W12-W25 S58-S54
  

    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