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

proc extend {s e} {
    line dashed from [$e end] \
	to [$s between [$e start] [$e end]]
}

proc dot {p anchor text} {
    circle radius 10 at $p color red
    text with w at [last circle e] \
	text $text anchor $anchor \
	textcolor blue
}

set A [arrow from [ 0    0] to [by 100 -20]]
extend 3 $A

set B [arrow from [-50 200] to [by 100  30]]
extend 3 $B

dot [intersect $A $B] w {The treasure is here}