View
previous topic :: View
next topic |
Author |
Message |
Antoni Gual Forum Regular

Joined:
08 Dec 2002 Posts: 90 Location: Barcelona, Spain
|
Posted: 08 Feb
2003 17:14 Post
subject: |
|
|
I would add to the list the
non-standard pinwheel by wizardlife And off course Glenn's
nihilist demo is the winer!  _________________ Antoni | |
Back
to top |
|
 |
qbasicmaster New Member
Joined: 08 Feb
2003 Posts: 1 Location: UK
|
Posted: 08 Feb
2003 18:37 Post
subject: Easy saver |
|
|
I have made a screen saver
but dont know how to stop it!!!! This is the code
Code: |
strt: CLS SCREEN 13 LINE (1,
1)-(153, 360), 3, BF LINE (153, 360)-(360, 153), 4,
BF GOTO strt | Only 4 lines but need to know how to stop
it. See ya! QBmaster  | |
Back
to top |
|
 |
ak00ma Senior Member

Joined:
23 Oct 2002 Posts: 132 Location: Germany
|
Posted: 08 Feb
2003 19:47 Post
subject: |
|
|
Here the code with a stop
part:
Code: |
strt: CLS SCREEN 13 LINE (1,
1)-(153, 360), 3, BF LINE (153, 360)-(360, 153), 4,
BF IF INKEY$ = "" THEN GOTO strt
|
So
you only have to press a key to stop the
proggy _________________ QB 4 EVER
http://www.q-tech.de.vu/ | |
Back
to top |
|
 |
na_th_an Na_th_an

Joined:
01 Mar 2002 Posts: 1746 Location: Spain
|
Posted: 08 Feb
2003 19:50 Post
subject: |
|
|
I wouldn't include that
SCREEN 13 inside the loop... Think about this: some old VGA
cards take time to switch mode, and also the CRT suffers when
doing it... In that case, your proggy wouldn't be a screen
saver but a screen killer  _________________ Within the last 15 years, the
execution speed of computer hardware increased by factor
thousand. Within the same time, computer programmers have
successfully compensated these improvements.
Martin
Korth
NoKnob
Music | |
Back
to top |
|
 |
toonski84 I
hold this place together

Joined:
31 May 2002 Posts: 977 Location: Melbourne,
Florida
|
Posted: 09 Feb
2003 04:18 Post
subject: |
|
|
Code: |
1 IF x& = 0 THEN SCREEN 13 ELSE
OUT &H3C8, 0 2 IF x& = 0 THEN DEF SEG =
&HA000 ELSE i& = i& + iv& 3 IF
x& = 0 THEN iv& = 1 ELSE IF i& = 320 OR
i& = -1 THEN iv& = -iv& 4 CIRCLE
(i&, -ABS(COS(i& / 30) * 80) + 153), 4, 30 5
PAINT (i&, -ABS(COS(i& / 30) * 80) + 153), 30
6 FOR x& = 12800 TO 51200 7 IF
ABS(i& - (x& MOD 320)) < 18 THEN IF
PEEK(x&) = 0 THEN POKE x&, 16 ELSE POKE x&,
((PEEK(x& + 1) + PEEK(x& - 1) + PEEK(x& +
320) + PEEK(x& - 320)) - 64) \ 4 + 16 8 NEXT
x& 9 IF INKEY$ = "" THEN GOTO 1
|
interviewer: joe, are you running
out of ideas? joe: yes, yes i
am. _________________ D.A.M.M. - Drunks Against Mad
Mothers | |
Back
to top |
|
 |
relsoft Sanzo

Joined:
05 Nov 2001 Posts: 764 Location: Philippines
|
Posted: 09 Feb
2003 07:21 Post
subject: |
|
|
toonski84
wrote: |
i think as the overall demo bin gets
thinner, maybe we should make a way to judge all these
demos.
my favs: sphere and light mapper
floormapper manderbolt (me no spell good)
starfield glenn's super-duper
demo! |
Glenn wins!!!!
Hands the
wise-one a cheese.....
cheers,
L......y _________________ Medium or Rare?
Mysite: Genso'
Junkyard Our game: Frantic Journey
New FJ Screenies:
http://polacka.xepher.net/ | |
Back
to top |
|
 |
red_Marvin Ancient QBer

