# -*- tcl -*- tcl.tk//DSL diagram//EN//1.0

box "box" ; move
line "line" "" ; move
arrow "arrow" "" ; move
circle "circle" ; move
ellipse "ellipse" width [3 cm] ; move
group { arc "arc" } ;  move
diamond "diamond" height [2 cm] ; move
drum "drum" ; move
text text "text"