"Demo Scene" programming

Page 2/3
1 | | 3

By NYYRIKKI

Enlighted (5391)

NYYRIKKI's picture

08-01-2015, 17:18

CX5Mer wrote:

Even then, I need to go on a shopping trip, so I may not want to leave my VG8235 running for several hours while I'm out.

LOL, sorry I have no idea how long it takes. As Vampier wanted to keep the examples as simple as possible, I didn't do any speed optimizations or added any commands that are not absolutely minimum requirements. Optimization is left to user. Wink I only know I didn't want to run it "as is". Cool

By mtn

Master (248)

mtn's picture

08-01-2015, 18:09

Diamonds are for girls and plasmas are forever!

Maybe a (insert-danish-multinational-brewery-name)-moment that is even "worth waiting for", CX5ER.
Also your computer wont be hurt by all the computing it will do Smile

Or use emu

By CX5Mer

Champion (322)

CX5Mer's picture

08-01-2015, 18:57

Well, it's been a few hours now and seems like it will take a couple of hours more. I didn't go on my shopping trip anyway. I'll take a pic when the screen is full up.

By Meits

Scribe (5545)

Meits's picture

08-01-2015, 20:02

put it in openMSX and throttle it... You can save what's on screen to a graphical file which you can load afterwards to save yourself from letting the code recalculate everything...

By CX5Mer

Champion (322)

CX5Mer's picture

08-01-2015, 21:00

Unfortunately, the program stopped with Syntax error in 60, because I forgot the = sign! I made up a short program to check the contents of my VRAM. Here it is...

10 FOR N=0 TO 4096
20 PRINT VPEEK(N);" ";
30 NEXT N

This program prints a list of various numbers on my text screen (SCREEN 0) which the Plasma animation program exited to. This indicates to me that the graphics data generated by that program is still there, but will disappear as soon as I execute a SCREEN 5 command. I assume the graphic screen generated was random and would never occur again exactly the same. I never had an MSX2 until a few weeks ago, because I live in Britain. I'm now trying to find the right parameters for the BSAVE command to save that screen to disk. Perhaps someone on here can tell me the right form of the command ASAP. This may be something like BSAVE"filename",0,65535 , but I'm not sure, so I need to check.

By Grauw

Ascended (8457)

Grauw's picture

08-01-2015, 21:19

Add ,S at the end. Also one screen 5 image is 27136 bytes:

BSAVE "filename",0,27135,S

To view it:

SCREEN 5:BLOAD "filename",S:I$=INPUT$(1)

By CX5Mer

Champion (322)

CX5Mer's picture

08-01-2015, 21:14

So in that case, do I type BSAVE"filename",0,27136,S , or what is the exact command? I've just type that in direct mode and it saved something into a new file I called PLASMA1, but I can't check it at the moment in case I lose my graphics screen.

By Grauw

Ascended (8457)

Grauw's picture

08-01-2015, 21:17

I edited my post above.

By Manuel

Ascended (15763)

Manuel's picture

08-01-2015, 21:40

NYYRIKKI wrote:
CX5Mer wrote:

Even then, I need to go on a shopping trip, so I may not want to leave my VG8235 running for several hours while I'm out.

LOL, sorry I have no idea how long it takes. As Vampier wanted to keep the examples as simple as possible, I didn't do any speed optimizations or added any commands that are not absolutely minimum requirements. Optimization is left to user. Wink I only know I didn't want to run it "as is". Cool

On a normal MSX2 about 4 hours, on a turboR about 45 minutes Tongue

Quote:

Unfortunately, the program stopped with Syntax error in 60, because I forgot the = sign!

But there is no = sign in that line, is there!

By JohnHassink

Ambassador (5415)

JohnHassink's picture

08-01-2015, 23:31

Manuel wrote:

But there is no = sign in that line, is there!

I think he's talking about this one:

10 SCREEN 5
20 FOR Y=0 TO 211:FOR X=0 TO 255
30 PSET (X,Y),(SIN(X/22)+COS(Y/20)+SIN((X+Y)/19))*8AND15
40 NEXT X,Y
50 I=(I+1)AND15:COLOR=(I,0,0,0):COLOR=((I+1)AND15,7,7,7)
60 IF INKEY$="" THEN 50
Page 2/3
1 | | 3