FRTM Sample -- Window Image

[Up]

結果

win2.png(1.4KB)

ワード定義

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