Joined:
25 Feb 2002 Posts: 449 Location: Lund, Southern
Sweden
|
Posted: 09 Feb
2003 12:15 Post
subject: |
|
|
oups! I just realized my
entry uses a colon joined for(next delay function, but
whatever, you could always delete the delay
hehe _________________ -red_Marvin
"There are 10
kinds of people: those who speak binary and those who
don't" | |
Back
to top |
|
 |
Antoni Gual Forum Regular

Joined:
08 Dec 2002 Posts: 90 Location: Barcelona, Spain
|
Posted: 09 Feb
2003 16:18 Post
subject: |
|
|
My favourites: Rel's
Translucent plasma,Lens and Lightmap Toonski's spirograph
Dav's textured random painting Binary Shock Xor square
plasmas Wizardlife non-standard pinwheel Lithium
smiley zoomer Nathan "fire"
plasma _________________ Antoni
Last edited by Antoni Gual on 09 Feb
2003 16:31; edited 2 times in
total | |
Back
to top |
|
 |
na_th_an Na_th_an

Joined:
01 Mar 2002 Posts: 1746 Location: Spain
|
Posted: 09 Feb
2003 16:27 Post
subject: |
|
|
Haven't you seen my fire?
 | |
Back
to top |
|
 |
Antoni Gual Forum Regular

Joined:
08 Dec 2002 Posts: 90 Location: Barcelona, Spain
|
Posted: 09 Feb
2003 16:36 Post
subject: |
|
|
Nathan: No doubt
converting the C fire you posted into a 9 lines basic program
has been a hard job... but it does'nt look like a fire, at
least in my computer. I added it to my favourites list ..as a
plasma.  _________________ Antoni | |
Back
to top |
|
 |
toonski84 I
hold this place together

Joined:
31 May 2002 Posts: 977 Location: Melbourne,
Florida
|
Posted: 09 Feb
2003 19:19 Post
subject: |
|
|
!! i cant believe i never
tried rel's second plasma until now!! oh my god, that is
AWESOME, *you win*. another one i failed to test was lithium's
starfield with lighting and motion blur... that is
amazing! _________________ D.A.M.M. - Drunks Against Mad
Mothers | |
Back
to top |
|
 |
toonski84 I
hold this place together

Joined:
31 May 2002 Posts: 977 Location: Melbourne,
Florida
|
Posted: 09 Feb
2003 19:26 Post
subject: |
|
|
oh, and i dont know who
wanted this, i think it was rel, but i converted my text fire
to "hi res" 80x50 and added a vertical refresh:
Code: |
1 IF i = 0 THEN WIDTH 80, 50 ELSE OUT
&H3C8, 0 2 FOR i = 0 TO 18 3 IF i = 18 THEN
WAIT &H3DA, 8 ELSE IF i MOD 3 = 0 THEN OUT
&H3C9, (i \ 3) * 10 ELSE OUT &H3C9, 0 4 NEXT
i 5 IF x% = 0 THEN DEF SEG = &HB800 ELSE CLS
6 FOR x% = 7999 TO 5080 STEP -2 7 IF x% >
7840 THEN POKE x%, CINT(RND) * 80 ELSE POKE x%,
((PEEK(x% + 160) + PEEK(x% + 162) + PEEK(x% + 158) +
PEEK(x% + 320) * 1.5) / 5) 8 NEXT 9 IF INKEY$ =
"" THEN GOTO 1 | _________________ 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: 09 Feb
2003 23:56 Post
subject: |
|
|
Nathan: I just compiled
your C fire, and this one is a real fire!
I don't know what do you and Phobeus did to the poor QB
fire to squeeze it into 9 lines...  _________________ Antoni | |
Back
to top |
|
 |
phobeous New
Member

Joined:
16 Aug 2002 Posts: 16 Location: Spain
|
Posted: 10 Feb
2003 00:06 Post
subject: Menos mal! |
|
|
Now i was going to tell you
that the 9 lines QB fire comes from one of the most realistic
fire coded in C
In QB the fire don't seems to be such a fire due to palette, i
mean, the palette we use in QB has more white than the C one.
I hope you liked it. BTW we made an ASM library with
simillar efects. We coded that for a intro but (as always) we
didn't finish it. _________________ Bed: nothing better
when you are tired. | |
Back
to top |
|
 |
westie Forum
Regular

Joined:
04 Dec 2002 Posts: 55 Location: syd, aus
|
Posted: 10 Feb
2003 05:33 Post
subject: |
|
|
SCREEN 13 DO a =
RND * 320 b = RND * 200 CIRCLE (a, b), RND * 100, RND
* 14 PAINT (a, b), 0 LOOP WHILE INKEY$ = ""
do i gain points because it is
short? _________________
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 |
|
 |
Megaman Cobra Tournament Organizer

Joined:
12 Dec 2002 Posts: 394 Location: Alaska
|
Posted: 10 Feb
2003 06:04 Post
subject: |
|
|
Code: |
SCREEN 13 FOR I% = 1 TO 256
OUT &H3C8, I%: OUT
&H3C9, 0: OUT &H3C9, 0: OUT &H3C9, I% * 5
NEXT DO A =
INT(RND * 320) + 2 B =
INT(RND * 200) + 2 LINE
(A + SIN(A * 9), B + COS(B \ 9))-(A + COS(A \ 9), B +
SIN B * 9)) , A * B \ B LOOP
| Here's
my first entry, I just typed in a bunch of random variables
and whatnot, and this is what it looked
like. _________________ QB
Colony | |
Back
to top |
|
 |
