Basic hat

Page 1/4
| 2 | 3 | 4

By ARTRAG

Enlighted (6083)

ARTRAG's picture

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

By Manuel

Ascended (15107)

Manuel's picture

02-03-2015, 23:00

This takes about 1.5 hours on a plain MSX2 Tongue

By ARTRAG

Enlighted (6083)

ARTRAG's picture

02-03-2015, 23:32

Awesome, isn't it ? ;-)

By Grauw

Enlighted (7840)

Grauw's picture

03-03-2015, 00:05

Nice Smile. R800 + openMSX throttle ftw Smile.

By AxelStone

Prophet (2641)

AxelStone's picture

03-03-2015, 12:24

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

By mars2000you

Enlighted (5429)

mars2000you's picture

03-03-2015, 12:44

5 minutes on blueMSX with R800 and emulation speed 1000%

By NYYRIKKI

Enlighted (5172)

NYYRIKKI's picture

03-03-2015, 15:56

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

By Grauw

Enlighted (7840)

Grauw's picture

03-03-2015, 18:14

NYYRIKKI wrote:

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

Like!

By Lord_Zett

Paladin (807)

Lord_Zett's picture

03-03-2015, 18:55

Big smile kunbasic! and NYYRIKKI

By Poltergeist

Champion (269)

Poltergeist's picture

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...

By mars2000you

Enlighted (5429)

mars2000you's picture

03-03-2015, 19:38

Probably 2 or 3 seconds !

Page 1/4
| 2 | 3 | 4
My MSX profile