grogs graphics library

grogs/test.grnd

@@ -0,0 +1,52 @@
+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