View
previous topic :: View
next topic |
Author |
Message |
Generic New
Member
Joined: 11 Nov 2002 Posts: 17 Location:
UK
|
Posted: 03 Feb
2003 00:49 Post
subject: rotozoomer |
|
|
Ack, guys, I just couldn't
help myself...
6-line Rotozoomer:
Code: |
SCREEN 13 1 ang = ang +
.08725 scale = scale + (SGN(SIN(ang)) / 10) 2
p& = (p& + 1) AND 65535 PSET (p& MOD
320, (p& - (p& MOD 320)) \ 320), (((((p& MOD
320) - 160) * COS(ang) - (((p& - (p& MOD 320)) /
320) - 100) * SIN(ang)) * scale) AND 63) OR ((((((p&
- (p& MOD 320)) / 320) - 100) * COS(ang) + ((p&
MOD 320) - 160) * SIN(ang)) * scale) AND _ 63)
IF p& = 65535 THEN GOTO 1 ELSE GOTO 2
|
Meh, could be a lot better. Maybe
someone should do a text-mode version :) | |
Back
to top |
|
 |
toonski84 I
hold this place together

Joined:
31 May 2002 Posts: 977 Location: Melbourne,
Florida
|
Posted: 03 Feb
2003 01:12 Post
subject: |
|
|
text mode graphic demos are
always fun
here, i seriously cleaned up my fire demo, and it runs
a bajillion (i've confirmed this with tests) times faster. no
funky tricks either
Code: |
1 SCREEN 13 2 FOR x% = 0 TO 127
3 PALETTE x%, x% \ 2 4 NEXT x% 5 DEF SEG =
&HA7D0 6 FOR x% = 31999 TO 0 STEP -1 7 IF x%
>= 31680 THEN POKE x%, CINT(RND * 127) ELSE POKE x%,
(PEEK(x% + 320) + PEEK(x% + 319) + PEEK(x% + 321) +
PEEK(x%) + PEEK(x% + 640)) \ 5 8 NEXT x% 9 IF
INKEY$ = "" THEN GOTO 5
| _________________ D.A.M.M. - Drunks
Against Mad Mothers | |
Back
to top |
|
 |
Dav Webmaster

Joined:
08 Sep 2001 Posts: 200 Location: USA
|
Posted: 03 Feb
2003 03:58 Post
subject: |
|
|
Cool one!
- Dav | |
Back
to top |
|
 |
Nexinarus New Member

Joined:
01 Oct 2002 Posts: 7 Location: New Zealand
|
Posted: 03 Feb
2003 05:18 Post
subject: Heh |
|
|
Im trying to make a decent
one, my first one (7 lines) is funny lol, it sucks i think..
quite random.. im not gonna post it .
(DAMNIT) Whats left to make? someone gimmi an idea?
(edit).. I decided to make a 3d rotating pyramid, LOL,
here it (hopefully) is: (edit).. Damnit i mistyped a
number, oops, now it works.
Code: |
1 SCREEN 13 2 LINE (160,
90)-((SIN(((TIMER * 10) MOD 360) * 3.1415 / 180) * 150)
/ (COS(((TIMER * 10) MOD 360) * 3.1415 / 180) * 40 +
150) * 64 + 160, 50 / (COS(((TIMER * 10) MOD 360) *
3.1415 / 180) * 40 + 150) * 64 + 150) 3 LINE (160,
90)-((SIN(((((TIMER * 10) MOD 360) + 120) MOD 360) *
3.1415 / 180) * 150) / (COS(((((TIMER * 10) MOD 360) +
120) MOD 360) * 3.1415 / 180) * 40 + 150) * 64 + 160, 50
/ (COS(((((TIMER * 10) MOD 360) + 120) MOD 360) * 3.1415
/ 180) * 40 + 150) * 64 + 150) 4 LINE (160,
90)-((SIN(((((TIMER * 10) MOD 360) + 240) MOD 360) *
3.1415 / 180) * 150) / (COS(((((TIMER * 10) MOD 360) +
240) MOD 360) * 3.1415 / 180) * 40 + 150) * 64 + 160, 50
/ (COS(((((TIMER * 10) MOD 360) + 240) MOD 360) * 3.1415
/ 180) * 40 + 150) * 64 + 150) 5 LINE
((SIN(((((TIMER * 10) MOD 360) + 120) MOD 360) * 3.1415
/ 180) * 150) / (COS(((((TIMER * 10) MOD 360) + 120) MOD
360) * 3.1415 / 180) * 40 + 150) * 64 + 160, 50 /
(COS(((((TIMER * 10) MOD 360) + 120) MOD 360) * 3.1415 /
180) * 40 + 150) * 64 + 150)-((SIN(((TIMER * 10) MOD
360) * 3.1415 / 180) * 150) / (COS(((TIMER * 10) MOD
360) * 3.1415 / 180) * 40 + 150) * 64 + 160, 50 /
(COS(((TIMER * 10) MOD 360) * 3.1415 / 180) * 40 + 150)
* 64 + 150) 6 LINE -((SIN(((((TIMER * 10) MOD 360) +
240) MOD 360) * 3.1415 / 180) * 150) / (COS(((((TIMER *
10) MOD 360) + 240) MOD 360) * 3.1415 / 180) * 40 + 150)
* 64 + 160, 50 / (COS(((((TIMER * 10) MOD 360) + 240)
MOD 360) * 3.1415 / 180) * 40 + 150) * 64 + 150) 7
LINE -((SIN(((((TIMER * 10) MOD 360) + 120) MOD 360) *
3.1415 / 180) * 150) / (COS(((((TIMER * 10) MOD 360) +
120) MOD 360) * 3.1415 / 180) * 40 + 150) * 64 + 160, 50
/ (COS(((((TIMER * 10) MOD 360) + 120) MOD 360) * 3.1415
/ 180) * 40 + 150) * 64 + 150) 8 CLS 9 GOTO 2
| _________________ -Nexinarus-
Last edited by Nexinarus on 03 Feb 2003
10:12; edited 1 time in total | |
Back
to top |
|
 |
relsoft Sanzo

Joined:
05 Nov 2001 Posts: 764 Location: Philippines
|
Posted: 03 Feb
2003 06:35 Post
subject: |
|
|
Kewl!!!!!
I have
made 3 fx here last night.
1. A 3d(no hacks) rotating
sphere
2. a rotozoomer(but Generic beat me to it)
3. A raycaster..... Yes, but its still 13 lines long.
:*(
Here's the 3d rotator. I could add some camera
action but its slow already...
Code: |
'Relsoft presents.... The Sphere
2003 'Could've made this 7 lines but darn QB!!! it
won't let me cut 'n paste 'properly... ;*(
1
IF RotX = 0 THEN SCREEN 12 ELSE A! = (A! + .04) * -(A!
< 6.283186) 2 FOR S% = 1 TO 11 3 FOR P% = 1
TO 20 4 RotX! = (((140 * SIN(3.141593 / 11 * S%) *
SIN(6.283186 / 20 * P%))) * (COS(A!) * COS(A!)) + ((140
* SIN(3.141593 / 11 * S%) * COS(6.283186 / 20 * P%))) *
(COS(A!) * -SIN(A!) + SIN(A!) * SIN(A!) * COS(A!)) +
((140 * COS(3.141593 / 11 * S%))) * (- _ SIN(A!) *
-SIN(A!) + COS(A!) * SIN(A!) * COS(A!))) 5 RotY! =
(((140 * SIN(3.141593 / 11 * S%) * SIN(6.283186 / 20 *
P%))) * (COS(A!) * SIN(A!)) + ((140 * SIN(3.141593 / 11
* S%) * COS(6.283186 / 20 * P%))) * (COS(A!) * COS(A!) +
SIN(A!) * SIN(A!) * SIN(A!)) + ((140 * COS(3.141593 / 11
* S%))) * (- _ SIN(A!) * COS(A!) + COS(A!) * SIN(A!)
* SIN(A!))) 6 IF ((((140 * SIN(3.141593 / 11 * S%) *
SIN(6.283186 / 20 * P%))) * (-SIN(A!)) + ((140 *
SIN(3.141593 / 11 * S%) * COS(6.283186 / 20 * P%))) *
(SIN(A!) * COS(A!)) + ((140 * COS(3.141593 / 11 * S%)))
* (COS(A!) * COS(A!)))) <= 0 THEN PSET ((256 *
_ RotX! / (256)) + 320, -(256 * RotY! / (256)) +
240), ((S% + P%) AND 15) + 1 7 NEXT P%, S% 8
LINE (0, 0)-(639, 479), 0, BF 9 IF INKEY$ = "" THEN
1
|
B4 I go, it has hidden face removal....
:*) _________________ Medium or Rare?
Mysite: Genso'
Junkyard Our game: Frantic Journey
New FJ Screenies:
http://polacka.xepher.net/ | |
Back
to top |
|
 |
Nexinarus New Member

Joined:
01 Oct 2002 Posts: 7 Location: New Zealand
|
Posted: 03 Feb
2003 10:36 Post
subject: 3d rotating cube, in 8 lines, suck this =) |
|
|
My 3d rotating cube (with
bs's help)
NOTE:
Please copy into notepad and save as a bas file, then load
into qb (1.1, 4.5, 7.1, it shouldnt matter).
edit: this is
the improved version by BinarySHOCK who made it not flicker
heh.
Code: |
1 SCREEN 7, 0, 1, 0 2 FOR a = 0 TO 3
3 LINE ((SIN(((TIMER * 20 + a * 90) MOD 360) *
3.1415 / 180) * 150) / (COS(((TIMER * 20 + a * 90) MOD
360) * 3.1415 / 180) * 40 + 150) * 64 + 160, 50 /
(COS(((TIMER * 20 + a * 90) MOD 360) * 3.1415 / 180) *
40 + 150) * 64 + 150)-((SIN(((TIMER * 20 + _ a * 90
+ 90) MOD 360) * 3.1415 / 180) * 150) / (COS(((TIMER *
20 + a * 90 + 90) MOD 360) * 3.1415 / 180) * 40 + 150) *
64 + 160, 50 / (COS(((TIMER * 20 + a * 90 + 90) MOD 360)
* 3.1415 / 180) * 40 + 150) * 64 + 150) 4 LINE
((SIN(((TIMER * 20 + a * 90) MOD 360) * 3.1415 / 180) *
150) / (COS(((TIMER * 20 + a * 90) MOD 360) * 3.1415 /
180) * 40 + 150) * 64 + 160, -100 / (COS(((TIMER * 20 +
a * 90) MOD 360) * 3.1415 / 180) * 40 + 150) * 64 +
150)-((SIN(((TIMER * 20 _ + a * 90 + 90) MOD 360) *
3.1415 / 180) * 150) / (COS(((TIMER * 20 + a * 90 + 90)
MOD 360) * 3.1415 / 180) * 40 + 150) * 64 + 160, -100 /
(COS(((TIMER * 20 + a * 90 + 90) MOD 360) * 3.1415 /
180) * 40 + 150) * 64 + 150) 5 LINE ((SIN(((TIMER *
20 + a * 90) MOD 360) * 3.1415 / 180) * 150) /
(COS(((TIMER * 20 + a * 90) MOD 360) * 3.1415 / 180) *
40 + 150) * 64 + 160, 50 / (COS(((TIMER * 20 + a * 90)
MOD 360) * 3.1415 / 180) * 40 + 150) * 64 +
150)-((SIN(((TIMER * 20 + _ a * 90) MOD 360) *
3.1415 / 180) * 150) / (COS(((TIMER * 20 + a * 90) MOD
360) * 3.1415 / 180) * 40 + 150) * 64 + 160, -100 /
(COS(((TIMER * 20 + a * 90) MOD 360) * 3.1415 / 180) *
40 + 150) * 64 + 150) 6 NEXT 7 PCOPY 1, 0 8
CLS 9 IF INKEY$ = "" THEN GOTO
2 |
this
is the version with no pcopy and is VERY flickery, but 1 line
smaller =).
Code: |
1 SCREEN 13 2 FOR a = 0 TO 3 3
LINE ((SIN(((TIMER * 20 + a * 90) MOD 360) * 3.1415 /
180) * 150) / (COS(((TIMER * 20 + a * 90) MOD 360) *
3.1415 / 180) * 40 + 150) * 64 + 160, 50 / (COS(((TIMER
* 20 + a * 90) MOD 360) * 3.1415 / 180) * 40 + 150) * 64
+ 150)-((SIN(((TIMER * 20 + _ a * 90 + 90) MOD 360)
* 3.1415 / 180) * 150) / (COS(((TIMER * 20 + a * 90 +
90) MOD 360) * 3.1415 / 180) * 40 + 150) * 64 + 160, 50
/ (COS(((TIMER * 20 + a * 90 + 90) MOD 360) * 3.1415 /
180) * 40 + 150) * 64 + 150) 4 LINE ((SIN(((TIMER *
20 + a * 90) MOD 360) * 3.1415 / 180) * 150) /
(COS(((TIMER * 20 + a * 90) MOD 360) * 3.1415 / 180) *
40 + 150) * 64 + 160, -100 / (COS(((TIMER * 20 + a * 90)
MOD 360) * 3.1415 / 180) * 40 + 150) * 64 +
150)-((SIN(((TIMER * 20 _ + a * 90 + 90) MOD 360) *
3.1415 / 180) * 150) / (COS(((TIMER * 20 + a * 90 + 90)
MOD 360) * 3.1415 / 180) * 40 + 150) * 64 + 160, -100 /
(COS(((TIMER * 20 + a * 90 + 90) MOD 360) * 3.1415 /
180) * 40 + 150) * 64 + 150) 5 LINE ((SIN(((TIMER *
20 + a * 90) MOD 360) * 3.1415 / 180) * 150) /
(COS(((TIMER * 20 + a * 90) MOD 360) * 3.1415 / 180) *
40 + 150) * 64 + 160, 50 / (COS(((TIMER * 20 + a * 90)
MOD 360) * 3.1415 / 180) * 40 + 150) * 64 +
150)-((SIN(((TIMER * 20 + _ a * 90) MOD 360) *
3.1415 / 180) * 150) / (COS(((TIMER * 20 + a * 90) MOD
360) * 3.1415 / 180) * 40 + 150) * 64 + 160, -100 /
(COS(((TIMER * 20 + a * 90) MOD 360) * 3.1415 / 180) *
40 + 150) * 64 + 150) 6 NEXT 7 CLS 8 IF
INKEY$ = "" THEN GOTO 2 | _________________ -Nexinarus-
Last edited by Nexinarus on 03 Feb 2003
18:27; edited 1 time in total | |
Back
to top |
|
 |
