Basic hat

Page 1/4
| 2 | 3 | 4

Par ARTRAG

Enlighted (6828)

Portrait de ARTRAG

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 ou Inscrivez-vous pour poster

Par Manuel

Ascended (18715)

Portrait de Manuel

02-03-2015, 23:00

This takes about 1.5 hours on a plain MSX2 Tongue

Par ARTRAG

Enlighted (6828)

Portrait de ARTRAG

02-03-2015, 23:32

Awesome, isn't it ? ;-)

Par Grauw

Ascended (10561)

Portrait de Grauw

03-03-2015, 00:05

Nice Smile. R800 + openMSX throttle ftw Smile.

Par AxelStone

Prophet (3093)

Portrait de AxelStone

03-03-2015, 12:24

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

Par mars2000you

Enlighted (6179)

Portrait de mars2000you

03-03-2015, 12:44

5 minutes on blueMSX with R800 and emulation speed 1000%

Par NYYRIKKI

Enlighted (5917)

Portrait de NYYRIKKI

03-03-2015, 15:56

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

Par Grauw

Ascended (10561)

Portrait de Grauw

03-03-2015, 18:14

NYYRIKKI wrote:

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

Like!

Par Lord_Zett

Paladin (807)

Portrait de Lord_Zett

03-03-2015, 18:55

Big smile kunbasic! and NYYRIKKI

Par Poltergeist

Champion (278)

Portrait de Poltergeist

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

Par mars2000you

Enlighted (6179)

Portrait de mars2000you

03-03-2015, 19:38

Probably 2 or 3 seconds !

Page 1/4
| 2 | 3 | 4