msx video trash thing

Page 1/2
| 2

Par poke-1,170

Paragon (1782)

Portrait de poke-1,170

01-11-2008, 01:29

well, ehmm I messed around in basic (with no noticable knowledge)
and came up with this video trashing thing. You can move your joystick around
and it scrambles up video basically.

http://vimeo.com/2121731

Maybe someone finds it entertaining :P

!login ou Inscrivez-vous pour poster

Par Manuel

Ascended (19273)

Portrait de Manuel

01-11-2008, 12:08

Can you paste the program here? Smile

Par Sd-Snatcher

Hero (582)

Portrait de Sd-Snatcher

01-11-2008, 13:56

A bunch of OUTS or copys Tongue

Par poke-1,170

Paragon (1782)

Portrait de poke-1,170

01-11-2008, 18:49

out ? copy ?

I think copy is too slow (tried that).
it's ehhh... copy screen so it captures a picture,
then it does something with vdp(2) whatever that does again Tongue
it keeps capturing images like that and applying that vdp thingy.
Actually I think the 8280 is a lovely machine and I think
you could do loads of nice realtime effects... provided you got
a clue of what you're doing... which I dont hahaha

Par Manuel

Ascended (19273)

Portrait de Manuel

01-11-2008, 18:52

Yeah, I knew you were doing something with COPY SCREEN. What are you doing with VDP(2)? Aw come on, just give us the program Smile

Par poke-1,170

Paragon (1782)

Portrait de poke-1,170

01-11-2008, 18:57

haha I'd be too embarassed to even show Tongue
Plus, I don't quite know how you could transfer the code from msx > pc as a textfile ?
Can it be done in an emu ?
I believe it's x=x+1, added to vdp (2), where the joystick movement increases the value
or something. What surprises me is how fast the msx does it realy. Oh the crappy colours
are from capturing the image in screen 6 instead of 8, so I suppose it has a different color table ?

Par Manuel

Ascended (19273)

Portrait de Manuel

01-11-2008, 19:09

Screen 6 has only 4 colours... but high res and low VRAM use.

Yes it can be done in an emu, e.g., you could LLIST it and the output usually ends up in a text file. Or you can save it like this: SAVE"MYPROG.BAS",A and the resulting file is just a text file. Get it from the disk image (or dir, if you used dir-as-disk) and paste it here Smile

Par poke-1,170

Paragon (1782)

Portrait de poke-1,170

01-11-2008, 19:13

right, will do that when I'm back home, will give it a try Smile There's not much to it, I glued some stuff together
about 7 years ago and decided to check what I made then this weekend. Would be nice to have some cool
effects it can do realtime, maybe with the set page commands or something.
I also noticed screen 5 captures all that stuff in green (or is it 7? hmm)
I had the idea back then that you could use the 8280as some kind of videoprocessor,
and add strange effects to incoming video. can't find the "latest" version of the program
again, where I trial and error explored vdp registers (24 does vertical scroll I believe).
I guess the base command also has something to do with vram ?

Par poke-1,170

Paragon (1782)

Portrait de poke-1,170

01-11-2008, 21:19

hah, that's a damn convenient thing, saving files like that ^_^
Ok.... here comes the horrible... basic... thing

10 SET VIDEO 1,0
20 SCREEN 8:COLOR 0,0,255
30 D=STICK(0)
40 A$=INKEY$:IF A$="1"THEN GOSUB 190
50 A=A+1:IF A>255 THEN A=1
60 B=B-1:IF B<1 THEN B=255
70 C=AMODB:IF B<1 THEN B=255
80 IF D=1 THEN COPY (1,1)-(255,211) TO(Y,X)
90 IF D=2 THEN CLS
100 IF D=3 THEN X=X+1:VDP(2)=A
110 IF D=4 THEN X=X+1
120 IF D=5 THEN Y=Y+3:VDP(2)=B
130 IF D=6 THEN Y=Y+1
140 IF D=7 THEN X=X-3:GOSUB 170
150 IF D=8 THEN SET PAGE 0,0
160 GOTO 30
170 COPY SCREEN:SET PAGE 1,1
180 RETURN
190 SCREEN 5
191 D=STICK(0)
200 D=STICK(0):COPY SCREEN
210 A=A+1:IF A>255 THEN A=1
220 B=B-1:IF B<1 THEN B=255
230 C=AMODB:IF B<1 THEN B=255
240 IF D=1 THEN COPY (1,1)-(255,211) TO(Y,X)
250 IF D=2 THEN CLS
260 IF D=3 THEN X=X+1:VDP(2)=A
270 IF D=4 THEN X=X+1
280 IF D=5 THEN Y=Y+3:VDP(2)=B
290 IF D=6 THEN Y=Y+1
300 IF D=7 THEN X=X-3:GOSUB 170
310 IF D=8 THEN SET PAGE 0,0
320 GOTO 200

Par AuroraMSX

Paragon (1902)

Portrait de AuroraMSX

02-11-2008, 11:58

Interesting spagetti Tongue I'm wondering about 3 things:

  • Once you're in screen 5 mode (line 190 and futher) you can't go back to screen 8
  • In screen 8 mode, you only capture on a stick trigger (line 140), in screen 5 unconditionally on every loop (line 200) and on the stick trigger (line 300)
  • C is calculated but not used LOL!

Ah well... I couldn't resist

0 REMARKABLE STUFFE HERE - UNTESTED!
10 SET VIDEO 1,0:S=8:M=0
20 SCREEN S:COLOR 0,0,15-(240*(S=8))
30 '
40 A$=INKEY$
50 IF A$="1" THEN S=13-S: GOTO 20
60 IF A$="2" THEN M=1-M
70 '
80 D=STICK(0): IF M THEN COPY SCREEN
100 A=A+1:IF A>255 THEN A=1
110 B=B-1:IF B<1 THEN B=255
120 ON D GOTO 130,140,150,160,170,180,190,200
130 COPY (1,1)-(255,211) TO(X,Y): GOTO 40
140 CLS: GOTO 40
150 Y=Y+1:VDP(2)=A: GOTO 40
160 Y=Y+1: GOTO 40
170 X=X+3:VDP(2)=B: GOTO 40
180 X=X+1: GOTO 40
190 Y=Y-3: IF M THEN GOTO 40 ELSE COPY SCREEN: SETPAGE 1,1: GOTO 40
200 SET PAGE 0,0: GOTO 40

Use [1] to toggle between screen 5 and 8, [2] to toggle between triggered and continuous capture...

Par poke-1,170

Paragon (1782)

Portrait de poke-1,170

02-11-2008, 12:47

heh, wow cool thing you can see that without having the program running Big smile
Yeah true, I switched it on permanently in screen 5 to see what it does
and off in 8. My idea would be to have the joystick button to jump to another
part of the listing with an effect every time it's used.
Hey I'm gonna try this listing Smile do I need to type it by hand or can you somehow get this
as a .bas file back into the msx as well ?
There was something I wanted to try but couldn't get to work, namely having a continuous
capturing combined with vdp 24 so it would be able to scroll the video up and down using
the stick command.

Page 1/2
| 2