BinarySHOCK New Member
Joined: 03 Feb
2003 Posts: 14
|
Posted: 03 Feb
2003 11:23 Post
subject: Pixel Scrolling Pattern |
|
|
umm ya just like it sayz...
not very good but i'm bored so ya...
1 SCREEN 13 2
DEFINT A-Z 3 FOR Ix = 0 TO 319 4 FOR Iy = 0 TO 199
5 PSET (Ix, Iy), ((Ix - L) XOR (Iy + L)) * 2 6 NEXT
Iy, Ix 7 L = (L + 1) AND 255 8 PALETTE L, (255 - L) \
4 9 IF INKEY$ = "" THEN
3 _________________ Yesterday don't mean sh*t cuz
tommorow is the day you'll have to face. | |
Back
to top |
|
 |
BinarySHOCK New Member
Joined: 03 Feb
2003 Posts: 14
|
Posted: 03 Feb
2003 12:01 Post
subject: Another 1 |
|
|
This 1 looks really stupid
for a few seconds until the palette gets fully changed
so please wait for that..
1 SCREEN 13 2 DEFINT
A-Z 3 FOR Ix = 0 TO 319
4 FOR Iy = 0 TO 199
5
PSET (Ix, Iy), ((Ix - L) XOR (Iy + L)) Xor ((Ix + L) XOR (Iy -
L)) 6 NEXT Iy, Ix
7 L = (L + 1) AND 255
8 PALETTE L, (255 - L)
\ 4 9 IF INKEY$ = "" THEN
3 _________________ Yesterday don't mean sh*t cuz
tommorow is the day you'll have to face. | |
Back
to top |
|
 |
