hgr: add bubble example

utils/gr-sim/bubble/Makefile

@@ -0,0 +1,22 @@
+CC = gcc
+CFLAGS = -Wall -O2 -I.. -g
+LFLAGS = -lm
+
+SDL_LIBS= `sdl-config --libs`
+SDL_INCLUDE= `sdl-config --cflags`
+GR_SIM = ../gr-sim.a
+
+all:	bubble
+
+####
+
+bubble:	bubble.o $(GR_SIM)
+	$(CC) -o bubble bubble.o $(GR_SIM) $(SDL_LIBS) $(LFLAGS)
+
+bubble.o:	bubble.c
+	$(CC) $(CFLAGS) -c bubble.c
+
+####
+
+clean:	
+	rm -f *~ *.o bubble

utils/gr-sim/bubble/bubble.c

@@ -0,0 +1,65 @@
+/* Bubble */
+
+#include <stdint.h>
+#include <stdio.h>
+#include <string.h>
+#include <unistd.h>
+#include <stdlib.h>
+#include <math.h>
+
+#include "gr-sim.h"
+#include "tfv_utils.h"
+#include "tfv_zp.h"
+
+
+int main(int argc, char **argv) {
+
+	int ch;
+	int n,i,j;
+	double r,rr,t,xx=0,u=0,v=0;//,sz,sw,sh;
+
+	grsim_init();
+
+	printf("XX=%lf\n",xx);
+
+	// HCOLOR=7
+	hcolor_equals(7);
+
+	// N=200:R=6.28/235:T=0:SZ=200:SW=280/SZ:SH=SCRH/SZ
+	n=32;	r=6.28/235.0;
+	t=0;
+
+	// HGR2:FOR I=0 TO N:RR=R*I:FOR J=0 TO N
+
+	hgr();
+	soft_switch(MIXCLR);
+	while(1) {
+		hclr();
+
+		clear_screens();
+		for(i=0;i<n;i++) {
+			rr=r*i;
+			for(j=0;j<n;j++) {
+				//U=SIN(I+V)+SIN(RR+X)
+				u=sin(i+v)+sin(rr+xx);
+				//V=COS(I+V)+COS(RR+X)
+				v=cos(i+v)+cos(rr+xx);
+				// X=U+T
+				xx=u+t;
+				//HPLOT 32*U+140,32*V+96
+				hplot(48*u+140,48*v+96);
+			}
+
+
+		}
+			grsim_update();
+			usleep(100000);
+
+			ch=grsim_input();
+			if (ch=='q') exit(0);
+		t=t+.025;
+
+	}
+
+	return 0;
+}

utils/gr-sim/bubble/bubble_uninit.c

@@ -0,0 +1,66 @@
+/* Bubble */
+
+#include <stdint.h>
+#include <stdio.h>
+#include <string.h>
+#include <unistd.h>
+#include <stdlib.h>
+#include <math.h>
+
+#include "gr-sim.h"
+#include "tfv_utils.h"
+#include "tfv_zp.h"
+
+
+int main(int argc, char **argv) {
+
+	int ch;
+	int n,i,j;
+	double r,rr,t,xx,u=0,v=0;//,sz,sw,sh;
+
+	grsim_init();
+
+	printf("XX=%lf\n",xx);
+
+	// HCOLOR=7
+	hcolor_equals(7);
+
+	// N=200:R=6.28/235:T=0:SZ=200:SW=280/SZ:SH=SCRH/SZ
+	n=20;	r=6.28/235.0;
+	t=0;
+
+	// HGR2:FOR I=0 TO N:RR=R*I:FOR J=0 TO N
+
+	hgr();
+	soft_switch(MIXCLR);
+	while(1) {
+		hclr();
+
+		clear_screens();
+		for(i=0;i<n;i++) {
+			rr=r*i;
+			for(j=0;j<n;j++) {
+				//U=SIN(I+V)+SIN(RR+X)
+				u=sin(i+v)+sin(rr+xx);
+				//V=COS(I+V)+COS(RR+X)
+				v=cos(i+v)+cos(rr+xx);
+				// X=U+T
+				xx=u+t;
+				//HPLOT 32*U+140,32*V+96
+				hplot(48*u+140,48*v+96);
+			}
+
+
+		}
+			grsim_update();
+			usleep(100000);
+
+			ch=grsim_input();
+			if (ch=='q') exit(0);
+		t=t+.025;
+
+	}
+
+	return 0;
+}
+

utils/gr-sim/hgr-sim.c

@@ -48,7 +48,7 @@ bkgnd_loop:
 	// rts
 }
 
-static void hclr(void) {
+void hclr(void) {
 	// F3F2
 	a=0;			// black background
 	ram[HGR_BITS]=a;