Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  817 1790 (N61W18 L= 18)   512     39        0 ( 790/1764- 842/1811) -90.0 W15-W21 N58-N63
      2 1227 1780 (N43W47 L= 47)   784    155        1 (1156/1752-1297/1802) -60.9 W42-W50 N38-N47
      3 1562 1747 (N28W73 L= 72)   765     97        0 (1518/1735-1615/1757) -21.0 W67-W82 N25-N30
      4  557 1624 (N57E19 L=341)  1920    359        3 ( 404/1520- 692/1713)   7.7 E38-W00 N53-N60
      5 1366 1608 (N28W42 L= 42)   789    199        0 (1284/1588-1458/1628) -35.0 W36-W48 N24-N31
      6 1598 1546 (N17W55 L= 54)   380     82        0 (1571/1510-1619/1576)  78.7 W52-W57 N14-N19
      7 1466 1423 (N15W39 L= 38)   715    283        0 (1334/1365-1577/1460) -47.3 W31-W43 N08-N21
      8  426 1171 (N29E35 L=324)   354    123        0 ( 371/1144- 481/1198)   5.7 E40-E30 N28-N30
      9 1612  698 (S30W28 L= 28)   495    110        0 (1553/ 684-1660/ 716) -18.4 W23-W32 S31-S27
     10 1080  601 (S19E08 L=351)   342    141        0 (1064/ 538-1098/ 674)  58.0 E10-E05 S23-S15
     11  897  443 (S24E25 L=335)   636    252        0 ( 827/ 356- 941/ 558)  36.3 E33-E18 S28-S17
     12 1439  422 (S44W10 L=  9)  1529    310        3 (1325/ 353-1571/ 499)   7.8 W00-W22 S45-S40
     13 1046  397 (S32E18 L=341)   377    107        0 (1017/ 349-1078/ 437)  35.5 E21-E14 S34-S29
     14  591  298 (S26E56 L=303)  1869    265        3 ( 479/ 267- 699/ 330) -21.3 E68-E48 S30-S23
     15 1076  254 (S44E25 L=335)   952    174        1 (1032/ 216-1152/ 322) -85.6 E27-E21 S49-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