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

set boxwidth [3 cm]
set circleradius [15 mm]
set movelength [4 cm]

drum text Source\nRepository\n(Checkout)

arrow text "configure;\nmake dist" above
circle text Source\nDistribution

group {
    arrow text "configure;\nmake install" above
    set EXECLIBDIR [diamond text (exec)libdir]
}

south

arrow text "teapot-pkg scan\nteapot-pkg generate" rjust
circle text Teabag(s)

east

arrow text "teapot-admin add" above
drum TEApot\nGlobal\nRepository

arrow text "teacup install" above
set LOCAL [drum TEApot\nLocal\nRepository]

set TCLSH [box tclsh at \
	       [intersect \
		    [move from [$EXECLIBDIR east] to [by 100 east]] \
		    [move from [$LOCAL north]     to [by 100 north]]]]

arrow text package\nrequire \
    from [$EXECLIBDIR east] \
    to [[$TCLSH west] by 10 west]

arrow text package\nrequire rjust \
    from [$LOCAL north] \
    to [[$TCLSH south] by 10 south]