relsoft Sanzo

Joined:
05 Nov 2001 Posts: 764 Location: Philippines
|
Posted: 10 Feb
2003 06:20 Post
subject: |
|
|
Toonski: Woot!!!!!
Wooot!!!!!
See it looks great in 80*50!!!!
some 3dwaves:
this is the 9 line Flickers
code:
Code: |
'The Waves..... By RelSoft 2003
'Relsoft.ath.cx
1 IF A% = 0 THEN
SCREEN 12 ELSE DIM TX!(15, 15), TY!(15, 15) 2
A% = (A% + 10) MOD 360 3 LINE (0, 0)-(639,
479), 0, BF 4 FOR x% = 0 TO 14 5 FOR
z% = 0 TO 15 6 PSET ((320 + ((x% * (1 / 15 *
640)) - 320) / ((z% * (1 / 15 * 640)) / 640 + 1)), (320
+ ((150 + 25 * SIN((A% + (15 * (((x% - (N / 2)))) ^ 2 +
((z% - (N / 2))) ^ 2)) * (3.141593 / 180))) - 320) /
((z% * (1 / 15 * 640)) / 640 + 1))), 16 - (((z% * ( _
1 / 15 * 640)) / 640 + 1) - 1) * 15 7 NEXT
z%, x% 8 WAIT &H3DA, 8 9 IF
INKEY$ = "" THEN 2
|
This one is better looking but 10 lines
so its disqualified:
Code: |
'The Waves..... By RelSoft 2003
'Relsoft.ath.cx
1 IF A% = 0 THEN
SCREEN 12 ELSE DIM TX!(15, 15), TY!(15, 15) 2
A% = (A% + 10) MOD 360 3 FOR x% = 0 TO 14
4 FOR z% = 0 TO 15 5 PSET (TX!(x%,
z%), TY!(x%, z%)), 0 6 TX!(x%, z%) = 320 +
((x% * (1 / 15 * 640)) - 320) / ((z% * (1 / 15 * 640)) /
640 + 1) 7 TY!(x%, z%) = 320 + ((150 + 25 *
SIN((A% + (15 * (((x% - (N / 2)))) ^ 2 + ((z% - (N /
2))) ^ 2)) * (3.141593 / 180))) - 320) / ((z% * (1 / 15
* 640)) / 640 + 1) 8 PSET (TX!(x%, z%),
TY!(x%, z%)), 16 - (((z% * (1 / 15 * 640)) / 640 + 1) -
1) * 15 9 NEXT z%, x% 10 IF INKEY$ = ""
THEN 2
| _________________ Medium or Rare?
Mysite: Genso'
Junkyard Our game: Frantic Journey
New FJ Screenies:
http://polacka.xepher.net/ | |
Back
to top |
|
 |
Agamemnus Guru

Joined:
15 Jan 2003 Posts: 260
|
Posted: 10 Feb
2003 16:33 Post
subject: |
|
|
That is REALLY REALLY
impressive!!
Weird yet IMPRESSIVE!
Nice @
Megaman, but you forgot a
_________________ "Life is on the edge
of Chaos" -- Carl Sagan | |
Back
to top |
|
 |
relsoft Sanzo

