Guts translation
#1
Code:
'Guts.bas SmallBASIC 0.12.0 2015-11-17 MGA/B+
'modified  > GUTS
REM Original ARM BBC BASIC version by Jan Vibe
'800x600

DIM bX(15),bY(15),bZ(15),COLR(15)
bX(1) = -100 : A = 0
FOR N = 1 TO 15
 COLR(16-N)=rgb(7*N+150,14*N+45,14*N+45)
NEXT

X1 = RND*XMAX : Y1 = RND*YMAX : DX1 = (RND*16+1)*(RND-.5) : DY1 = (RND*16+1)*(RND-.5)
X2 = RND*XMAX : Y2 = RND*YMAX : DX2 = (RND*16+1)*(RND-.5) : DY2 = (RND*16+1)*(RND-.5)
while 1
 H = X1+DX1 : IF H<0 OR H>xmax THEN DX1 = (RND*16+1)*-SGN(DX1)
 H = Y1+DY1 : IF H<0 OR H>ymax THEN DY1 = (RND*16+1)*-SGN(DY1)
 X1 += DX1  : Y1 += DY1
 IF X2<X1 AND  DX2<24 THEN DX2 += 1
 IF X2>X1 AND DX2>-24 THEN DX2 -= 1
 IF Y2<Y1 AND  DY2<24 THEN DY2 += 1
 IF Y2>Y1 AND DY2>-24 THEN DY2 -= 1
 X2 += DX2 : Y2 += DY2 : A = (A+10) MOD 360 : Z = (SIN(RAD(A))+1)+2
 FOR N = 2 TO 15
   bX(N-1) = bX(N) : bY(N-1) = bY(N) : bZ(N-1) = bZ(N)
 NEXT
 bX(15) = X2 : bY(15) = Y2 : bZ(15) = Z
 FOR N = 1 TO 15 : CIRCLE bX(N),bY(N),N*bZ(N),1,COLR(N) FILLED : NEXT
 Showpage
 delay 10  
wend

I wonder if Tapeworm .01 is like this?

Oh hey! with Halloween coming up a modification of this might be fun!


Attached Files Thumbnail(s)

B += x
Reply
#2
I think "tape worm" would actually be a "sub set" of "guts" as one resides inside the other... lol

J

I need coffee... It's 05:20am and my caffeine levels are almost out....
May your journey be free of incident.

Live long and prosper.
Reply
#3
Hey!!! Angry I thought I explicitly told you NOT to go public with my colonoscopy!

Pete Big Grin
Reply