Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1037 1867 (N49E31 L=152)   812    111        0 ( 976/1845-1091/1889)   4.8 E38-E25 N47-N50
      2  523 1698 (N22E56 L=127)  1607    164        5 ( 480/1631- 569/1772) -67.4 E60-E51 N16-N28
      3 1215 1398 (N19W02 L=184)   505    187        0 (1155/1320-1268/1475) -37.9 E03-W06 N15-N22
      4 1114 1322 (N12E02 L=180)   746    261        1 (1088/1199-1146/1433) -65.2 E05-W02 N05-N18
      5  779 1389 (N08E23 L=160)   220     37        0 ( 761/1369- 799/1410)  63.4 E24-E21 N06-N09
      6  219 1221 (S12E61 L=121)   630    120        0 ( 167/1189- 264/1258)  26.6 E67-E56 S14-S09
      7 1858  973 (N14W58 L=241)   618    129        3 (1840/ 915-1896/1007)  63.4 W55-W62 N10-N16
      8  123  944 (S29E73 L=109)   598     56        0 (  94/ 920- 151/ 966)  12.1 E81-E67 S30-S27
      9 1593  867 (S01W38 L=220)   475     93        0 (1536/ 843-1645/ 886)   6.3 W33-W42 S02-N00
     10  393  798 (S35E38 L=144)   774    226        0 ( 336/ 758- 453/ 854)  37.9 E44-E33 S37-S29
     11  177  794 (S38E67 L=116)  1085    109        2 ( 132/ 749- 229/ 822)   7.4 E80-E57 S41-S36
     12 1823  802 (N03W60 L=242)   372     39        0 (1795/ 789-1849/ 816)  26.6 W56-W62 N01-N04
     13 1196  755 (S18W17 L=200)   239     50        0 (1178/ 724-1219/ 776) -71.6 W15-W17 S19-S16
     14  705  430 (S52E06 L=177)   505    111        0 ( 650/ 397- 755/ 464)  -5.2 E11-W00 S53-S50
  

    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