toonski84 I
hold this place together

Joined:
31 May 2002 Posts: 977 Location: Melbourne,
Florida
|
Posted: 03 Feb
2003 12:04 Post
subject: |
|
|
on the contrary, the
palette transformation looks pretty cool  _________________ D.A.M.M.
- Drunks Against Mad Mothers | |
Back
to top |
|
 |
Agamemnus Guru

Joined:
15 Jan 2003 Posts: 260
|
Posted: 03 Feb
2003 12:51 Post
subject: |
|
|
Nexinarius, it doesn't
paste that because it's above the 256 line limit.
Manual copy?
(edit) Can you make the sphere bounce
around, Rel? You can save 1 line by using a string instead of
a variable...
You can also save a line by converting
the FORs to string addition.. MAYBE.
I like dat first
one a lot BinaryShock.
For the second one the palette transformation is a bit
too.. dramatic. I changed it a little, but it's 11 lines.
[code] 1 SCREEN 13 2 DEFINT A-Z 3 L = (L +
1) AND 255 4 PALETTE L, (255 - L) \ 4 5 IF L = 0 THEN
GOTO 6 ELSE GOTO 3 6 FOR ix = 1 TO 399 7 FOR iy = 1 TO
199 8 PSET (ix, iy), ((ix - L) XOR (iy + L)) XOR ((ix + L)
XOR (iy - L)) 9 NEXT iy, ix 10 L = (L + 1) AND 255
11 IF INKEY$ <> "" THEN SCREEN 0 ELSE GOTO 6
[code] _________________ "Life is on the edge of
Chaos" -- Carl Sagan
Last
edited by Agamemnus on 03 Feb 2003 13:21; edited 1 time in
total | |
Back
to top |
|
 |
