@@ 1,17 1,12 @@
: h 104 ; : e 101 ; : l 108 ; : o 111 ;
: w 119 ; : r 114 ; : d 100 ; : _ 32 ;
-var pos_x 20 pos_x !
-var pos_y 10 pos_y !
-
-: POS_X ( -- pos_x )
- pos_x @ ;
-: POS_Y ( -- pos_y )
- pos_y @ ;
+var pos_x
+var pos_y
: TYP ( c -- )
- POS_X POS_Y emit
- POS_X 1 + pos_x ! ;
+ pos_x @ pos_y @ emit
+ 1 pos_x +! ;
: nTYP ( n -- )
0 do TYP loop ;
@@ 24,4 19,9 @@ var pos_y 10 pos_y !
d l r o w
5 nTYP ;
-"hello" _ TYP "world"
+
+: on_frame
+ ( clr screen )
+ 200 0 0 clr
+ "hello" _ TYP "world" ;
+
@@ 65,12 65,12 @@ int init_sdl() {
return 1;
}
-static void redraw() {
- SDL_UpdateTexture(gTexture, NULL, pixels, SCREEN_WIDTH * sizeof(unsigned int));
- SDL_RenderClear(gRenderer);
- SDL_RenderCopy(gRenderer, gTexture, NULL, &DestR);
- SDL_RenderPresent(gRenderer);
-}
+/* static void redraw() { */
+/* SDL_UpdateTexture(gTexture, NULL, pixels, SCREEN_WIDTH * sizeof(unsigned int)); */
+/* SDL_RenderClear(gRenderer); */
+/* SDL_RenderCopy(gRenderer, gTexture, NULL, &DestR); */
+/* SDL_RenderPresent(gRenderer); */
+/* } */
void printmem() {
int i;
@@ 82,10 82,10 @@ void printmem() {
}
int main(void) {
- const int fps = 1;
- const int frameDelay = 1000 / fps;
- unsigned long frameStart;
- int frameTime;
+ /* const int fps = 1; */
+ /* const int frameDelay = 1000 / fps; */
+ /* unsigned long frameStart; */
+ /* int frameTime; */
errc e;