bubble universe DOS port by Kuemmel [web]
;----------------------------------------------------------- ;Bubble Universe DOS - port & minor mods by Kuemmel 11/2023 ; ;Thanks Jin X and TomCat for testing and support ! ; ;Different colour versions from TomCat in extra folder, just ;not fully optimized like the master version ; ;learn about the original frome here: ;https://stardot.org.uk/forums/viewtopic.php?t=25833 ;seems to be from ZXDunny, but even he said he didn't ;know where he got the algorithm from ;----------------------------------------------------------- ;CONST n=200,r=TAU/235: ;x, y, v, t=0, sz=200,sw=SCRW/sz,sh=SCRH/sz: ;WINDOW DEPTH 0,32: ;ORIGIN -sw,-sh TO sw,sh: ;SCREEN LOCK: ;DO: ; CLS 0: ; FOR i=0 TO n; j=0 TO n: ; u=SIN(i+v)+SIN(r*i+x), ; v=COS(i+v)+COS(r*i+x), ; x=u+t: ; PLOT INK RGBTOINT(i,j,99);u,v: ; NEXT j;i: ; t+=.025: ; WAIT SCREEN: ;LOOP ; ;Modifications by me: n=255, BLUE component = ABS(v)*127, dt and sz are adjusted to fit here
[ back to the prod ]