Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  734 1755 (N29E45 L=214)  1737    198        2 ( 703/1661- 762/1843) -43.0 E54-E38 N22-N36
      2  924 1714 (N31E29 L=230)   870    165        2 ( 886/1642- 957/1784) -34.7 E36-E23 N26-N35
      3  385 1628 (N13E66 L=193)  2193    271        6 ( 304/1554- 489/1713)  56.3 E75-E58 N07-N20
      4 1344 1546 (N33W04 L=263)   719    192        0 (1328/1450-1367/1625) -72.9 W01-W07 N26-N39
      5  731 1599 (N18E35 L=224)   323     38        0 ( 703/1577- 753/1619) -11.3 E37-E32 N17-N19
      6 1735 1402 (N38W39 L=298)  1116    126        1 (1697/1346-1761/1450)  56.3 W35-W43 N33-N42
      7  567 1334 (S01E35 L=224)   425     67        1 ( 540/1297- 589/1370) -21.8 E37-E32 S02-N00
      8  138 1221 (S15E75 L=184)  1619    124        1 ( 112/1162- 160/1276)  74.1 E80-E70 S18-S11
      9 1680 1091 (N16W38 L=297)   812    211        1 (1598/1056-1754/1144)  39.3 W31-W43 N12-N21
     10  323 1026 (S24E47 L=212)   318     63        0 ( 289/1013- 371/1037)  15.9 E49-E42 S24-S22
     11  263  991 (S27E52 L=207)   349     63        1 ( 224/ 970- 294/1006)  -6.3 E57-E48 S28-S26
     12  783  744 (S29E07 L=252)   208     27        0 ( 761/ 729- 809/ 763)  14.0 E08-E04 S30-S28
     13 1671  611 (S09W55 L=314)   372     88        0 (1628/ 593-1711/ 629)  23.2 W50-W57 S10-S07
     14 1448  441 (S26W48 L=307)  1940    417        2 (1285/ 416-1629/ 473)  19.0 W35-W64 S31-S18
     15 1153  400 (S38W31 L=290)   395     94        1 (1109/ 375-1199/ 420)  15.9 W27-W34 S39-S36
  

    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