Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  734 1774 (N31E46 L=230)   983    137        2 ( 687/1717- 766/1831) -28.1 E56-E41 N26-N34
      2  548 1753 (N25E61 L=216)  2074    215        4 ( 485/1662- 611/1825) -77.0 E69-E56 N17-N31
      3  554 1671 (N19E52 L=224)  1796    226        3 ( 485/1597- 625/1735)  85.2 E55-E48 N13-N25
      4 1127 1643 (N32E13 L=264)   647    145        1 (1103/1572-1152/1716) -74.7 E15-E10 N27-N38
      5 1559 1489 (N37W22 L=298)   714    109        1 (1522/1452-1592/1533)  58.0 W19-W24 N33-N41
      6  384 1499 (N05E56 L=220)   328     65        1 ( 360/1469- 412/1521)  26.6 E57-E53 N02-N06
      7  376 1402 (S01E52 L=224)   487     80        2 ( 346/1368- 405/1441) -31.0 E55-E49 S02-N01
      8  216 1212 (S15E62 L=214)  2329    215        6 ( 156/1143- 278/1297)  42.3 E69-E57 S19-S08
      9  304 1220 (S13E53 L=224)   551    136        0 ( 266/1183- 329/1271)  56.3 E55-E50 S15-S09
     10  163 1055 (S25E67 L=210)   699     96        1 ( 127/1019- 209/1079)  18.4 E72-E60 S26-S22
     11 1792  679 (S02W63 L=339)   573     84        0 (1753/ 658-1830/ 699)  11.3 W57-W67 S02-N00
     12 1183  540 (S29W25 L=302)   924    223        0 (1088/ 518-1298/ 565)  30.3 W18-W31 S31-S24
     13 1486  529 (S20W45 L=322)   366    117        2 (1438/ 495-1521/ 558)   0.0 W40-W49 S21-S18
     14 1703  464 (S15W70 L=346)   627     63        0 (1666/ 440-1734/ 485)  45.0 W66-W73 S17-S13
  

    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