View
previous topic :: View
next topic |
Author |
Message |
Agamemnus Guru

Joined:
15 Jan 2003 Posts: 260
|
Posted: 31 Jan
2003 03:35 Post
subject: |
|
|
_________________ "Life is on the edge
of Chaos" -- Carl Sagan
Last edited by Agamemnus on 01 Feb 2003
01:51; edited 1 time in total | |
Back
to top |
|
 |
relsoft Sanzo

Joined:
05 Nov 2001 Posts: 763 Location: Philippines
|
Posted: 31 Jan
2003 04:46 Post
subject: |
|
|
Okay Here's my translucen
plasma....
Code: |
'Here's my entry(translucent
Plasma!!!) 'I could have made this a lil bit
smaller. 'Relsoft 'Note: you may not notice a
thing in about 20 secs as its setting 'up the
palette.
1 SCREEN 13 ': FOR I
= 0 TO 255: LINE (I, 0)-(I, 10), I: NEXT I'Unrem to see
the Pal 2 J& = (J& + 1) AND &H7FFFFFFF
3 IF J& < 257 THEN PALETTE J& - 1, 65536
* INT(32 - 31 * SIN(J& * 3.14151693# / 128)) + 256 *
INT(32 - 31 * SIN(J& * 3.14151693# / 64)) + INT(32 -
31 * SIN(J& * 3.14151693# / 32)) ELSE R% = 64
4 FOR y% = 0 TO 100 5
FOR x% = 0 TO 160 6
R% = -R% 7
IF J& > 256 THEN PSET (x% + 80, y%
+ 50), (SIN((x% + R%) / (28)) * 32) + (SIN((x% + R% +
(J& MOD 284)) / (45)) * -128) + (SIN((y% + R%) /
(32)) * 64) 8 NEXT x%, y% 9
IF INKEY$ = "" THEN 2
|
Could have made this better but ran
out of time....
;*)
PS. Antoni: Post as many
as you want!!!! _________________ Medium or Rare?
Mysite: Genso'
Junkyard Our game: Frantic Journey
New FJ Screenies:
http://polacka.xepher.net/ | |
Back
to top |
|
 |
Antoni Gual Forum Regular

Joined:
08 Dec 2002 Posts: 90 Location: Barcelona, Spain
|
Posted: 31 Jan
2003 15:52 Post
subject: The Matrix revisited |
|
|
Rel: Your saver is the
winner! Wow!..
Here is another one. Sorry for the lack
of color...
Code: |
1 DEF SEG = &HB800 2 FOR i% =
0 TO 159 STEP 4 ' adjust this speed constant
for optimal effect '
| 0 no speed ;) .05
should be too fast even for a 386 '
| 3 IF RND
< .0005 THEN j% = 3840 ELSE j% = -1 4 IF j%
> 0 THEN POKE j% + i%, PEEK(j% - 160 + i%)
5 IF j% > 0 THEN j% = j% - 160 6
IF j% > 0 THEN GOTO 4 7 IF j% = 0 THEN IF
RND > .3 THEN POKE i%, 96 * RND + 32 ELSE POKE i%, 32
8 NEXT 9 IF LEN(INKEY$) = 0 THEN GOTO 2
| _________________ Antoni | |
Back
to top |
|
 |
BlueKeyboard Surfing Keyboard

Joined:
19 Apr 2002 Posts: 322
|
Posted: 31 Jan
2003 16:19 Post
subject: |
|
|
First screen 12 ASCII
circle routine? .
Code: |
SCREEN 12 FOR C% = 64 TO 76
FOR R% = 0 TO 14 FOR I% = 1 TO 360 COLOR R%:
LOCATE 15 + INT(SIN(I% * 3.1415 / 180) * R%), 40 +
INT(COS(I% * 3.1415 / 180) * R%): PRINT CHR$(C% + R%)
NEXT NEXT WAIT &H3DA, 8 NEXT
| _________________ Visit Blind Coding | |
Back
to top |
|
 |
wizardlife Desert Wanderer

Joined:
09 Oct 2001 Posts: 846 Location: Toronto, Canada
|
Posted: 31 Jan
2003 17:44 Post
subject: |
|
|
Agamemnus
wrote: |
wizardlife, is your whole screensaver a
box in the center?  |
Wasn't intended to be. Hang on.
edit: Hmm... it worked last night. Gimme another
minute.
edit 2: done. Point the GOTO to line 4 instead
of 3. I added the Randomize Timer at the last minute and it
threw off the line numbers. _________________ w i z a r d c o d e o n l i n
e
Last edited by
wizardlife on 31 Jan 2003 18:10; edited 2 times in
total | |
Back
to top |
|
 |
Antoni Gual Forum Regular

Joined:
08 Dec 2002 Posts: 90 Location: Barcelona, Spain
|
Posted: 31 Jan
2003 17:51 Post
subject: Do you want another one? |
|
|
Code: |
1 SCREEN 12 2 v% = RND * 20
+ 10 3 REDIM VX%(v%), VY%(v%) 4 FOR d1% = -1 TO
v% 5 FOR d2% = d1% + 1 TO v% 6 IF d1% = -1
THEN VX%(d2%) = 320 + (SIN(6.283185 * (d2% / v%)) * 239)
ELSE LINE (VX%(d1%), VY%(d1%))-(VX%(d2%), VY%(d2%)), (v%
MOD 16) + 1 7 IF d1% = -1 THEN VY%(d2%) = 240
+ (COS(6.283185 * (d2% / v%)) * 239) 8 NEXT d2%, d1%
9 IF LEN(INKEY$) = 0 THEN GOTO 2
| _________________ Antoni | |
Back
to top |
|
 |
wizardlife Desert Wanderer

Joined:
09 Oct 2001 Posts: 846 Location: Toronto, Canada
|
Posted: 31 Jan
2003 18:24 Post
subject: Re: Do you want another one? |
|
|
Antoni Gual
wrote: |
Code: |
1 SCREEN 12 2 v% =
RND * 20 + 10 3 REDIM VX%(v%), VY%(v%) 4
FOR d1% = -1 TO v% 5 FOR d2% = d1% + 1 TO v%
6 IF d1% = -1 THEN VX%(d2%) = 320 +
(SIN(6.283185 * (d2% / v%)) * 239) ELSE LINE
(VX%(d1%), VY%(d1%))-(VX%(d2%), VY%(d2%)), (v% MOD
16) + 1 7 IF d1% = -1 THEN VY%(d2%) =
240 + (COS(6.283185 * (d2% / v%)) * 239) 8
NEXT d2%, d1% 9 IF LEN(INKEY$) = 0 THEN GOTO 2
| | Yikes, it's like spyrograph or something...
nice... I need to experiment more with all this trig stuff you
guys are pulling. _________________ w i z a r d c o d e o n l i n
e | |
Back
to top |
|
 |
wizardlife Desert Wanderer

Joined:
09 Oct 2001 Posts: 846 Location: Toronto, Canada
|
Posted: 31 Jan
2003 18:55 Post
subject: |
|
|
The standard 'pinwheel':
Code: |
1 SCREEN 12 2 FOR colour = 0 TO
15 3 PALETTE colour, colour * 4 4 NEXT 5
angle! = angle! + .1 6 colour = colour + 1 7 IF
colour > 15 THEN colour = 0 ELSE IF angle! > 360
THEN angle! = angle! - 360 8 PSET (INT(SIN(angle!) *
angle!) + 320, INT(COS(angle!) * angle!) + 240), colour
9 IF INKEY$ = "" THEN GOTO 5
| EDIT:
There it is with the palette
switched. _________________ w i z a r d c o d e o n l i n
e | |
Back
to top |
|
 |
wizardlife Desert Wanderer

Joined:
09 Oct 2001 Posts: 846 Location: Toronto, Canada
|
Posted: 31 Jan
2003 19:06 Post
subject: |
|
|
The non-standard pinwheel:
Code: |
1 SCREEN 12 2 FOR colour = 0 TO
15 3 PALETTE colour, colour * 4 * 65536 + (colour *
2) 4 NEXT 5 angle! = angle! + .1 6 colour =
colour + 1 7 IF colour > 15 THEN colour = 0 ELSE
IF angle! > 360 THEN angle! = angle! - 360 8 PSET
(INT(SIN(angle!) * angle! + angle!), INT(COS(angle!) *
angle!) + 300), colour 9 IF INKEY$ = "" THEN GOTO 5
|
edit: just moved it from being centred
at 240 to 300 (feels more balanced that
way) _________________ w i z a r d c o d e o n l i n
e
Last edited by
wizardlife on 31 Jan 2003 23:52; edited 1 time in
total | |
Back
to top |
|
 |
Antoni Gual Forum Regular

Joined:
08 Dec 2002 Posts: 90 Location: Barcelona, Spain
|
Posted: 31 Jan
2003 20:29 Post
subject: A huge program... |
|
|
This should not be posted
here as it's 11 lines but.... Out of contest, off course.
Code: |
' cube rotator in 11 lines. From a 19
liner by Entropy, shrinked by Antoni Gual 1 IF x1 =
0 THEN SCREEN 13 ELSE r = (r + .01745) + 6.283185 * (r
>= 6.283185) 2 FOR x = -30 TO 30 STEP 10
3 FOR y = -30 TO 30 STEP 10 4
FOR z = -30 TO 30 STEP 10 5
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) 6 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) 7
PSET ((100 * x1 + 160), (100 * y1 +
100)), 31 8 NEXT z, y, x 9 WAIT
&H3DA, 8 10 LINE (99, 39)-(221, 161), 0, BF
11 IF LEN(INKEY$) = 0 THEN GOTO 1
| _________________ Antoni | |
Back
to top |
|
 |
Antoni Gual Forum Regular

Joined:
08 Dec 2002 Posts: 90 Location: Barcelona, Spain
|
Posted: 31 Jan
2003 20:48 Post
subject: |
|
|
Wizardlife: Your
non-standard pinwheel is the best effect i have seen so far!
Great! _________________ Antoni | |
Back
to top |
|
 |
BlueKeyboard Surfing Keyboard

Joined:
19 Apr 2002 Posts: 322
|
Posted: 31 Jan
2003 20:51 Post
subject: |
|
|
Lines inside a circle...
Code: |
SCREEN 13 DO WAIT &H3DA,
8 FOR A% = 0 TO 359 PSET (160 + COS(A% * 3.1415
/ 180) * 40, 100 + SIN(A% * 3.1415 / 180) * 40), RND
NEXT A% = INT(RND * 360) LINE (160 + COS(A%
* 3.1415 / 180) * 39, 100 + SIN(A% * 3.1415 / 180) *
39)-(160 + COS((A% + 180) * 3.1415 / 180) * 39, 100 +
SIN((A% + 180) * 3.1415 / 180) * 39), INT(RND * 16) + 15
LOOP
| _________________ Visit Blind Coding | |
Back
to top |
|
 |
toonski84 I
hold this place together

Joined:
31 May 2002 Posts: 977 Location: Melbourne,
Florida
|
Posted: 31 Jan
2003 22:19 Post
subject: |
|
|
well, after that
non-standard pinwheel i give up
that 'seizure vision which is not seizure visions on
slow computers' is pretty much a bunch of calculated crap
thrown together  _________________ D.A.M.M.
- Drunks Against Mad Mothers | |
Back
to top |
|
 |
Antoni Gual Forum Regular

Joined:
08 Dec 2002 Posts: 90 Location: Barcelona, Spain
|
Posted: 31 Jan
2003 22:31 Post
subject: No palette rotators? |
|
|
Here is mine:
Code: |
'vortex (Kinda of..) Antoni Gual 2003
1 SCREEN 13 2 OUT &H3C7, 0 3 a$ = a$ +
CHR$(INP(&H3C9)) 4 CIRCLE (160, 290 - LEN(a$) ^
.79), LEN(a$) / 2.8, LEN(a$) \ 3, , , .5 5 CIRCLE
(160, 290 - LEN(a$) ^ .79 + 1), LEN(a$) / 2.8, LEN(a$) \
3, , , .5 6 IF LEN(a$) < 256 * 3 THEN 3 ELSE OUT
&H3C8, 0 7 j = (j + 1) MOD (LEN(a$) - 3) 8
OUT &H3C9, ASC(MID$(a$, j + 1, 1)) 9 IF
LEN(INKEY$) = 0 THEN 7
|
 _________________ Antoni | |
Back
to top |
|
 |
wizardlife Desert Wanderer

Joined:
09 Oct 2001 Posts: 846 Location: Toronto, Canada
|
Posted: 31 Jan
2003 23:58 Post
subject: |
|
|
Antoni Gual
wrote: |
Wizardlife: Your non-standard pinwheel
is the best effect i have seen so far!
Great! |
thx. I was trying to dig up all the
stuff I made my graphing calculator do in grade 10 when we
were supposed to be translating parabolas...
I don't think anyone's going to hit rel's plasma for
sheer 'cool' factor, tho.
I really like that falling
text one. *runs away to watch the matrix
dvd* _________________ w i z a r d c o d e o n l i n
e | |
Back
to top |
|
 |
Dav Webmaster

Joined:
08 Sep 2001 Posts: 200 Location: USA
|
Posted: 01 Feb
2003 00:41 Post
subject: |
|
|
Hey, nice posts! Cool
little screen savers.
Here's a mystify-type saver in
only 5 lines. (6 if you add the delay) It's looks like a
rainbow wave...
Code: |
1 IF r = 0 THEN SCREEN 12
ELSE PRINT 2 a$ = MKI$((160 * COS(r)) +
320) + MKI$((100 * SIN(r)) + 300) 3 IF r
> 7.2 THEN r = 1 ELSE r = r + .05 4
LINE (CVI(MID$(a$, 1, 2)), CVI(MID$(a$, 3,
2)))-(CVI(MID$(a$, 1, 2)) + 160 * COS(r), CVI(MID$(a$,
3, 2)) + 45 + r * SIN(r)), r
'============= WAIT &H3DA, 8
'add this if not smooth enough for you
'============= 5 IF INKEY$ = "" GOTO 1
ELSE END
|
- Dav | |
Back
to top |
|
 |
Agamemnus Guru

Joined:
15 Jan 2003 Posts: 260
|
Posted: 01 Feb
2003 01:51 Post
subject: |
|
|
very nice all, although the
plasma one updates too slowly with PSET, and some people still
don't have an exit condition.
I bet you could add several of those thingies in one
spot with those extra lines (you'd only need 2 more.. FOR I%,
NEXT I% (for different line patches), DAV.  _________________ "Life
is on the edge of Chaos" -- Carl Sagan | |
Back
to top |
|
 |
wizardlife Desert Wanderer

Joined:
09 Oct 2001 Posts: 846 Location: Toronto, Canada
|
Posted: 01 Feb
2003 02:23 Post
subject: |
|
|
Here's to some christmas
cheer!
Code: |
1 SCREEN 12 2 x% = x% + 1 3
angle! = ATN((SIN(x% / 20) * 20) / x%) 4 dist! =
SQR(((SIN(x% / 20) * 20) ^ 2) + (x% ^ 2)) 5 PSET
((COS(angle! + y!) * dist!) + 320, (SIN(angle! + y!) *
dist!) + 240), INT(y!) AND 7 6 y! = y! + 2 7 IF
x% > 300 THEN x% = 0 ELSE y! = y! - 2 8 IF INKEY$
= "" THEN GOTO 2
|
This could _easily_ be compacted into
like 4 lines, but it's slow enough as is... (crawls on my
dad's 300 -- okay my 1.6 still, tho...)
Nice one
dav! _________________ w i z a r d c o d e o n l i n
e | |
Back
to top |
|
 |
relsoft Sanzo

Joined:
05 Nov 2001 Posts: 763 Location: Philippines
|
Posted: 01 Feb
2003 04:02 Post
subject: |
|
|
I edited the plasma after
seeing that the waves are almost static.
I also added
the dynamic translucency....
Code: |
'Here's my entry(translucent
Plasma!!!) 'I could have made this a lil bit
smaller. 'Relsoft 'Note: you may not notice a
thing in about 20 secs as its setting 'up the
palette.
1 SCREEN 13 2 J& = (J& + 1)
AND &H7FFFFFFF 3 IF J& < 257 THEN PALETTE
J& - 1, 65536 * INT(32 - 31 * SIN(J& *
3.14151693# / 128)) + 256 * INT(32 - 31 * SIN(J& *
3.14151693# / 64)) + INT(32 - 31 * SIN(J& *
3.14151693# / 32)) ELSE R% = 64 * (((J& AND 1) = 1)
OR 1) 4 FOR y% = 0 TO 100 5
FOR x% = 0 TO 160 6
R% = -R% 7
IF J& > 256 THEN PSET (x% +
80, y% + 50), (SIN((x% + R%) / (28)) * 64) + (SIN((x% +
R% + (J& MOD 284)) / (45)) * -128) + (SIN((y% + R%)
/ (16)) * 64) 8 NEXT x%, y% 9
IF INKEY$ = "" THEN 2
| _________________ 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: 763 Location: Philippines
|
Posted: 01 Feb
2003 04:12 Post
subject: |
|
|
Some Rects...
Code: |
'Nother entry from Rel 1
SCREEN 13 2 Var$ = "" + CHR$(INT(RND * 160)) +
CHR$(INT(RND * 100)) + CHR$(INT(RND * 255)) +
CHR$(INT(RND * 30)) + CHR$(INT(RND * 50)) 3 LINE
(ASC(MID$(Var$, 1, 1)), ASC(MID$(Var$, 2,
1)))-STEP(ASC(MID$(Var$, 5, 1)), ASC(MID$(Var$, 4, 1))),
ASC(MID$(Var$, 3, 1)), BF 4 LINE (320 -
ASC(MID$(Var$, 1, 1)), 200 - ASC(MID$(Var$, 2,
1)))-STEP(-ASC(MID$(Var$, 5, 1)), -ASC(MID$(Var$, 4,
1))), ASC(MID$(Var$, 3, 1)), BF 5 LINE
(ASC(MID$(Var$, 1, 1)), 200 - ASC(MID$(Var$, 2,
1)))-STEP(ASC(MID$(Var$, 5, 1)), -ASC(MID$(Var$, 4,
1))), ASC(MID$(Var$, 3, 1)), BF 6 LINE (320 -
ASC(MID$(Var$, 1, 1)), ASC(MID$(Var$, 2,
1)))-STEP(-ASC(MID$(Var$, 5, 1)), ASC(MID$(Var$, 4,
1))), ASC(MID$(Var$, 3, 1)), BF 7 IF INKEY$ = ""
THEN 2 8 END 9 'Rem Rem Rem Rem
|
Paint tiling would do wonders!!!!
BTW, I'm collecting the stuff that you're posting
and I'll post it on my site along with your names on it....
:*)
Keep it coming guys!!!
Koolness!!!!! _________________ Medium or Rare?
Mysite: Genso'
Junkyard Our game: Frantic Journey
New FJ Screenies:
http://polacka.xepher.net/ | |
Back
to top |
|
 |
Antoni Gual Forum Regular

Joined:
08 Dec 2002 Posts: 90 Location: Barcelona, Spain
|
Posted: 01 Feb
2003 10:40 Post
subject: |
|
|
Rel: This time your plasma
looks really translucent! You're the best.
BTW: I
ripped your sinus palette to make my vortex look better. Here
it is:
Code: |
'vortex (Kind of..) Antoni Gual 2003
1 SCREEN 13 2 PALETTE LEN(a$) / 3, 0 3
a$ = a$ + CHR$(32 - 31 * SIN((LEN(a$) - 60 * ((LEN(a$)
MOD 3) = 2) + 60 * ((LEN(a$) MOD 3) = 1)) * 3.14151693#
/ 128)) 4 CIRCLE (160, 290 - LEN(a$) ^ .8), LEN(a$)
/ 2.8, LEN(a$) \ 3, , , .5 5 CIRCLE (160, 290 -
LEN(a$) ^ .8 + 1), LEN(a$) / 2.8, LEN(a$) \ 3, , , .5
6 IF LEN(a$) < 256 * 3 THEN 2 ELSE OUT &H3C8,
0 7 J = (J + 1) MOD (LEN(a$) - 3) 8 OUT
&H3C9, ASC(MID$(a$, J + 1, 1)) 9 IF LEN(INKEY$)
= 0 THEN 7
| _________________ Antoni | |
Back
to top |
|
 |
Antoni Gual Forum Regular

Joined:
08 Dec 2002 Posts: 90 Location: Barcelona, Spain
|
Posted: 01 Feb
2003 11:49 Post
subject: |
|
|
Dav's variables on string
are very interesting... This way particle systems are
possible As this classic starfield:
Code: |
'starfield 1 SCREEN 13 2 a$ =
STRING$(400 * 6, CHR$(0)) 3 IF CVI(MID$(a$, j + 5,
2)) = 0 THEN MID$(a$, j + 1, 6) = MKI$(RND * 20000 -
10000) + MKI$(RND * 20000 - 10000) + MKI$(100 * RND + 1)
4 PSET (160 + CVI(MID$(a$, j + 1, 2)) / CVI(MID$(a$,
j + 5, 2)), 100 + CVI(MID$(a$, j + 3, 2)) / CVI(MID$(a$,
j + 5, 2))), 0 5 MID$(a$, j + 5, 2) =
MKI$(CVI(MID$(a$, j + 5, 2)) - 1) 6 IF CVI(MID$(a$,
j + 5, 2)) > 0 THEN PSET (160 + CVI(MID$(a$, j + 1,
2)) / CVI(MID$(a$, j + 5, 2)), 100 + CVI(MID$(a$, j + 3,
2)) / CVI(MID$(a$, j + 5, 2))), 32 - CVI(MID$(a$, j + 5,
2)) \ 8 7 j = (j + 6) MOD (LEN(a$)) 8 IF
LEN(INKEY$) = 0 THEN 3
| _________________ Antoni | |
Back
to top |
|
 |
toonski84 I
hold this place together

Joined:
31 May 2002 Posts: 977 Location: Melbourne,
Florida
|
Posted: 01 Feb
2003 14:24 Post
subject: |
|
|
... i have to say that's the only and best 3d starfield i've
ever seen to operate without a single loop in
it. _________________ D.A.M.M. - Drunks Against Mad
Mothers | |
Back
to top |
|
 |
wizardlife Desert Wanderer

Joined:
09 Oct 2001 Posts: 846 Location: Toronto, Canada
|
Posted: 01 Feb
2003 16:47 Post
subject: |
|
|
Infiniti Loop:
Code: |
1 SCREEN 12 2 FOR a = 1 TO 15
3 PALETTE a, a * 512 + a + (a * 131072) 4 NEXT
5 x! = x! + xc! 6 IF xc! < 1 THEN xc! = xc! +
.00004 7 LINE STEP(0, 0)-(COS(x!) * 320 + 320,
SIN(x! * 2) * 100 + 240), INT(x!) AND 15 8 IF x!
> 150 THEN x! = x! - 150 9 IF INKEY$ = "" THEN
GOTO 5
|
This pwns anything else I've done so
far. _________________ w i z a r d c o d e o n l i n
e | |
Back
to top |
|
 |
wizardlife Desert Wanderer

Joined:
09 Oct 2001 Posts: 846 Location: Toronto, Canada
|
Posted: 01 Feb
2003 16:56 Post
subject: |
|
|
toonski84
wrote: |
... i have to say that's the only and best 3d starfield
i've ever seen to operate without a single loop in
it. | I think
that's the best one I've ever seen  _________________ w i z a r d c o d e o n l i n
e | |
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
|