47 lines
1.1 KiB
Plaintext
47 lines
1.1 KiB
Plaintext
WindowWidth =410
|
|
WindowHeight =440
|
|
|
|
open "Yin & Yang" for graphics_nf_nsb as #w
|
|
|
|
#w "trapclose [quit]"
|
|
|
|
call YinYang 200, 200, 200
|
|
call YinYang 120, 50, 50
|
|
|
|
wait
|
|
|
|
sub YinYang x, y, size
|
|
|
|
#w "up ; goto "; x; " "; y
|
|
#w "backcolor black ; color black"
|
|
#w "down ; circlefilled "; size /2
|
|
|
|
#w "color 255 255 255 ; backcolor 255 255 255"
|
|
#w "up ; goto "; x -size /2; " "; y -size /2
|
|
#w "down ; boxfilled "; x; " "; y +size /2
|
|
|
|
#w "up ; goto "; x; " "; y -size /4
|
|
#w "down ; backcolor black ; color black ; circlefilled "; size /4
|
|
#w "up ; goto "; x; " "; y -size /4
|
|
#w "down ; backcolor white ; color white ; circlefilled "; size /12
|
|
|
|
#w "up ; goto "; x; " "; y +size /4
|
|
#w "down ; backcolor white ; color white ; circlefilled "; size /4
|
|
#w "up ; goto "; x; " "; y +size /4
|
|
#w "down ; backcolor black ; color black ; circlefilled "; size /12
|
|
|
|
#w "up ; goto "; x; " "; y
|
|
#w "down ; color black ; circle "; size /2
|
|
|
|
#w "flush"
|
|
|
|
end sub
|
|
|
|
scan
|
|
|
|
wait
|
|
|
|
[quit]
|
|
close #w
|
|
end
|