Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  769 1620 (N38E26 L=310)  5726    791       11 ( 464/1520-1101/1771)  -7.0 E81-W00 N32-N46
      2 1214 1425 (N28W10 L=345)   409    127        0 (1180/1380-1253/1475) -50.2 W07-W12 N25-N31
      3  909 1367 (N22E10 L=325)   586    170        0 ( 881/1297- 943/1453) -63.4 E13-E07 N17-N27
      4 1623 1379 (N28W41 L= 17)   302     49        0 (1594/1363-1648/1393) -11.3 W38-W43 N27-N29
      5  186 1213 (N06E66 L=270)  3469    243        4 ( 152/1091- 218/1323) -69.0 E73-E60 S01-N12
      6 1811 1233 (N20W58 L= 34)   518     70        1 (1789/1192-1824/1273)  78.7 W56-W60 N17-N22
      7 1770 1164 (N15W53 L= 28)   553     98        0 (1725/1140-1812/1196)  -6.3 W48-W57 N13-N17
      8 1783  961 (N03W54 L= 30)   583    110        0 (1740/ 920-1832/ 984)  18.4 W50-W59 N00-N04
      9 1383  938 (S01W23 L=359)   236     58        0 (1359/ 918-1413/ 957) -18.4 W21-W24 S02-N00
     10  357  819 (S16E45 L=291)   334     81        0 ( 319/ 795- 397/ 847) -15.9 E48-E41 S17-S14
     11 1846  827 (S05W64 L= 39)   511     54        0 (1813/ 804-1871/ 845)   0.0 W59-W67 S06-S03
     12 1135  705 (S17W10 L=345)  1170    402        0 ( 984/ 648-1323/ 796)  31.0 W00-W20 S21-S09
     13  757  528 (S32E15 L=321)  1424    317        6 ( 624/ 434- 874/ 578)  31.0 E26-E06 S40-S27
     14  529  401 (S45E38 L=297)   467     74        2 ( 495/ 381- 571/ 424)  -8.1 E42-E34 S46-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