Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1046 1894 (N59W54 L=350)  1947    150        3 ( 993/1831-1100/1951)   7.1 W38-W78 N55-N61
      2  893 1784 (N57W24 L=320)   705    113        2 ( 856/1734- 928/1831)  21.8 W17-W32 N53-N59
      3 1523 1720 (N29W64 L=  1)  1301    173        1 (1440/1687-1594/1742) -19.4 W56-W73 N25-N31
      4  540 1601 (N56E21 L=275)   677    137        0 ( 478/1564- 598/1633)   0.0 E28-E13 N54-N57
      5 1446 1414 (N15W37 L=333)   296     55        0 (1425/1380-1461/1443)  78.7 W35-W38 N12-N17
      6  484 1353 (N39E28 L=268)   316     88        0 ( 443/1337- 530/1366) -14.0 E32-E24 N37-N40
      7 1702  863 (S23W39 L=335)   838    279        0 (1627/ 754-1758/ 980)  33.7 W30-W45 S27-S17
      8 1640  881 (S20W34 L=330)   445    178        0 (1605/ 803-1683/ 947)  33.7 W29-W38 S23-S17
      9 1821  872 (S27W51 L=347)   372     74        0 (1803/ 832-1838/ 914)  45.0 W48-W53 S28-S24
     10 1385  644 (S26W11 L=307)   262     56        0 (1356/ 621-1411/ 669) -59.0 W09-W12 S28-S23
     11 1145  483 (S29E09 L=288)  1119    438        2 (1018/ 373-1298/ 622)  18.4 E20-W04 S35-S23
     12  892  482 (S22E24 L=273)   306    113        0 ( 867/ 436- 925/ 516)  45.0 E25-E20 S25-S20
     13 1513  455 (S44W17 L=313)   356     83        1 (1497/ 410-1530/ 493)  63.4 W15-W18 S47-S41
     14  729  349 (S26E41 L=255)   502     97        1 ( 712/ 302- 747/ 402)  36.9 E44-E36 S29-S23
  

    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