FRTM Sample -- Window Image

結果

ワード定義

var x var y var w var h

: root
8 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 @ 10 - y @ 22 - w @ 20 + h @ 32 + rectf
x @ 10 - y @ 22 - w @ 20 + 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 @ 50 + y @ 28 - 154 19 rectf
x @ 50 + y @ 28 - 154 23 shadow
0 setcolor
x @ 57 + y @ 25 - 140 18 rectf ;

: title
h $ w $ y $ x $
15 setcolor
1 setfont
x @ 60 + 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
tm