Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1205 1654 (N39W33 L=351)   366     69        0 (1183/1621-1237/1676)  53.1 W31-W35 N36-N40
      2 1629 1608 (N22W63 L= 21)  1749    283        2 (1498/1575-1749/1638) -16.2 W51-W83 N17-N27
      3  987 1454 (N33W09 L=327)   364    134        0 ( 948/1421-1047/1506) -60.3 W07-W12 N29-N36
      4  629 1375 (N37E18 L=300)   366     81        0 ( 604/1339- 665/1399)  31.0 E19-E14 N34-N38
      5 1649 1313 (N07W47 L=  4)   665    132        0 (1621/1247-1670/1374)  60.3 W43-W48 N03-N10
      6 1776 1117 (S08W51 L=  9)   448     64        3 (1741/1095-1812/1137) -23.2 W47-W54 S09-S06
      7  170  876 (N15E67 L=251)  2694    313        5 ( 110/ 757- 221/1024) -72.6 E77-E61 N07-N23
      8 1740  977 (S14W44 L=  2)   364     45        2 (1721/ 952-1761/1005) -63.4 W42-W45 S16-S12
      9 1561  921 (S12W29 L=347)   678    152        1 (1541/ 855-1582/1001)  63.4 W27-W31 S15-S07
     10  923  766 (S05E12 L=306)   576    179        0 ( 899/ 687- 950/ 848)  60.9 E14-E08 S09-N00
     11  426  609 (S05E49 L=269)   338     45        0 ( 405/ 583- 453/ 636)  18.4 E51-E45 S06-S03
     12 1252  472 (S32E00 L=318)  1349    253        4 (1165/ 389-1321/ 567)  31.6 E08-W06 S35-S26
     13  725  459 (S19E33 L=284)   681     99        2 ( 701/ 410- 757/ 505)  71.6 E35-E30 S22-S16
     14  926  436 (S25E22 L=296)   501    102        0 ( 887/ 404- 963/ 476)  20.6 E25-E17 S27-S23
     15 1465  293 (S56W14 L=331)   544     53        1 (1438/ 272-1497/ 315)   0.0 W10-W17 S57-S53
  

    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