Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  663 1787 (N32E51 L=213)  2238    270        6 ( 579/1720- 743/1868) -75.1 E57-E46 N25-N40
      2  816 1696 (N28E33 L=232)  1308    302        2 ( 705/1663- 953/1732)  15.5 E41-E23 N24-N33
      3 1518 1443 (N31W21 L=286)  1771    493        0 (1370/1276-1697/1613) -23.4 W07-W37 N25-N38
      4  457 1543 (N11E51 L=214)   686    122        3 ( 414/1501- 510/1581)  56.3 E54-E47 N07-N14
      5  584 1491 (N10E39 L=226)   409     99        0 ( 540/1449- 617/1526) -20.6 E43-E35 N08-N11
      6 1771 1339 (N33W45 L=310)   609     81        0 (1733/1312-1807/1365)   0.0 W40-W49 N31-N34
      7 1164 1181 (N05W04 L=269)   191     70        0 (1134/1156-1190/1213)  76.0 W02-W04 N03-N07
      8  474 1140 (S12E36 L=228)   469    127        1 ( 430/1096- 524/1183)  56.3 E39-E33 S15-S09
      9 1898 1121 (N24W62 L=327)   927    131        1 (1854/1064-1932/1168) -14.0 W55-W68 N21-N25
     10  138 1015 (S25E70 L=195)  1586    126        3 ( 102/ 955- 171/1057)  41.2 E79-E64 S28-S21
     11  521  799 (S32E28 L=237)  2072    493        6 ( 339/ 672- 724/ 870)  30.7 E45-E13 S43-S23
     12 1575  527 (S19W52 L=316)   721    193        2 (1493/ 477-1657/ 576)  55.0 W48-W55 S24-S14
     13 1279  542 (S28W30 L=295)   467    156        1 (1205/ 527-1359/ 560)  26.6 W25-W35 S30-S25
     14 1485  378 (S30W56 L=320)  2448    356        3 (1325/ 350-1646/ 412)  30.3 W42-W68 S36-S22
  

    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