53 lines
939 B
Plaintext
53 lines
939 B
Plaintext
extern "grogs"
|
|
|
|
struct -rectangle
|
|
init &topx -int
|
|
init &topy -int
|
|
init &bottomx -int
|
|
init &bottomy -int
|
|
init &red -int
|
|
init &green -int
|
|
init &blue -int
|
|
endstruct
|
|
|
|
fun -int !draw -rectangle &r
|
|
set &ycount $r.topy
|
|
@columnloop
|
|
set &xcount $r.topx
|
|
add 1 $ycount &ycount
|
|
greater $ycount $r.bottomy &cond
|
|
if $cond %endloop
|
|
@rowloop
|
|
pusharg $xcount $ycount $r.red $r.green $r.blue
|
|
!grogs:setPixel &out
|
|
add 1 $xcount &xcount
|
|
greater $xcount $r.bottomx &cond
|
|
if $cond %columnloop
|
|
jump %rowloop
|
|
@endloop
|
|
return 0
|
|
endfun
|
|
|
|
pusharg "Grogs Window" 640 480
|
|
!grogs:initSDL &status
|
|
|
|
init &rect -rectangle
|
|
set &rect.topx 10
|
|
set &rect.topy 10
|
|
set &rect.bottomx 150
|
|
set &rect.bottomy 100
|
|
set &rect.red 0
|
|
set &rect.blue 255
|
|
set &rect.green 255
|
|
|
|
@loop
|
|
pusharg $rect
|
|
!draw &out
|
|
!grogs:renderFrame &out
|
|
!grogs:pollEvent &out
|
|
equal $out 0 &cond
|
|
if $cond %end
|
|
jump %loop
|
|
|
|
@end
|