FRTM Sample -- Window Image

結果

ワード定義

var x var y var w var h

: root 2 setcolor 0 0 640 480 rectf ;

: shadow 15 setcolor 4 ndup 4 ndup moveto over 0 rlineto
4 ndup 4 ndup moveto 0 over rlineto 8 setcolor
over 0 rlineto 0 over minus rlineto 4 ndrop ;

: window h $ w $ y $ x $ 7 setcolor
x @ 6 - y @ 22 - w @ 10 + h @ 32 + rectf
x @ 6 - y @ 22 - w @ 10 + h @ 32 + shadow
x @ 4 - y @ 4 - w @ 8 + h @ 8 + shadow
15 setcolor x @ 1- y @ 1- w @ 1+ h @ 1+ rect
x @ y @ w @ h @ rectf 7 setcolor
x @ 0 + y @ 28 - 140 19 rectf x @ 0 + y @ 28 - 140 23 shadow
0 setcolor x @ 0 + y @ 25 - 140 18 rectf ;

: title h $ w $ y $ x $ 15 setcolor 1 setfont
x @ 20 + y @ 23 - SP nrotr SP nrotr drawstr ;

: test
root
40 30 80 7 * 2 + 12 14 * 2 + window
(Win1) 40 30 80 7 * 2 + 12 14 * 2 + title
40 270 80 7 * 2 + 12 14 * 2 + window
(Win2) 40 270 80 7 * 2 + 12 14 * 2 + title ;

gm test