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