Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  857 1735 (N32E31 L=314)   581    133        1 ( 800/1687- 891/1776) -20.0 E37-E26 N29-N33
      2 1014 1567 (N24E14 L=331)   298     82        1 ( 993/1529-1031/1610) -38.7 E16-E11 N21-N26
      3  884 1528 (N18E21 L=325)   430    151        0 ( 813/1502- 959/1549)  11.3 E25-E15 N17-N19
      4 1612 1296 (N23W30 L= 15)   885    270        0 (1580/1175-1654/1387)  90.0 W27-W32 N15-N30
      5 1709 1288 (N26W38 L= 23)   331    109        1 (1674/1236-1734/1329) -33.7 W34-W40 N23-N27
      6 1334 1273 (N14W12 L=357)   454    131        1 (1306/1225-1381/1309) -71.6 W10-W14 N10-N16
      7  983 1218 (N03E07 L=339)   614    251        0 ( 858/1195-1094/1253)  26.6 E13-E01 N00-N06
      8 1859  950 (N11W58 L= 43)  1227    213        0 (1837/ 849-1876/1050) -51.3 W55-W63 N06-N17
      9  218  970 (S26E57 L=289)  1294    195        2 ( 135/ 936- 297/1000)  11.3 E68-E48 S28-S23
     10 1483  716 (S13W35 L= 21)   276     52        0 (1451/ 694-1513/ 739)  45.0 W33-W36 S14-S10
     11  206  669 (S45E66 L=280)  1341    123        1 ( 146/ 639- 267/ 703)  -7.1 E81-E55 S46-S42
     12 1182  633 (S25W20 L=  5)   308     42        0 (1153/ 614-1216/ 658)   0.0 W17-W22 S26-S23
     13 1492  505 (S23W45 L= 31)  2320    568        5 (1259/ 437-1745/ 610)  40.4 W32-W61 S33-S10
  

    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