Retro effects...

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|515\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> Retro effects...
Thu, 15 Jan 2009, 05:07
spinal	I'm feeling a little retro today, so I've started putting together a couple of r retro gfx effects on my DS (yes I know this is a blitz topic) I'm looking for the sort of stuff you used to see in old demos (with source obviously), so far I have converted some blobby code to reveal an image, rather than draw some blobs, and good old fashioned plasma using palette rotation. If anyone has anything in their collection, please post it, the simple theb better (i will be converting these to C and i'm not very good at that). Here is a wonderful screenshot of the two current effects. -=-=- Check out my excellent homepage!
Thu, 15 Jan 2009, 09:51
Phoenix	Well here's 2+ years old one. Haven't done any effect coding for ages so I don't really have any "collection".
Thu, 15 Jan 2009, 10:39
Jayenkai	SeedRnd MilliSecs() Graphics 768,576,32,2 Graphics 256,192,32,3 SetBuffer BackBuffer() Buffer=CreateImage(256,192) Blocksize=32 W=256/BlockSize H=192/BlockSize Dim Pos(w,h,2) Dim wave#(30,4) Dim col#(6) w=w-1 h=h-1 For x=0 To w For y=0 To h pos(x,y,1)=xBlockSize pos(x,y,2)=yBlockSize Next Next For n=1 To 3 col(n)=Rand(180,255) col(n+3)=Rand(1,3) Next For n=0 To 30 wave(n,1)=Rand(256) wave(n,2)=Rand(192) wave(n,3)=Rand(1,3):If Rand(1,2)=1 Then wave(n,3)=-wave(n,3) wave(n,4)=Rand(1,3):If Rand(1,2)=1 Then wave(n,4)=-wave(n,4) Next Repeat Cls SetBuffer ImageBuffer(buffer) For n=1 To 30 Color Rand(80),Rand(80),Rand(80) Line Rand(256),Rand(192),Rand(256),Rand(192) Next For n=1 To 3 col(n)=col(n)+col(n+3)/4 If col(n)>255 Then col(n)=255:col(n+3)=-Rand(1,3) If col(n)<180 Then col(n)=180:col(n+3)=Rand(1,3) Next Color col(1),col(2),col(3) For n=0 To 30 wave(n,1)=wave(n,1)+wave(n,3)/4 If wave(n,1)>256 Then wave(n,1)=256:wave(n,3)=-Rand(1,3) If wave(n,1)<0 Then wave(n,1)=0:wave(n,3)=Rand(1,3) wave(n,2)=wave(n,2)+wave(n,4)/4 If wave(n,2)>192 Then wave(n,2)=192:wave(n,4)=-Rand(1,3) If wave(n,2)<0 Then wave(n,2)=0:wave(n,4)=Rand(1,3) If n>0 Then Line wave(n,1),wave(n,2),wave(n-1,1),wave(n-1,2) Next SetBuffer BackBuffer() If stp=0 d=wasd If Rand(1,4)=1 Then Repeat:newd=Rand(1,4):Until (newd Mod 2)<>(wasd Mod 2):wasd=newd If gapx=w And d=1 Then d=0:Repeat:wasd=Rand(1,4):Until wasd<>3 And wasd<>1 If gapy=h And d=2 Then d=0:Repeat:wasd=Rand(1,4):Until wasd<>4 And wasd<>2 If gapx=0 And d=3 Then d=0:Repeat:wasd=Rand(1,4):Until wasd<>1 And wasd<>3 If gapy=0 And d=4 Then d=0:Repeat:wasd=Rand(1,4):Until wasd<>2 And wasd<>4 If d=1 Then gapx=gapx+1 If d=2 Then gapy=gapy+1 If d=3 Then gapx=gapx-1 If d=4 Then gapy=gapy-1 For x=0 To w For y=0 To h If pos(x,y,1)=gapxBlockSize And pos(x,y,2)=gapyBlockSize Then dox=x:doy=y Next Next If d<>0 Then stp=1 EndIf If stp>0 stp=stp+1 If d=1 Then pos(dox,doy,1)=pos(dox,doy,1)-2 If d=2 Then pos(dox,doy,2)=pos(dox,doy,2)-2 If d=3 Then pos(dox,doy,1)=pos(dox,doy,1)+2 If d=4 Then pos(dox,doy,2)=pos(dox,doy,2)+2 If stp=(BlockSize/2)+1 Then stp=0 EndIf For x=0 To w For y=0 To h dome=1 If x=0 And y=0 Then dome=0 If dome=1 Then CopyRect xBlockSize,yBlockSize,BlockSize,BlockSize,pos(x,y,1),pos(x,y,2),ImageBuffer(buffer),BackBuffer() Next Next Flip Until KeyDown(1) --v -=-=- ''Load, Next List!''
Thu, 15 Jan 2009, 23:08
JL235	Can you post pictures?
Fri, 16 Jan 2009, 01:23
Jayenkai	Um, ok... But it's a bizarre scrambled picture that makes no sense! It works better when moving. It's a typical "Mystify" swirling line thing, except the whole screen additionally shifts about like one of those old fashioned slider puzzles, whilst the Mystify carries on inside it's squares.. ie, it draws Mystify to a buffer, then copies squares of that buffer to where the shuffled grid's squares should be. -=-=- ''Load, Next List!''
Fri, 16 Jan 2009, 07:33
shockwave	What about a twister? ' ROTATING BAR THING BY SHOCKWAVE (C) 2006 -- ' ' '-------------------------------------------- '=============================================================================== ' DEFINE CONSTANTS AND INITIALISE STUFF; '=============================================================================== OPTION STATIC OPTION EXPLICIT CONST XRES = 640 : ' SCREEN WIDTH. CONST YRES = 480 : ' SCREEN HEIGHT. CONST XCENT = XRES / 2 : ' X CENTRE OF SCREEN. CONST YCENT = YRES / 2 : ' Y CENTRE OF SCREEN. CONST RAD_2_DEG AS DOUBLE = ( (4ATN(1)) / 180 ) #define ptc_win #Include Once "tinyptc.bi" DIM SHARED AS UINTEGER BUFFER ( XRES YRES ) :' THE SCREEN BUFFER. DECLARE SUB TWISTY() DIM SHARED GADD AS DOUBLE '=============================================================================== ' OPEN THE SCREEN; '=============================================================================== IF ( PTC_OPEN ( "DBF / GVY ADVERTRO", XRES, YRES ) = 0 ) THEN END -1 END IF '=============================================================================== ' MAIN LOOP; '=============================================================================== DO TWISTY PTC_UPDATE@BUFFER(0) ERASE BUFFER LOOP UNTIL INKEY$=CHR$(27) END SUB TWISTY() DIM AS INTEGER X1,X2,X3,X4,L,V,RR DIM AS INTEGER Y1,Y2,Y3,Y4 DIM Q AS INTEGER DIM AS DOUBLE QQ,VVV VVV=.7SIN(GADDRAD_2_DEG) GADD=GADD+.5 FOR Q =0 TO YRES-1 X1=XCENT+(150SIN((GADD+QQ)RAD_2_DEG)) X2=XCENT+(150SIN((GADD+90+QQ)RAD_2_DEG)) X3=XCENT+(150SIN((GADD+180+QQ)RAD_2_DEG)) X4=XCENT+(150SIN((GADD+270+QQ)RAD_2_DEG)) 'BUFFER(XRESQ+(X2))=&HFFFFFF 'BUFFER(XRESQ+(X3))=&HFFFFFF 'BUFFER(XRESQ+(X4))=&HFFFFFF IF X2>X1 THEN V=X2-X1 RR=RGB(0,0,V) FOR L=X1 TO X2 BUFFER(XRESQ+(L))=RR NEXT END IF IF X3>X2 THEN V=X3-X2 RR=RGB(V,0,0) FOR L=X2 TO X3 BUFFER(XRESQ+(L))=RR NEXT END IF IF X4>X3 THEN V=X4-X3 RR=RGB(V,0,V) FOR L=X3 TO X4 BUFFER(XRESQ+(L))=RR NEXT END IF IF X1>X4 THEN V=X1-X4 RR=RGB(0,V,0) FOR L=X4 TO X1 BUFFER(XRES*Q+(L))=RR NEXT END IF QQ=QQ+VVV NEXT Q END SUB --v -=-=- https://www.dbfinteractive.com
Sat, 24 Jan 2009, 05:25
spinal	I just found this on a qbasic site, thought i'd share... Graphics 320,240,0,2 r#=0:x#=0:y#=0:z#=0:x1#=0:y1#=0 SetBuffer BackBuffer() min=-30:max=30 While(Not KeyHit(1)) r=r+1 Cls For x=min To max Step 10 For y=min To max Step 10 For z=min To max Step 10 x1 = ((x * Cos(r) - (z * Cos(r) - y * Sin(r)) * Sin(r)) * Cos(r) + (y * Cos(r) + z * Sin(r)) * Sin(r)) / (x * Sin(r) + (z * Cos(r) - y * Sin(r)) * Cos(r) + 100) y1 = ((y * Cos(r) + z * Sin(r)) * Cos(r) - (x * Cos(r) - (z * Cos(r) - y * Sin(r)) * Sin(r)) * Sin(r)) / (x * Sin(r) + (z * Cos(r) - y * Sin(r)) * Cos(r) + 100) Plot ((100 * x1 + 160), (100 * y1 + 120)) ; If x=min Or x=max Or y=min Or y=max Or z=min Or z=max Then Plot ((100 * x1 + 160), (100 * y1 + 120)) Next Next Next Flip 1 Wend --v -=-=- Check out my excellent homepage!
Sat, 24 Jan 2009, 06:55
Jayenkai	weeeeee! Now, just add sprites, and you've got yourself the Amiga vectorball edition -=-=- ''Load, Next List!''
Sat, 24 Jan 2009, 07:53
spinal	nah... no Z ordering, see... Graphics 320,240,0,3 r#=0:x#=0:y#=0:z#=0:x1#=0:y1#=0 ;ball=LoadImage("ball.bmp") Dim pal(16,3) For t=0 To 15 Read pal(t,0),pal(t,1),pal(t,2) Next ball = CreateImage (8,8) SetBuffer ImageBuffer(ball) For y=0 To 7 For x=0 To 7 Read col Color pal(col,0),pal(col,1),pal(col,2) Plot x,y Next Next SetBuffer BackBuffer() min=-40:max=40 While(Not KeyHit(1)) r=r+1 Cls For x=min To max Step 10 For y=min To max Step 10 For z=min To max Step 10 x1 = ((x * Cos(r) - (z * Cos(r) - y * Sin(r)) * Sin(r)) * Cos(r) + (y * Cos(r) + z * Sin(r)) * Sin(r)) / (x * Sin(r) + (z * Cos(r) - y * Sin(r)) * Cos(r) + 100) y1 = ((y * Cos(r) + z * Sin(r)) * Cos(r) - (x * Cos(r) - (z * Cos(r) - y * Sin(r)) * Sin(r)) * Sin(r)) / (x * Sin(r) + (z * Cos(r) - y * Sin(r)) * Cos(r) + 100) DrawImage ball,(100 * x1 + 160),(100 * y1 + 120) Next Next Next Flip 1 Wend End ;sprite palette Data 0,0,0 Data 8,31,73 Data 9,33,77 Data 10,39,91 Data 12,45,105 Data 13,48,111 Data 13,50,117 Data 15,56,133 Data 16,58,137 Data 17,63,146 Data 19,71,166 Data 20,76,178 Data 22,86,201 Data 26,102,238 Data 33,111,252 Data 187,211,255 ; sprite image Data 0,0,3,10,10,5,0,0 Data 0,9,14,14,13,12,9,0 Data 2,14,15,14,13,12,11,6 Data 8,14,14,14,13,12,11,7 Data 7,13,13,13,12,12,10,6 Data 1,12,12,12,12,11,7,4 Data 0,8,11,11,10,7,6,0 Data 0,0,3,5,4,3,0,0 --v -=-=- Check out my excellent homepage!
Sat, 24 Jan 2009, 14:58
Jayenkai	Aww.. Shame..
Sun, 25 Jan 2009, 18:32
JL235	Screenshots? Also if it's out of order, then why not order it? You could use a tree, an array of lists or even just add them all to a array/list and sort it on each frame.
Tue, 17 Feb 2009, 18:18
spinal	As a continuation of the thread, although for a different reason, I found some code for a dot tunnel done in Qbasic... DECLARE SUB PLOT (BYVAL X%, BYVAL Y%, BYVAL C%) DEFINT A-Z RANDOMIZE TIMER '$DYNAMIC DIM DD AS LONG DIM XLAT(0 TO 63) FOR A = 0 TO 63 B = A IF B > 20 THEN B = 20 XLAT(A) = B NEXT A DIM XADD(0 TO 255), YADD(0 TO 255) DIM X(0 TO 64), Y(0 TO 64), S(0 TO 64), C(0 TO 64) DIM COSV(0 TO 255, 0 TO 63), SINV(0 TO 255, 0 TO 63) DEG# = (1.74532925199433D-02 * 180#) / 128# FOR A = 0 TO 255 CV# = COS(A * DEG#) SV# = SIN(A * DEG#) XADD(A) = (CV# * 80) + 160 YADD(A) = (SV# * 50) + 100 FOR D = 0 TO 63 E = (D * 200) \ 63 F = (D * 125) \ 63 COSV(A, D) = CV# * (80 + E) SINV(A, D) = SV# * (50 + F) NEXT D NEXT A SCREEN 13 XDIR = INT(RND(1) * 3) + 1 YDIR = INT(RND(1) * 3) + 1 SDIR = INT(RND(1) * 3) - 1 CDIR = (INT(RND(1) * 3) - 1) * 21 X(0) = INT(RND(1) * 256) Y(0) = INT(RND(1) * 256) S(0) = INT(RND(1) * 8) C(0) = INT(RND(1) * 12) * 21 DATA 1,1,3 DATA 0,2,3 DATA 0,3,3 DATA 0,3,2 DATA 1,3,1 DATA 2,3,0 DATA 3,3,0 DATA 3,2,0 DATA 3,1,1 DATA 3,0,2 DATA 3,0,3 DATA 2,0,3 FOR B = 1 TO 12 READ RC, GC, BC FOR A = 0 TO 21 OUT &H3C8, A + ((B - 1) * 21) OUT &H3C9, A * RC OUT &H3C9, A * GC OUT &H3C9, A * BC NEXT A NEXT B FOR L = 1 TO 64 FOR A = 64 TO 1 STEP -1 X(A) = X(A - 1) Y(A) = Y(A - 1) S(A) = S(A - 1) C(A) = C(A - 1) NEXT A X(0) = (X(1) + XDIR) AND 255 Y(0) = (Y(1) + YDIR) AND 255 S(0) = (S(1) + SDIR) AND 7 C(0) = (C(1) + CDIR) IF C(0) < 0 THEN C(0) = 231 IF C(0) > 231 THEN C(0) = 0 IF INT(RND(1) * 256) = 0 THEN XDIR = INT(RND(1) * 3) + 1 IF INT(RND(1) * 256) = 0 THEN YDIR = INT(RND(1) * 3) + 1 IF INT(RND(1) * 64) = 0 THEN SDIR = INT(RND(1) * 3) - 1 IF INT(RND(1) * 64) = 0 THEN CDIR = (INT(RND(1) * 3) - 1) * 21 NEXT L XMUL = 0 DO FOR A = 64 TO 1 STEP -1 X(A) = X(A - 1) Y(A) = Y(A - 1) S(A) = S(A - 1) C(A) = C(A - 1) NEXT A X(0) = (X(1) + XDIR) AND 255 Y(0) = (Y(1) + YDIR) AND 255 S(0) = (S(1) + SDIR) AND 7 C(0) = (C(1) + CDIR) IF C(0) < 0 THEN C(0) = 231 IF C(0) > 231 THEN C(0) = 0 IF INT(RND(1) * 256) = 0 THEN XDIR = INT(RND(1) * 3) + 1 IF INT(RND(1) * 256) = 0 THEN YDIR = INT(RND(1) * 3) + 1 IF INT(RND(1) * 64) = 0 THEN SDIR = INT(RND(1) * 3) - 1 IF INT(RND(1) * 64) = 0 THEN CDIR = (INT(RND(1) * 3) - 1) * 21 FOR D = 0 TO 63 FOR A = S(D + 1) TO 255 STEP 8 PLOT COSV(A, D) + XADD(X(D + 1)), SINV(A, D) + YADD(Y(D + 1)), 0 NEXT A FOR A = S(D) TO 255 STEP 8 PLOT COSV(A, D) + XADD(X(D)), SINV(A, D) + YADD(Y(D)), XLAT(D) + C(D) NEXT A NEXT D LOOP WHILE INKEY$ = "" --v I had a (very) quick try to get it working in blitz, but it seems to leave a few gaps. I noticed one of the variables is declared as long in the qbasic code, can blitz do this? If anyone gets bored enough, can they look at it? see what's not happening right and maybe fix it? I'm not going to pretend I know how it works or anything like that... Graphics 640,480,0,2 Graphics 320,240,0,3 SeedRnd MilliSecs() ;Dim DD AS LONG Dim XLAT(63) FOR A = 0 TO 63 B = A IF B > 20 THEN B = 20 XLAT(A) = B Next Dim XADD(255), YADD(255) Dim X(64), Y(64), S(64), C(64) Dim COSV(255, 63), SINV(255, 63) DEG# = (1.74532925199433 * 180) / 128 For A = 0 To 255 CV# = COS(A * DEG#) SV# = SIN(A * DEG#) XADD(A) = (CV# * 80) + 160 YADD(A) = (SV# * 50) + 100 FOR D = 0 TO 63 E = (D * 200) / 63 F = (D * 125) / 63 COSV(A, D) = CV# * (80 + E) SINV(A, D) = SV# * (50 + F) Next Next ;SCREEN 13 XDIR = Int(Rnd(1) * 3) + 1 YDIR = INT(RND(1) * 3) + 1 SDIR = INT(RND(1) * 3) - 1 CDIR = (INT(RND(1) * 3) - 1) * 21 X(0) = INT(RND(1) * 256) Y(0) = INT(RND(1) * 256) S(0) = INT(RND(1) * 8) C(0) = INT(RND(1) * 12) * 21 DATA 1,1,3 DATA 0,2,3 DATA 0,3,3 DATA 0,3,2 DATA 1,3,1 DATA 2,3,0 DATA 3,3,0 DATA 3,2,0 DATA 3,1,1 DATA 3,0,2 DATA 3,0,3 Data 2,0,3 Dim pal(256,2) For B = 1 To 12 READ RC, GC, BC FOR A = 0 TO 21 ; OUT &H3C8, A + ((B - 1) * 21) ; OUT &H3C9, A * RC ; OUT &H3C9, A * GC ; OUT &H3C9, A * BC pal(A + ((B - 1) * 21),0)=A * RC 4 pal(A + ((B - 1) 21),1)=A * GC 4 pal(A + ((B - 1) 21),2)=A * BC 4 Next Next FOR L = 1 TO 64 FOR A = 64 TO 1 STEP -1 X(A) = X(A - 1) Y(A) = Y(A - 1) S(A) = S(A - 1) C(A) = C(A - 1) Next X(0) = (X(1) + XDIR) AND 255 Y(0) = (Y(1) + YDIR) AND 255 S(0) = (S(1) + SDIR) AND 7 C(0) = (C(1) + CDIR) IF C(0) < 0 THEN C(0) = 231 IF C(0) > 231 THEN C(0) = 0 IF INT(RND(1) 256) = 0 THEN XDIR = INT(RND(1) * 3) + 1 IF INT(RND(1) * 256) = 0 THEN YDIR = INT(RND(1) * 3) + 1 IF INT(RND(1) * 64) = 0 THEN SDIR = INT(RND(1) * 3) - 1 IF INT(RND(1) * 64) = 0 THEN CDIR = (INT(RND(1) * 3) - 1) * 21 Next XMUL = 0 ;DO SetBuffer BackBuffer() While Not KeyDown(1) FOR A = 64 TO 1 STEP -1 X(A) = X(A - 1) Y(A) = Y(A - 1) S(A) = S(A - 1) C(A) = C(A - 1) Next X(0) = (X(1) + XDIR) AND 255 Y(0) = (Y(1) + YDIR) AND 255 S(0) = (S(1) + SDIR) AND 7 C(0) = (C(1) + CDIR) IF C(0) < 0 THEN C(0) = 231 IF C(0) > 231 THEN C(0) = 0 IF INT(RND(1) * 256) = 0 THEN XDIR = INT(RND(1) * 3) + 1 IF INT(RND(1) * 256) = 0 THEN YDIR = INT(RND(1) * 3) + 1 IF INT(RND(1) * 64) = 0 THEN SDIR = INT(RND(1) * 3) - 1 IF INT(RND(1) * 64) = 0 THEN CDIR = (INT(RND(1) * 3) - 1) * 21 For D = 0 To 63 For A = S(D + 1) To 255 Step 4 Color 0,0,0 Plot COSV(A, D) + XADD(X(D + 1)), SINV(A, D) + YADD(Y(D + 1)) Next For A = S(D) To 255 Step 4 Color pal(XLAT(D) + C(D),0),pal(XLAT(D) + C(D),1),pal(XLAT(D) + C(D),2) ; Color XLAT(D) + C(D),XLAT(D) + C(D),XLAT(D) + C(D) Plot COSV(A, D) + XADD(X(D)), SINV(A, D) + YADD(Y(D)) Next Next Flip 1 Wend End ;LOOP While INKEY$ = "" --v -=-=- Check out my excellent homepage!
Sun, 08 Mar 2009, 10:22
spinal	ok, i got that dot tunnel working in blitz... now i cant get it working in c Graphics 800,600,0,2 ;Graphics 320,240,0,3 Dim XLAT(63) FOR A = 0 TO 63 B = A IF B > 20 THEN B = 20 XLAT(A) = B Next Dim XADD(255), YADD(255) Dim X(64), Y(64), S(64), C(64) Dim COSV(255, 63), SINV(255, 63) DEG# = (1.74533 * 180) / 220 For A = 0 To 255 CV# = COS(A * DEG#) SV# = SIN(A * DEG#) XADD(A) = (CV# * 80) + 160 YADD(A) = (SV# * 50) + 100 FOR D = 0 TO 63 E = (D * 200) / 63 F = (D * 125) / 63 COSV(A, D) = CV# * (80 + E) SINV(A, D) = SV# * (50 + F) Next Next ;SCREEN 13 XDIR = Int(Rnd(1) * 3) + 1 YDIR = INT(RND(1) * 3) + 1 SDIR = INT(RND(1) * 3) - 1 CDIR = (INT(RND(1) * 3) - 1) * 21 X(0) = INT(RND(1) * 256) Y(0) = INT(RND(1) * 256) S(0) = INT(RND(1) * 8) C(0) = INT(RND(1) * 12) * 21 Data 1,1,3 DATA 0,2,3 DATA 0,3,3 DATA 0,3,2 DATA 1,3,1 DATA 2,3,0 DATA 3,3,0 DATA 3,2,0 DATA 3,1,1 DATA 3,0,2 DATA 3,0,3 Data 2,0,3 Dim pal(256,2) For B = 1 To 12 READ RC, GC, BC FOR A = 0 TO 21 ; OUT &H3C8, A + ((B - 1) * 21) ; OUT &H3C9, A * RC ; OUT &H3C9, A * GC ; OUT &H3C9, A * BC pal((A + ((B - 1) * 21)),0) = A * RC 4 pal((A + ((B - 1) 21)),1) = A * GC 4 pal((A + ((B - 1) 21)),2) = A * BC 4 Next Next FOR L = 1 TO 64 FOR A = 64 TO 1 STEP -1 X(A) = X(A - 1) Y(A) = Y(A - 1) S(A) = S(A - 1) C(A) = C(A - 1) Next X(0) = (X(1) + XDIR) AND 255 Y(0) = (Y(1) + YDIR) AND 255 S(0) = (S(1) + SDIR) AND 7 C(0) = (C(1) + CDIR) IF C(0) < 0 THEN C(0) = 231 IF C(0) > 231 THEN C(0) = 0 IF INT(RND(1) 256) = 0 THEN XDIR = INT(RND(1) * 3) + 1 IF INT(RND(1) * 256) = 0 THEN YDIR = INT(RND(1) * 3) + 1 IF INT(RND(1) * 64) = 0 THEN SDIR = INT(RND(1) * 3) - 1 IF INT(RND(1) * 64) = 0 THEN CDIR = (INT(RND(1) * 3) - 1) * 21 Next pixel=CreateImage(15,15,256) For t=0 To 255 SetBuffer ImageBuffer(pixel,t) Color pal(t,0),pal(t,1),pal(t,2) Rect 0,0,15,15,1 Color 1,1,1 Rect 0,0,15,15,0 Next SetBuffer BackBuffer() While Not KeyDown(1) For A = 64 To 1 Step -1 X(A) = X(A - 1) Y(A) = Y(A - 1) S(A) = S(A - 1) C(A) = C(A - 1) Next X(0) = (X(1) + XDIR) AND 255 Y(0) = (Y(1) + YDIR) AND 255 S(0) = (S(1) + SDIR) AND 7 C(0) = (C(1) + CDIR) IF C(0) < 0 THEN C(0) = 231 IF C(0) > 231 THEN C(0) = 0 IF INT(RND(1) * 256) = 0 THEN XDIR = INT(RND(1) * 3) + 1 IF INT(RND(1) * 256) = 0 THEN YDIR = INT(RND(1) * 3) + 1 IF INT(RND(1) * 64) = 0 THEN SDIR = INT(RND(1) * 3) - 1 IF INT(RND(1) * 64) = 0 THEN CDIR = (INT(RND(1) * 3) - 1) * 21 Cls For D = 0 To 53 Step 1 For A = S(D) To 255 Step 4 Color pal((XLAT(D) + C(D)),0),pal((XLAT(D) + C(D)),1),pal((XLAT(D) + C(D)),2) xp1=xp:yp1=yp xp= COSV(A, D) + XADD(X(D)) yp= SINV(A, D) + YADD(Y(D)) DrawBlock pixel,xp,yp,XLAT(D) + C(D) ; xp1= COSV(A, D+1) + XADD(X(D+2)) ; yp1= SINV(A, D+1) + YADD(Y(D+2)) ;; tx=xp:If xp>xp1 Then tx=xp1 ; ty=yp:If yp>yp1 Then ty=yp1 ; Rect xp,yp,15,15,1 ; Color 0,0,0 ; Rect xp,yp,15,15,0 ; Plot xp,yp ;Line xp,yp,xp1,yp1 Next Next Flip 1 Wend End --v c code... // Includes #include <PA9.h> // Include for PA_Lib #include <stdio.h> #include <math.h> int A,B,D,E,F; int XLAT[63]; int XADD[255], YADD[255]; int X[64], Y[64], S[64], C[64]; int COSV[255][63], SINV[255][63]; float DEG = (1.74533 * 180) / 220; float CV,SV; int XDIR,YDIR,SDIR,CDIR; char pal[256][3]; // Function: main() int main(int argc, char ** argv) { PA_Init(); // Initializes PA_Lib PA_InitVBL(); // Initializes a standard VBL PA_Init8bitBg(1,3); PA_InitText(0,0); PA_OutputText(0,0,0,"Qbasic -> BlitzBasic ->PALib \n Dot Tunnel"); // setup stuff for(A = 0; A< 63; A++){ B = A; if (B > 20)B = 20; XLAT[A] = B; } for(A = 0; A< 255; A++){ CV = cos(A * DEG); SV = sin(A * DEG); XADD[A] = (CV * 80) + 128; YADD[A] = (SV * 50) + 96; for(D = 0; D<63; D++){ E = (D * 200) / 63; F = (D * 125) / 63; COSV[A][D] = CV * (80 + E); SINV[A][D] = SV * (50 + F); } } XDIR = PA_RandMax(1)3 + 1; YDIR = PA_RandMax(1)3 + 1; SDIR = PA_RandMax(1)3 - 1; CDIR = PA_RandMax(1)3 * 21; u8 RC[13]={1,0,0,0,1,2,3,3,3,3,3,2}; u8 GC[13]={1,2,3,3,3,3,3,2,1,0,0,0}; u8 BC[13]={3,3,3,2,1,0,0,0,1,2,3,3}; for(B = 1; B< 12; B++){ for(A = 0; A< 21; A++){ // pal[A + ((B - 1) * 21)][0] = A * RC[B] /2; // pal[A + ((B - 1) * 21)][1] = A * GC[B] /2; // pal[A + ((B - 1) * 21)][2] = A * BC[B] /2; PA_SetBgPalCol(1, A + ((B - 1) * 21), PA_RGB(A * RC[B] /2,A * GC[B] /2,A * BC[B] /2)); } } int L; for(L = 1; L<= 64; L++){ for(A = 64; A> 1; A--){ X[A] = X[A - 1]; Y[A] = Y[A - 1]; S[A] = S[A - 1]; C[A] = C[A - 1]; }//A X[0] = (X[1] + XDIR) & 255; Y[0] = (Y[1] + YDIR) & 255; S[0] = (S[1] + SDIR) & 7; C[0] = (C[1] + CDIR); if(C[0] < 0)C[0] = 231; if(C[0] > 231)C[0] = 0; if(PA_RandMinMax(0,256) == 0) XDIR = PA_RandMinMax(1,3) + 1; if(PA_RandMinMax(0,256) == 0) YDIR = PA_RandMinMax(1,3) + 1; if(PA_RandMinMax(0,64) == 0) SDIR = PA_RandMinMax(1,3) - 1; if(PA_RandMinMax(0,64) == 0) CDIR = (PA_RandMinMax(1,3) -1)* 21; }//L int xp,yp; while(1) { for(A = 64; A>1; A--){ X[A] = X[A-1]; Y[A] = Y[A-1]; S[A] = S[A-1]; C[A] = C[A-1]; } X[0] = (X[1] + XDIR) & 255; Y[0] = (Y[1] + YDIR) & 255; S[0] = (S[1] + SDIR) & 7; C[0] = (C[1] + CDIR); if(C[0] < 0)C[0] = 231; if(C[0] > 231)C[0] = 0; if(PA_RandMax(1)256 == 0) XDIR = (PA_RandMax(1)3) + 1; if(PA_RandMax(1)256 == 0) YDIR = (PA_RandMax(1)3) + 1; if(PA_RandMax(1)64 == 0) SDIR = (PA_RandMax(1)3) - 1; if(PA_RandMax(1)64 == 0) CDIR = ((PA_RandMax(1)3) -1)* 21; //cls //PA_Clear8bitBg(1); for(D = 0; D<= 53; D+=3){ for(A = S[D+1]; A<=255; A+=4){ xp = COSV[A][D] + XADD[X[D+1]]; yp = SINV[A][D] + YADD[Y[D+1]]; if(xp>=0 && xp<255 && yp>=0 && yp<191) PA_Put8bitPixel(1,xp,yp,0); }//A for(A = S[D]; A<255; A+=4){ xp = COSV[A][D] + XADD[X[D]]; yp = SINV[A][D] + YADD[Y[D]]; if(xp>=0 && xp<255 && yp>=0 && yp<191) PA_Put8bitPixel(1,xp,yp,XLAT[D] + C[D]); }//A }//D // slow it right down for now PA_WaitForVBL(); PA_WaitForVBL(); PA_WaitForVBL(); // buffer[x+screenWidthy] = color; // DMA_Copy(buffer, PA_DrawBg[1],128192, DMA_16NOW); } return(0); } // End of main() --v -=-=- Check out my excellent homepage!
Sun, 08 Mar 2009, 11:39
spinal	[double post, naughty me] I know what the problem is.... but I have F-all idea how to fix it.. qbasic DEG# = (1.74532925199433D-02 * 180#) / 128# CV# = COS(A * DEG#) : REM Qbasic uses radians blitz DEG# = 1.45329 ; entirely guess work CV# = COS(A * DEG#) ; Blitz uses degrees C float deg = ???????? CV# = COS(A * DEG) : DS uses ??? -=-=- Check out my excellent homepage!
Sun, 08 Mar 2009, 12:29
Afr0	I'm guessing the DS uses either radians or vectors. I'm not sure if vectors are for angles though, maybe they're only for positions. shrugs -=-=- Afr0 Games Project Dollhouse on Github - Please fork!