home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource / 37_5.tcl < prev    next >
Text File  |  2003-04-16  |  345b  |  15 lines
  1. #
  2. # Example 37-5
  3. # Canvas arc items.
  4. #
  5.  
  6. # $c is a canvas
  7. $c create arc 10 10 100 100 -start 45 -extent -90 \
  8.     -style pieslice -fill orange -outline black
  9. $c create arc 10 10 100 100 -start 135 -extent 90 \
  10.     -style chord -fill blue -outline white -width 4
  11. $c create arc 10 10 100 100 -start 255 -extent 45 \
  12.     -style arc -outline black -width 3
  13.  
  14.  
  15.