Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1296 1779 (N51E09 L=213)   331     40        0 (1267/1766-1320/1792)  45.0 E11-E06 N48-N52
      2 1460 1710 (N52W08 L=230)  1457    262        3 (1361/1642-1566/1774)  -5.2 E02-W20 N48-N54
      3  739 1694 (N25E40 L=182)   294     77        0 ( 719/1667- 765/1724) -76.0 E41-E37 N23-N27
      4  516 1643 (N17E53 L=169)  1059    156        0 ( 498/1570- 533/1721) -42.3 E60-E48 N11-N21
      5  153 1190 (S17E70 L=152)  1836    165        2 ( 125/1115- 191/1263)  84.3 E74-E65 S21-S11
      6  319 1054 (S22E47 L=175)  1879    381        3 ( 144/ 934- 449/1125)  26.6 E68-E36 S32-S16
      7 1678  986 (N11W40 L=262)  1164    207        2 (1630/ 882-1715/1047) -31.0 W35-W45 N06-N14
      8 1351  909 (S03W21 L=243)   494    192        2 (1283/ 837-1426/ 975) -14.0 W15-W27 S05-N00
      9  765  759 (S28E08 L=214)  1226    331        0 ( 716/ 671- 860/ 863)  85.6 E10-E02 S32-S19
     10 1500  599 (S15W42 L=264)   307     71        1 (1461/ 580-1538/ 616)  18.4 W38-W44 S15-S13
     11 1610  516 (S15W55 L=277)  1048    213        3 (1536/ 455-1659/ 593)  84.3 W51-W58 S20-S10
     12  648  479 (S49E09 L=213)   260     48        0 ( 629/ 453- 665/ 505) -36.9 E10-E06 S50-S47
     13  827  411 (S48W09 L=231)  1379    272        2 ( 707/ 354- 958/ 452)  10.3 E02-W21 S50-S44
     14 1193  197 (S48W55 L=277)  1633    227        6 (1088/ 139-1262/ 241)   1.8 W41-W72 S50-S45
  

    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