mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-12-28 09:30:41 +00:00
120 lines
1.4 KiB
C
120 lines
1.4 KiB
C
/* Based on code from "32 BASIC Programs for the Apple Computer" */
|
|
/* by Tom Rugg and Phil Feldman */
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <unistd.h>
|
|
|
|
#include "gr-sim.h"
|
|
|
|
static int r[11];
|
|
static int x,y,j,a,b,x2,y2,n;
|
|
|
|
static void tooo(void) {
|
|
|
|
color_equals(r[n]);
|
|
basic_plot(x2,y2);
|
|
grsim_update();
|
|
return;
|
|
}
|
|
|
|
static void noo(void) {
|
|
int t,w;
|
|
|
|
// 900
|
|
color_equals(r[0]);
|
|
basic_plot(x,y);
|
|
grsim_update();
|
|
if (j==1) return;
|
|
// 920
|
|
w=j/2;
|
|
t=j-w-1;
|
|
// 930
|
|
for(n=1;n<=w;n++) {
|
|
if (x==a) {
|
|
y2=y; x2=x+n; tooo();
|
|
x2=x-n; tooo();
|
|
continue;
|
|
}
|
|
if (y==b) {
|
|
x2=x; y2=y+n; tooo();
|
|
y2=y-n; tooo();
|
|
continue;
|
|
}
|
|
y2=y;
|
|
if (x<a) {
|
|
x2=x+n; tooo();
|
|
}
|
|
else {
|
|
x2=x-n; tooo();
|
|
}
|
|
// 990
|
|
x2=x;
|
|
if (y<b) {
|
|
y2=y+n; tooo();
|
|
}
|
|
else {
|
|
y2=y-n; tooo();
|
|
}
|
|
}
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
int main(int argc, char **argv) {
|
|
|
|
int ch;
|
|
int p,d,m,k,l;
|
|
|
|
grsim_init();
|
|
|
|
// 120
|
|
gr();
|
|
// 125
|
|
p=19;
|
|
|
|
// 130
|
|
a=p; b=p; d=-1;
|
|
|
|
// 135
|
|
m=15;
|
|
|
|
label150:
|
|
|
|
// 150
|
|
for(j=0;j<=10;j++) {
|
|
r[j]=rand()%m;
|
|
}
|
|
|
|
// 180
|
|
d=-d; k=1; l=p;
|
|
if (d<=0) {
|
|
k=p;l=1;
|
|
}
|
|
// 200
|
|
for(j=k;j<=l;j+=d) {
|
|
x=a+j; y=b; noo();
|
|
x=a-j; noo();
|
|
x=a; y=b+j; noo();
|
|
y=b-j; noo();
|
|
x=a+j;y=b+j; noo();
|
|
x=a-j;y=b-j; noo();
|
|
y=b+j; noo();
|
|
x=a+j; y=b-j; noo();
|
|
}
|
|
|
|
for(j=1;j<10;j++) {
|
|
ch=grsim_input();
|
|
if (ch=='q') exit(0);
|
|
if (ch==' ') {
|
|
while(grsim_input()!=' ') usleep(10000);
|
|
}
|
|
usleep(10000);
|
|
}
|
|
|
|
goto label150;
|
|
|
|
return 0;
|
|
}
|