blob: 9b5c75f037978825124e3f702d7844b6f1a9f608 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
Wish $this has filename "test.folk"
When $this has region /r/ {
set points [lindex $r 0]
lassign $points one two three four
lassign $one a b
lassign $three c d
# Wish $this is labelled "$a $b $c $d"
# Display::fillRect $a $b $c $d skyblue
Display::stroke [list [list $a $b] [list $c $d]] 3 skyblue
}
Wish $this is outlined thick magenta
|