BinarySHOCK New Member
Joined: 03 Feb
2003 Posts: 14
|
Posted: 03 Feb
2003 13:10 Post
subject: Fire, 8 lines |
|
|
1 SCREEN 13 2 FOR Iy% =
199 TO 170 STEP -1 3 IF (POINT(Ix%, Iy%) + POINT(Ix% - 1,
Iy%) + POINT(Ix% + 1, Iy%) + POINT(Ix%, Iy% - 1) + POINT(Ix%,
Iy% + 1)) > 10 THEN PSET (Ix%, Iy% - 1), (POINT(Ix%, Iy%) +
POINT(Ix% - 1, Iy%) + POINT(Ix% + 1, Iy%) + POINT(Ix%, Iy% -
1) + POINT(Ix%, Iy% + 1 _ )) \ 5 - 2 4 NEXT 5 IF
INT(RND * 2) = 1 THEN PSET (Ix%, 199), 255 ELSE PSET (Ix%,
199), 0 6 Ix% = (Ix% + 1) MOD 320 7 PALETTE Ix% AND
255, (Ix% AND 255) \ 4 8 IF LEN(INKEY$) = 0 THEN 2
heh incase you didn't kno, all that point stuff needs
to be on 1 line
if you remove the PALETTE it would be in 7, but then it looks
kinda umm ya not like fire.
thank you,
agamenus. _________________ Yesterday don't mean sh*t
cuz tommorow is the day you'll have to face. | |
Back
to top |
|
 |
