Guts translation bplus B = B + ... Offline This member has written at least 1,268 posts and created at least 154 threads on this forum since joining inApr 2017. 10-07-2017, 03:48 AM This post was last modified: 10-07-2017, 03:59 AM by bplus.Edited 0 times 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 X2X1 AND DX2>-24 THEN DX2 -= 1  IF Y2Y1 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 johnno56 Registered Offline This member has written at least 261 posts and created at least 17 threads on this forum since joining inApr 2017. 10-07-2017, 04:21 AM 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. Pete Registered Offline This member has written at least 179 posts and created at least 2 threads on this forum since joining inOct 2017. 10-22-2017, 06:10 AM Hey!!! I thought I explicitly told you NOT to go public with my colonoscopy! Pete « Next Oldest | Next Newest » 