Basic hat

Enlighted (6935)

02-03-2015, 22:14

Just for fun try this (and wait for the result)

10 COLOR 15,1,1:SCREEN 6
100 DIM RR(320)
110 FOR I=0 TO 320:RR(I)=193:NEXT 
130 XP=144:XR=4.71238905:XF=XR/XP
140 FOR ZI=64 TO -64 STEP -1
150 ZT=ZI*2.25:ZS=ZT*ZT
160 XL=INT(SQR(20736-ZS)+0.5)
170 ZX=ZI+160:ZY=90+ZI
180 FOR XI=0 TO XL
190 XT=SQR(XI*XI+ZS)*XF
200 YY=(SIN(XT)+SIN(XT*3)*0.4)*56
210 X1=XI+ZX:Y1=ZY-YY
220 IF RR(X1)>Y1 THEN RR(X1)=Y1:PSET (X1,Y1),15
230 X1=ZX-XI
240 IF RR(X1)>Y1 THEN RR(X1)=Y1:PSET (X1,Y1),15
250 NEXT:NEXT
260 GOTO 260

Login or register to post comments

Ascended (19468)

02-03-2015, 23:00

This takes about 1.5 hours on a plain MSX2

Enlighted (6935)

02-03-2015, 23:32

Awesome, isn't it ? ;-)

Ascended (10768)

03-03-2015, 00:05

Nice . R800 + openMSX throttle ftw .

Prophet (3199)

03-03-2015, 12:24

Even in throttle mode it takes long time. Definitively MSX is not designed for real time rendering

Enlighted (6482)

03-03-2015, 12:44

5 minutes on blueMSX with R800 and emulation speed 1000%

Enlighted (6067)

03-03-2015, 15:56

28 seconds on R800 & BASIC kun compiler, no cheating.

Ascended (10768)

03-03-2015, 18:14

NYYRIKKI wrote:

28 seconds on R800 & BASIC kun compiler, no cheating.

Like!

Paladin (807)

03-03-2015, 18:55

kunbasic! and NYYRIKKI

Champion (280)

03-03-2015, 19:28

So, how long does it take on R800 & Basic Kun compiler, throttled to 1000%?

But that 28 seconds is impressive...

Enlighted (6482)

03-03-2015, 19:38

Probably 2 or 3 seconds !