Dav Webmaster

Joined:
08 Sep 2001 Posts: 200 Location: USA
|
Posted: 03 Feb
2003 17:37 Post
subject: |
|
|
Had some more time to waste
and make something.
I'm not sure where I got the idea
for this one. It's nothing special -- but I did try to avoid
the so called cheap hacks for once. Makes it more
challenging(sic?) to come up with something decent.
A
rainbow-paint-spray-runner-type of thing...
Code: |
1 SCREEN 13 2 x% = RND * 320
3 y% = RND * 200 4 w% = INT(RND * 2) + 1 5
c% = INT(RND * 2) - 1 6 IF c% = 0 THEN c% = 1 7
IF w% = 1 THEN x% = x% + c% ELSE y% = y% + c% 8 IF
INKEY$ = "" THEN PSET (x%, y%), 15 + y% + INT(RND * 6)
ELSE END 9 IF x% < 1 OR y% < 1 OR x% > 320
OR y% > 200 THEN GOTO 2 ELSE GOTO 4
| | |
Back
to top |
|
 |
Nexinarus New Member

Joined:
01 Oct 2002 Posts: 7 Location: New Zealand
|
Posted: 03 Feb
2003 18:34 Post
subject: |
|
|
Ok, Agamemnus, try:
-copying the text to windows clipboard -paste it into
notepad and save as a bas file -now it should run fine, i
just tested it on qb4.5 and it worked. (yea the lines are
massive lol, its the only way i could think of
:p _________________ -Nexinarus- | |
Back
to top |
|
 |
Antoni Gual Forum Regular

Joined:
08 Dec 2002 Posts: 90 Location: Barcelona, Spain
|
Posted: 03 Feb
2003 20:47 Post
subject: |
|
|
Binary Shock: Fine XOR
effects! The second one is just incredible!
Rel:
Incedible sphere! Do you really have a raycaster in 13 lines?
Post it please......
Dav: I like these "handcrafted"
textures. A very fine effect
Generic: Excuse me, i
could not resist the temptation
Code: |
' OPTIMIZED :) rotozoomer in 9
lines by Antoni Gual 1 SCREEN 13 2 ANG = ANG +
.08 3 CS% = COS(ANG) * ABS(SIN(ANG)) * 128 4 ss%
= SIN(ANG) * ABS(SIN(ANG)) * 128 5 FOR Y% = -100 TO
99 6 FOR X% = -160 TO 159 7 PSET (X% + 160, Y% +
100), (((X% * CS% - Y% * ss%) AND (Y% * CS% + X% * ss%))
\ 128) 8 NEXT X%, Y% 9 IF LEN(INKEY$) = 0 THEN 2
|
 _________________ Antoni | |
Back
to top |
|
 |
Antoni Gual Forum Regular

Joined:
08 Dec 2002 Posts: 90 Location: Barcelona, Spain
|
Posted: 03 Feb
2003 21:09 Post
subject: Am I becoming blind? |
|
|
Is Rel's sphere program is
hiding points in the back face?...
Ok, I think we should all give up...
You are the winner, Rel!
But I will continue sending
progs just for fun!  _________________ Antoni | |
Back
to top |
|
 |
Dav Webmaster

Joined:
08 Sep 2001 Posts: 200 Location: USA
|
Posted: 03 Feb
2003 22:49 Post
subject: |
|
|
Probably my last one for a
while...
I was messing with the blue ball saver,
resulting in these weird, warped green space gems...
Code: |
1 FOR a = -1 TO 63 2
IF a = -1 THEN SCREEN 13 ELSE PALETTE a, a * 256
3 NEXT 4 x% = INT(RND * 320)
5 y% = INT(RND * 200) 6 FOR z% = RND
* 63 + 1 TO 1 STEP -1 7 IF INKEY$ = ""
THEN CIRCLE (x%, y%), z%, -z% + 64, , , INT(RND * 320) *
RND * .1 ELSE END 8 IF z% > 1 THEN
PAINT (x%, y%), -z% + 64 ELSE GOTO 4 9 NEXT
|
-
Dav | |
Back
to top |
|
 |
toonski84 I
hold this place together

Joined:
31 May 2002 Posts: 977 Location: Melbourne,
Florida
|
Posted: 04 Feb
2003 01:12 Post
subject: |
|
|
be careful what you wish
for, generic... i've modified my fire to work in text mode
Code: |
1 OUT &H3C8, 0 2 FOR i = 0 TO 18
3 IF i = 18 THEN CLS ELSE IF i MOD 3 = 0 THEN
OUT &H3C9, (i \ 3) * 10 ELSE OUT &H3C9, 0 4
NEXT i 5 DEF SEG = &HB800 6 FOR x% = 3999 TO
2080 STEP -2 7 IF x% > 3840 THEN POKE x%,
CINT(RND) * 80 ELSE POKE x%, ((PEEK(x% + 160) + PEEK(x%
+ 162) + PEEK(x% + 158) + PEEK(x% + 320) * 1.2) / 5)
8 NEXT 9 IF INKEY$ = "" THEN GOTO 5
|
dav, i've learned cheap hacks are a
good thing  _________________ D.A.M.M.
- Drunks Against Mad Mothers | |
Back
to top |
|
 |
BinarySHOCK New Member
Joined: 03 Feb
2003 Posts: 14
|
Posted: 04 Feb
2003 03:18 Post
subject: |
|
|
agamemnus: i agree about
the palette transformation, but i couldn't think of a way to
keep it under 9 lines any other way
toonski84: text mode fire heh really cool
i'd like to see some text mode plasma if any1's up to the
challenge.
rel: *please* post that raycaster!
heh this has been the most fun i've had in a
while. _________________ Yesterday don't mean sh*t cuz
tommorow is the day you'll have to face. | |
Back
to top |
|
 |
toonski84 I
hold this place together

Joined:
31 May 2002 Posts: 977 Location: Melbourne,
Florida
|
Posted: 04 Feb
2003 03:21 Post
subject: |
|
|
i think i had some
non-nine-line text-mode plasma on my hd that someone made.
i'll check it out tomorrow. _________________ D.A.M.M. -
Drunks Against Mad Mothers | |
Back
to top |
|
 |
BinarySHOCK New Member
Joined: 03 Feb
2003 Posts: 14
|
Posted: 04 Feb
2003 03:45 Post
subject: |
|
|
ya i've got a copy of that
2, heh it's really cool  _________________ Yesterday
don't mean sh*t cuz tommorow is the day you'll have to
face. | |
Back
to top |
|
 |
westie Forum
Regular

Joined:
04 Dec 2002 Posts: 55 Location: syd, aus
|
Posted: 04 Feb
2003 04:15 Post
subject: |
|
|
SCREEN 13 DO PSET
(RND * 400, RND * 400), 10 LOOP UNTIL INKEY = "Q"
CTRL + SHIFT + BREAK to exit
just a
quicky _________________
go the mighty maggies. (thanks yakstorm)
i
regularly visit a rugby league version of these forums. i have
amassed almost 2k worth of messages. | |
Back
to top |
|
 |
BinarySHOCK New Member
Joined: 03 Feb
2003 Posts: 14
|
Posted: 04 Feb
2003 05:46 Post
subject: |
|
|
SCREEN 13 DO LINE
-(RND * 319, RND * 199), INT(RND * 15) + 1 FOR I = 0 TO 5
WAIT 986, 8 WAIT 986, 8, 8 NEXT LOOP Until
Len(Inkey$)
oh ya time to go old sk00l hehe
if it runs way to slow just umm adjust the I
for-loop _________________ Yesterday don't mean sh*t cuz
tommorow is the day you'll have to face. | |
Back
to top |
|
 |
toonski84 I
hold this place together

Joined:
31 May 2002 Posts: 977 Location: Melbourne,
Florida
|
Posted: 04 Feb
2003 06:49 Post
subject: |
|
|
hey, who here likes
spirographs?
Code: |
1 SCREEN 12 2 RANDOMIZE TIMER
3 vars& = (INT(RND * 99) + 1) * 10000 + (INT(RND
* 99) + 1) * 100 + (INT(RND * 99) + 1) 4 FOR t = 0
TO 100 STEP .1 5 LINE -((((vars& \ 100) MOD 100)
+ (vars& \ 10000)) * COS(t) - ((vars& \ 10000) +
(vars& MOD 100)) * COS(((((vars& \ 100) MOD 100)
+ (vars& \ 10000)) / (vars& \ 10000)) * t) +
320, (((vars& \ 100) MOD 100) + (vars& \ 10000))
* SIN(t) - ((vars& \ _ 10000) + (vars&
MOD 100)) * SIN(((((vars& \ 100) MOD 100) +
(vars& \ 10000)) / (vars& \ 10000)) * t) + 240)
6 NEXT t 7 SLEEP 1 8 CLS 9 IF INKEY$
<> "q" THEN GOTO 2
| _________________ D.A.M.M. - Drunks
Against Mad Mothers | |
Back
to top |
|
 |
relsoft Sanzo

Joined:
05 Nov 2001 Posts: 764 Location: Philippines
|
Posted: 04 Feb
2003 07:00 Post
subject: Re: Am I becoming blind? |
|
|
Antoni Gual
wrote: |
Is Rel's sphere program is hiding points
in the back face?...
Ok, I think we should all give up...
You are the winner, Rel!
But I will continue
sending progs just for fun!  |
Yeah, it hides teh points in the
back-face but the hack I made would only work on spherical
figures and the like.
Bah!!! Nothing beats yer
floormapper!!!!
Nother one...
Code: |
'3d vortex......2003
'Http://Relsoft.Ath.cx 'Here's my take on the
starfield stuff...
1 IF I% = 0 THEN SCREEN
13 ELSE DIM Dist!(200), Rot!(200) 2 I% = (I% + 1)
MOD 200 3 IF J% < 257 THEN J% = (J% + 1) 4
PSET (Dist!(I%) * COS(Rot!(I%) / 56.32716) + 160,
Dist!(I%) * SIN(Rot!(I%) / 56.32716) + 100), 0 5
Rot!(I%) = (Rot!(I%) + .5 * (Dist!(I%) / 50)) *
-(Rot!(I%) <= 360) 6 IF Dist!(I%) < 0 OR
Dist!(I%) > 170 THEN Rot!(I%) = RND * 360 7 IF
Dist!(I%) < 0 OR Dist!(I%) > 170 THEN Dist!(I%) =
RND * 170 ELSE Dist!(I%) = Dist!(I%) - (2 - (Dist!(I%) /
150)) 8 IF J% > 255 THEN PSET (Dist!(I%) *
COS(Rot!(I%) / 56.32716) + 160, Dist!(I%) * SIN(Rot!(I%)
/ 56.32716) + 100), Dist!(I%) + 50 ELSE PALETTE J%,
65536 * (J% \ 4) + 256 * (J% \ 4) + (63 - (J% \ 4))
9 IF INKEY$ = "" THEN 2
|
It's a 3d
blackhole!!! _________________ Medium or Rare?
Mysite: Genso'
Junkyard Our game: Frantic Journey
New FJ Screenies:
http://polacka.xepher.net/ | |
Back
to top |
|
 |
relsoft Sanzo

Joined:
05 Nov 2001 Posts: 764 Location: Philippines
|
Posted: 04 Feb
2003 07:02 Post
subject: |
|
|
Yet another one...
Code: |
'Colors galore!!!!
'http://Relsoft.ath.cx 'borrowed Narf's Out4pal
hack!!!
1 RANDOMIZE TIMER 2 IF dir% = 0 THEN
SCREEN 13 ELSE i& = (i& + 1) AND &H7FFFFFFF
3 dir% = 1 + INT(RND * 4) 4 IF dir%
= 1 THEN y% = y% - (-(dir% = 1)) * -(y% > 0) ELSE y%
= y% + (-(dir% = 3)) * -(y% < 200) 5 IF
dir% = 2 THEN x% = x% - (-(dir% = 2)) * -(x% > 0)
ELSE x% = x% + (-(dir% = 4)) * -(x% < 320) 6 IF
(i& AND 1) = 0 THEN LINE (x%, y%)-(x% + (dir% = 2),
y% + (dir% = 1)), POINT(x%, y%) + 1 ELSE LINE (320 - x%,
200 - y%)-(320 - x% + (dir% = 4), 200 - y% + (dir% =
3)), POINT(320 - x%, 200 - y%) + 1 7 IF (i& AND
1) = 0 THEN LINE (320 - x%, y%)-(320 - x% + (dir% = 2),
y% + (dir% = 1)), POINT(320 - x%, y%) + 1 ELSE LINE (x%,
200 - y%)-(x% + (dir% = 4), 200 - y% + (dir% = 3)),
POINT(x%, 200 - y%) + 1 8 OUT (&H3C9 + ((i&
AND 3) = 0)), (((i& AND 3) = 0) * -((i& \ 4) AND
255)) - (((i& AND 3) <> 0) * 31) - ((((i&
AND 3) <> 0) * 31) * SIN((((i& \ 4) AND 255) +
(((i& AND 3) - 1) * 85) + 200 * SIN((i& \ 1024)
/ (81 - (10 * (i& AND 3))))) * 3.1415926# / _
64)) 9 IF INKEY$ = "" THEN 2
|
BTW, I have that raycaster but its
in 13 lines... I won't have time to edit it until Saturday but
I will post it here Saturday...
More to come
later.... _________________ Medium or Rare?
Mysite: Genso'
Junkyard Our game: Frantic Journey
New FJ Screenies:
http://polacka.xepher.net/ | |
Back
to top |
|
 |
|
Stop
watching this topic
|
You can post new topics in this forum You
can reply to topics in this forum You can edit your
posts in this forum You can delete your posts in this
forum You can vote in polls in this
forum
|
Powered
by phpBB
2.0.4 © 2001, 2002 phpBB
Group
|