Joined:
05 Nov 2001 Posts: 764 Location: Philippines
|
Posted: 11 Feb
2003 02:56 Post
subject: |
|
|
Gotta luv that Cyrix...
Code: |
'"Blurred StarField"
'relsoft.ath.cx
1 IF I& = 0 THEN SCREEN
13 ELSE IF I& < 256 THEN PALETTE I&, 65536 *
(I& \ 4) + 256 * (I& \ 4) + (I& \ 4) 2
I& = (I& + 1) AND &H7FFFFFFF 3
FOR K& = 0 TO 255 STEP 1 4
IF I& > 256 THEN CIRCLE (160 +
COS(K& - I&) * K&, 100 + SIN(K& -
I&) * K&), 1, 255 5 NEXT K&
6 IF I& > 255 THEN J& = (J& + 1) ELSE
GOTO 9 7 IF I& > 256 THEN POKE
J&, (PEEK(J&) + PEEK(J& - 1) + PEEK(J& +
1) + PEEK(J& - 320) + PEEK(J& + 320)) \ 5 ELSE
IF I& = 256 THEN DEF SEG = &HA000 8 IF
J& < 64000 THEN 5 ELSE J& = -1 9 IF
INKEY$ = "" THEN 1
DEF SEG
| _________________ Medium or Rare?
Mysite: Genso'
Junkyard Our game: Frantic Journey
New FJ Screenies:
http://polacka.xepher.net/ | |
Back
to top |
|
 |
toonski84 I
hold this place together

Joined:
31 May 2002 Posts: 977 Location: Melbourne,
Florida
|
Posted: 11 Feb
2003 03:00 Post
subject: |
|
|
no, really, rel, you can
stop it!!
i dont know if "starfield" is really the
best word for that though *shrug*. i have an idea on how to
combine a real starfield and a blur but it's
slow. _________________ D.A.M.M. - Drunks Against Mad
Mothers | |
Back
to top |
|
 |
relsoft Sanzo

Joined:
05 Nov 2001 Posts: 764 Location: Philippines
|
Posted: 11 Feb
2003 03:06 Post
subject: |
|
|
Please post.... Nice to
learn new stuff.
Would that be:
X=I&\320
Y=(I& mod 320)\320
? :*)
OMG!!!
that bouncing blurr is Kewl!!! Fast
too!!!! _________________ Medium or Rare?
Mysite: Genso'
Junkyard Our game: Frantic Journey
New FJ Screenies:
http://polacka.xepher.net/ | |
Back
to top |
|
 |
toonski84 I
hold this place together

Joined:
31 May 2002 Posts: 977 Location: Melbourne,
Florida
|
Posted: 11 Feb
2003 03:13 Post
subject: |
|
|
erm, to convert linear mode
13 coordinates to regular:
x = i& mod 320 y =
i& \ 320
and i said i had an idea, which means
i'll be tackling this tomorrow  _________________ D.A.M.M.
- Drunks Against Mad Mothers | |
Back
to top |
|
 |
relsoft Sanzo

Joined:
05 Nov 2001 Posts: 764 Location: Philippines
|
Posted: 11 Feb
2003 03:21 Post
subject: |
|
|
Kewl!!!!!
But i am
using this:
I&=(I&+1) amd &H7fffffff
So I need the exta mod. :*)
Would somebody
count how many F's are there?
;*) _________________ Medium or Rare?
Mysite: Genso'
Junkyard Our game: Frantic Journey
New FJ Screenies:
http://polacka.xepher.net/ | |
Back
to top |
|
 |
toonski84 I
hold this place together

Joined:
31 May 2002 Posts: 977 Location: Melbourne,
Florida
|
Posted: 11 Feb
2003 03:34 Post
subject: |
|
|
cool
7 f's. but what does it do? ensure you dont reach
infinity? _________________ D.A.M.M. - Drunks Against
Mad Mothers | |
Back
to top |
|
 |
relsoft Sanzo

Joined:
05 Nov 2001 Posts: 764 Location: Philippines
|
Posted: 11 Feb
2003 07:26 Post
subject: |
|
|
oooops!! Major Gufaw....
Should be MOD 64000 not mod 320
Nahh that's
the AND doing what's its supposed to do .
*) _________________ Medium or Rare?
Mysite: Genso'
Junkyard Our game: Frantic Journey
New FJ Screenies:
http://polacka.xepher.net/ | |
Back
to top |
|
 |
|