FRTM Sample -- Window Image
[Up]
結果
ワード定義
B-Free ホームページの羽石さんのウィンドウデザイン案
(
http://www.tron-net.gr.jp/B-Free/graphics/window.html)をもとに,
frtm でウィンドウの絵を描いてみました.
: 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 ;
: win2
7 setcolor 30 28 585 407 rectf
30 28 585 407 shadow
36 46 573 383 shadow
0 setcolor 39 49 566 376 rect
15 setcolor 40 50 565 375 rectf
7 setcolor 90 22 159 19 rectf
90 22 159 23 shadow
0 setcolor 97 26 146 16 rectf
1 setfont 0 setbgc 15 setcolor 100 27 (B-Free) drawstr
0 setfont 15 setbgc 0 setcolor 41 51 (frtm> ) drawstr
;
gm win2
tm
naniwa@rbt.his.fukui-u.ac.jp