Posted to tcl by egavilan at Sat May 02 21:33:42 GMT 2009view raw

  1. emiliano@merlot:~/Desktop/indicador$ cat test.tcl
  2. package require Tk 8.6b1
  3. pack [canvas .c]
  4. .c create oval 100 100 150 150
  5. for {set i 1} {$i <= 20} {incr i} {
  6. .c moveto 1 135.2313 141.321
  7. puts [.c coords 1]
  8. }
  9. exit
  10. emiliano@merlot:~/Desktop/indicador$ wish8.6 test.tcl
  11. 136.2313 142.321 186.2313 192.321
  12. 136.4626 142.642 186.4626 192.642
  13. 136.6939 141.963 186.6939 191.963
  14. 135.92520000000002 142.284 185.92520000000002 192.284
  15. 136.15650000000002 142.605 186.15650000000002 192.605
  16. 136.38780000000003 141.926 186.38780000000003 191.926
  17. 136.61910000000003 142.24699999999999 186.61910000000003 192.24699999999999
  18. 135.85040000000004 142.56799999999998 185.85040000000004 192.56799999999998
  19. 136.08170000000004 141.88899999999998 186.08170000000004 191.88899999999998
  20. 136.31300000000005 142.20999999999998 186.31300000000005 192.20999999999998
  21. 136.54430000000005 142.53099999999998 186.54430000000005 192.53099999999998
  22. 135.77560000000005 141.85199999999998 185.77560000000005 191.85199999999998
  23. 136.00690000000006 142.17299999999997 186.00690000000006 192.17299999999997
  24. 136.23820000000006 142.49399999999997 186.23820000000006 192.49399999999997
  25. 136.46950000000007 142.81499999999997 186.46950000000007 192.81499999999997
  26. 136.70080000000007 142.13599999999997 186.70080000000007 192.13599999999997
  27. 135.93210000000008 142.45699999999997 185.93210000000008 192.45699999999997
  28. 136.16340000000008 142.77799999999996 186.16340000000008 192.77799999999996
  29. 136.39470000000009 142.09899999999996 186.39470000000009 192.09899999999996
  30. 136.6260000000001 142.41999999999996 186.6260000000001 192.41999999999996
  31. emiliano@merlot:~/Desktop/indicador$