Anonymous user
Honeycombs: Difference between revisions
m
→{{header|Tcl}}: Tinkering
(→Tcl: Added implementation) |
m (→{{header|Tcl}}: Tinkering) |
||
Line 34:
# How to draw a single hexagon, centered at a particular point.
proc drawhex {w x y ch dx dy} {
if {$ch eq ""} return ;# Allow elision of cells (not used here)
$w create polygon \
[- $x $dx] [- $y $dy] [+ $x $dx] [- $y $dy] [+ $x $dx $dx] $y \
| |||