Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  431 1565 (N25E56 L=242)   963    171        0 ( 398/1478- 463/1627) -65.6 E59-E53 N18-N29
      2 1407 1587 (N43W21 L=319)   414     58        2 (1378/1557-1434/1613) -78.7 W18-W23 N40-N45
      3  647 1494 (N23E34 L=264)   267     82        1 ( 605/1475- 684/1507)  31.0 E36-E31 N21-N24
      4  401 1317 (N09E47 L=251)   431    130        2 ( 377/1264- 421/1367) -71.6 E49-E45 N05-N11
      5 1693 1303 (N27W45 L=343)   446     89        1 (1665/1258-1719/1343) -71.6 W42-W47 N24-N30
      6 1411 1195 (N16W22 L=320)   518    171        0 (1354/1140-1466/1265) -33.7 W17-W26 N13-N19
      7  147 1014 (S13E70 L=228)  1456    123        6 ( 115/ 967- 184/1077) -66.8 E77-E63 S16-S09
      8  302  977 (S13E50 L=248)   437     65        0 ( 284/ 944- 319/1013) -63.4 E51-E47 S15-S10
      9  247  766 (S28E58 L=240)   595     84        3 ( 229/ 722- 272/ 812)  56.3 E60-E54 S30-S24
     10  622  754 (S22E22 L=276)   266     71        0 ( 601/ 729- 655/ 782) -26.6 E24-E19 S23-S20
     11 1647  600 (S17W52 L=350)  2530    420        6 (1489/ 476-1769/ 730)  41.6 W43-W62 S26-S08
     12 1547  652 (S15W41 L=339)  1051    239        4 (1484/ 574-1588/ 703)  90.0 W35-W45 S20-S11
     13  915  553 (S31W00 L=298)  1568    448        2 ( 729/ 502-1123/ 616)  26.6 E13-W13 S38-S24
     14 1234  305 (S44W34 L=332)  1810    293        1 (1118/ 272-1385/ 360)  27.8 W24-W43 S48-S37
  

    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