View
previous topic :: View
next topic |
Author |
Message |
biskbart New
Member
Joined: 26 Sep 2001 Posts: 3
|
Posted: 13 Feb
2003 07:09 Post
subject: A compil |
|
|
I decided to compil nearly
all the programs in a ZIP file because it was not very useful.
You can find it on biskbart.free.fr | |
Back
to top |
|
 |
Antoni Gual Forum Regular

Joined:
08 Dec 2002 Posts: 90 Location: Barcelona, Spain
|
Posted: 13 Feb
2003 21:07 Post
subject: |
|
|
To have the right to do it
you must post a demo!  _________________ Antoni | |
Back
to top |
|
 |
relsoft Sanzo

Joined:
05 Nov 2001 Posts: 764 Location: Philippines
|
|
Back
to top |
|
 |
Neo Neo Deus
Ex Machina

Joined:
09 Aug 2002 Posts: 328 Location: The Netherlands
|
Posted: 14 Feb
2003 11:33 Post
subject: |
|
|
HEY
finally I see him somewhere LoL
mmmmrh hrmmmm, *looks
on HD*, I still have his cool Demo for the QB Demo Contest
2001. However, the Piano tune gets more
irritating... _________________ ___=== Neo ===___
___=== Deus ===___ ___=== Ex ===___ ___=== Machina
===___
Go
for some programming action!
BlindCoding | |
Back
to top |
|
 |
BlueKeyboard Surfing Keyboard

Joined:
19 Apr 2002 Posts: 322
|
Posted: 14 Feb
2003 12:38 Post
subject: |
|
|
Here is my "impossible
circle" .
Code: |
1 SCREEN 13 2 M$ =
"19171819202122232425262728293031191718192021222324252627282930311917181920212223242526272829303119171819202122232425262728293031191718192021222324252627282930311917181920212223242526272829303119171819202122232425262728293031191718192021222324252627282930311917181920212223242526272829303119171819202122232425262728293031191718192021222324252627282930311917181920212223242526272829303119171819202122232425262728293031191718192021222324252627282930311917181920212223242526272829303119171819202122232425262728293031"
3 DO 4 FOR A! = 0 TO 25 STEP .01 5 FOR Y% =
0 TO 15 6 FOR X% = 0 TO 15 7 PSET (160 + COS(A!)
* 50 + X%, 100 + SIN(A!) * 50 + Y%), VAL(MID$(M$, ((Y% *
2) * 16) + (X% * 2) + 1, 2)) 8 NEXT X%, Y%, A! 9
LOOP
| _________________ Visit Blind Coding | |
Back
to top |
|
 |
biskbart New
Member
Joined: 26 Sep 2001 Posts: 3
|
Posted: 14 Feb
2003 12:40 Post
subject: That's ok |
|
|
An ugly fire effect. Sorry
Code: |
1 SCREEN 13 2 DEF SEG =
&HA000 3 FOR I& = 50000 TO 63999 + 640 4
IF I& < 50768 THEN OUT &H3C9, (I& -
50000) \ 12 5 IF I& > 63950 THEN POKE 63999 +
RND * 640, 250 6 POKE I&, (PEEK(I&) +
PEEK(I& + 319) + PEEK(I& + 320) + PEEK(I& +
321)) * .235 7 NEXT I& 8 IF INKEY$ = "" THEN
30
| | |
Back
to top |
|
 |
Agamemnus Guru

Joined:
15 Jan 2003 Posts: 260
|
Posted: 15 Feb
2003 01:51 Post
subject: |
|
|
Key, It's obviously not
a circle.
It's 2 interlocked rings.
BTW,
Where's the exit
condition?
bikbart, Line
3. _________________ "Life is on the edge of Chaos" --
Carl Sagan | |
Back
to top |
|
 |
someone42 Member
Joined: 30 Jan 2003 Posts:
24
|
Posted: 15 Feb
2003 08:05 Post
subject: |
|
|
Hey all those graphic demos
are real good, especially since they only take up 9 lines!
Anyways here's mine:
Code: |
' Explosion screensaver by someone42
1 SCREEN 13 2 DIM p(255) AS LONG, A AS STRING *
4104 3 IF x& = 0 THEN CLS ELSE IF x&
MOD 256 = 0 THEN PALETTE USING p(0) 4 IF x& <
128 AND x& > 0 THEN p(x&) = ((64 - x& * 2
+ 1) AND NOT (((64 - x& * 2 + 1) AND &HFF00) \
256)) * 65536 + ((95 - x&) AND &H3F AND NOT
(((95 - x&) AND &HFF00) \ 256) OR (((x& -
32) AND &H3F00) \ 256)) * 256 + ((256 - 2 * x& -
1) AND &H3F OR _ (((x& - 96) AND
&H3F00) \ 256)) ELSE IF x& > 639 AND ((x&
- 384) \ 256) > ((x& - 384) AND 255) THEN
p((x& - 384) AND 255) = ((NOT SGN(p((x& - 384)
AND 255) - &H40000)) AND (p((x& - 384) AND 255)
- &H40000) AND &H3F0000) + ((NOT SGN((p((x&
- 384) AND _ 255) AND &HFF00) - 1024)) AND
(p((x& - 384) AND 255) - 1024) AND &H3F00) +
((NOT SGN((p((x& - 384) AND 255) AND 255) - 4)) AND
(p((x& - 384) AND 255) - 4) AND 63) 5 IF x&
< 384 AND x& > 127 THEN MID$(A, (x& - 128)
* 16 + 1, 24) = MKS$(RND * 6.28318 - 3.14159) + MKS$(RND
/ 2) + MKI$(CVS(MID$(A, 1, 4)) * 3259.496) +
MKI$(CVS(MID$(A, 5, 4)) * 12800 - 6400) +
MKI$(SIN(CVS(MID$(A, (x& - 128) * 16 + 1, 4))) *
CVS( _ MID$(A, (x& - 128) * 16 + 5, 4)) * 512) +
MKI$(COS(CVS(MID$(A, (x& - 128) * 16 + 1, 4))) *
CVS(MID$(A, (x& - 128) * 16 + 5, 4)) * 384) +
MKS$(RND * 6.28318 - 3.14159) + MKS$(RND / 2) 6 IF
x& > 383 THEN MID$(A, ((x& - 384) AND 255) *
16 + 9, 8) = MKI$(CVI(MID$(A, ((x& - 384) AND 255) *
16 + 9, 2)) + CVI(MID$(A, ((x& - 384) AND 255) * 16
+ 13, 2))) + MKI$(CVI(MID$(A, ((x& - 384) AND 255) *
16 + 11, 2)) + CVI(MID$(A, ((x& - 384) _
MOD 256) * 16 + 15, 2))) + MKI$(CVI(MID$(A, ((x&
- 384) MOD 256) * 16 + 13, 2)) * .98) + MKI$(CVI(MID$(A,
((x& - 384) MOD 256) * 16 + 15, 2)) * .98) 7 IF
x& > 383 AND (x& - 384) MOD 256 <> 0
THEN CIRCLE ((CVI(MID$(A, ((x& - 384) AND 255) * 16
+ 9, 2)) + 10240) / 64, (CVI(MID$(A, ((x& - 384) AND
255) * 16 + 11, 2)) + 12800) / 64), 1, (x& - 384) \
256 8 x& = (x& + 1) MOD 32897 9 IF
INKEY$ = "" THEN 3 |
Hehe sorry about the length - my
original program was 52 lines and it took a lot of trouble to
get it down to 9. Yeah and I know the
IF...THEN...ELSE...IF...THEN thing is a really cheesy hack to
fit more into one line, but there was no other way to do it.
It may run a bit slow (it's about 6 times slower than the
original, uncompressed program!) | |
Back
to top |
|
 |
toonski84 I
hold this place together

Joined:
31 May 2002 Posts: 977 Location: Melbourne,
Florida
|
Posted: 15 Feb
2003 15:59 Post
subject: |
|
|
hey, that's an awesome
demo, someone42! got any other programs that arent 9
lines? _________________ D.A.M.M. - Drunks Against Mad
Mothers | |
Back
to top |
|
 |
Lanzaa Member

Joined:
28 Dec 2002 Posts: 20 Location: California, USA
|
Posted: 15 Feb
2003 16:31 Post
subject: |
|
|
hey i just wanted to point
something out to bluekeyboard use the "If inkey$ = "" goto
4" or what ever instead of do...loop
Code: |
1 SCREEN 13 2 M$ =
"19171819202122232425262728293031191718192021222324252627282930311917181920212223242526272829303119171819202122232425262728293031191718192021222324252627282930311917181920212223242526272829303119171819202122232425262728293031191718192021222324252627282930311917181920212223242526272829303119171819202122232425262728293031191718192021222324252627282930311917181920212223242526272829303119171819202122232425262728293031191718192021222324252627282930311917181920212223242526272829303119171819202122232425262728293031"
4 FOR A! = 0 TO 25 STEP .01 5 FOR Y% = 0 TO 15
6 FOR X% = 0 TO 15 7 PSET (160 + COS(A!) * 50 +
X%, 100 + SIN(A!) * 50 + Y%), VAL(MID$(M$, ((Y% * 2) *
16) + (X% * 2) + 1, 2)) 8 NEXT X%, Y%, A! 9 If
inkey$ = "" goto 4 |
cuts down a line of code which you can
use and makes it so you can exit  _________________ The
manual is God, Google
is its mesenger well sorta | |
Back
to top |
|
 |
someone42 Member
Joined: 30 Jan 2003 Posts:
24
|
Posted: 16 Feb
2003 04:59 Post
subject: |
|
|
Quote: |
got any other programs that arent 9
lines?
|
Well, if you're talking about graphic
demos, not really. But usually I just program bits and pieces
of graphical/sound/network junk. Of course that means I
have over 200 files sitting in \QB45
Well, here's another one based around the same
concepts:
Code: |
' Crackler screensaver by someone42 1
SCREEN 9 2 a$ = MKI$(320) + MKI$(175) + MKI$(1) +
MKI$(1) + STRING$(12288, 0) 3 IF x& MOD 128 = 0
THEN MID$(a$, 1, 8) = MKI$(CVI(MID$(a$, 1, 2)) +
CVI(MID$(a$, 5, 2))) + MKI$(CVI(MID$(a$, 3, 2)) +
CVI(MID$(a$, 7, 2))) + MID$(a$, 5, 4) 4 IF x&
MOD 128 = 0 THEN MID$(a$, 5, 4) = MKI$((2 * ((0 >
CVI(MID$(a$, 1, 2))) OR (640 < CVI(MID$(a$, 1, 2))))
+ 1) * CVI(MID$(a$, 5, 2))) + MKI$((2 * (0 >
CVI(MID$(a$, 3, 2)) OR 350 < CVI(MID$(a$, 3, 2))) +
1) * CVI(MID$(a$, 7, 2))) 5 IF MID$(a$, x& * 12
+ 19, 2) = STRING$(2, 0) THEN MID$(a$, x& * 12 + 9,
12) = MKI$((CVI(MID$(a$, 1, 2)) - 320) * 64) +
MKI$((CVI(MID$(a$, 3, 2)) - 175) * 64) + MKI$(RND * 512
- 256) + MKI$(RND * 512 - 256) + MKI$(RND * 15 + 1) +
MKI$(RND * 24 + 4) _ ELSE MID$(a$, x& * 12 + 9,
12) = MKI$(CVI(MID$(a$, x& * 12 + 9, 2)) +
CVI(MID$(a$, x& * 12 + 13, 2))) + MKI$(CVI(MID$(a$,
x& * 12 + 11, 2)) + CVI(MID$(a$, x& * 12 + 15,
2))) + MID$(a$, x& * 12 + 13, 6) + MKI$(CVI(MID$(a$,
x& * 12 + 19, 2)) - 1) 6 IF MID$(a$, x& * 12
+ 19, 2) <> STRING$(2, 0) THEN PSET (CVI(MID$(a$,
x& * 12 + 9, 2)) \ 64 + 320, CVI(MID$(a$, x& *
12 + 11, 2)) \ 64 + 175), CVI(MID$(a$, x& * 12 + 17,
2)) 7 PSET ((CVI(MID$(a$, x& * 12 + 9, 2)) -
CVI(MID$(a$, x& * 12 + 13, 2))) \ 64 + 320,
(CVI(MID$(a$, x& * 12 + 11, 2)) - CVI(MID$(a$,
x& * 12 + 15, 2))) \ 64 + 175), 0 8 x& =
(x& + 1) MOD 1024 9 IF INKEY$ = "" THEN
3 | | |
Back
to top |
|
 |
BlueKeyboard Surfing Keyboard

Joined:
19 Apr 2002 Posts: 322
|
Posted: 16 Feb
2003 15:46 Post
subject: |
|
|
Agamemnus
wrote: |
Key, It's obviously not a
circle.
It's 2 interlocked rings.
|
That is a circle.... Oh and just
CTRL+Break.
lanzaa wrote: |
hey i just wanted to point something
out to bluekeyboard use the "If inkey$ = "" goto 4"
or what ever instead of do...loop
| I know,
it was 8 lines first, but I made it to 9 lines (but
I don't know ....why ). _________________ Visit
Blind Coding | |
Back
to top |
|
 |
toonski84 I
hold this place together

Joined:
31 May 2002 Posts: 977 Location: Melbourne,
Florida
|
Posted: 16 Feb
2003 16:40 Post
subject: |
|
|
hahaha!! seriously,
someone, that's awesome!!
how long have you been
coding? _________________ 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: 17 Feb
2003 00:00 Post
subject: Wirlpool |
|
|
Code: |
'Antoni Gual, from an idea by
Steve Nunnaly
1 IF i THEN CIRCLE (160, 100), i,
(i MOD 16) + 32, , , .8 ELSE SCREEN 13 2 i = i + 1
3 IF i < 200 THEN GOTO 1 ELSE DIM b2%(5000) 4
w = (w + .3) 5 xmid = 140 + SIN(7 * w / 1000) * 110
6 ymid = 80 + SIN(11 * w / 1000) * 59 7 GET
((xmid - (SIN(w) * 28)), (ymid - (COS(w) * 20)))-((xmid
- (SIN(w) * 28)) + 40, (ymid - (COS(w) * 20)) + 40), b2%
8 PUT ((xmid - (SIN(w - .04) * 27.16)), (ymid -
(COS(w - .04) * 19.4))), b2%, PSET 9 IF LEN(INKEY$)
= 0 THEN GOTO 4
| _________________ Antoni | |
Back
to top |
|
 |
relsoft Sanzo

Joined:
05 Nov 2001 Posts: 764 Location: Philippines
|
|
Back
to top |
|
 |
someone42 Member
Joined: 30 Jan 2003 Posts:
24
|
Posted: 17 Feb
2003 07:54 Post
subject: |
|
|
Quote: |
how long have you been
coding? |
Only a couple of years. I'm not a
newbie to qb but I am a newbie to this forum.
Quote: |
I knew of "Someone" who likes to 42
people..... | And who has that?
Well, 42 was a random number chosen because "someone"
was taken. | |
Back
to top |
|
 |
toonski84 I
hold this place together

Joined:
31 May 2002 Posts: 977 Location: Melbourne,
Florida
|
Posted: 17 Feb
2003 08:32 Post
subject: |
|
|
ever read "hitchiker's
guide to the galaxy?", someone? 42 is the answer to everything
and @antoni: HOLY**** THAT IS AN AWESOME
DEMO. _________________ D.A.M.M. - Drunks Against Mad
Mothers | |
Back
to top |
|
 |
Neo Neo Deus
Ex Machina

Joined:
09 Aug 2002 Posts: 328 Location: The Netherlands
|
Posted: 17 Feb
2003 09:38 Post
subject: |
|
|
WOW! There's good stuff here!
Oops, didn't make a 9-line effect myself yet :-/ oops
LoL _________________ ___=== Neo ===___ ___=== Deus
===___ ___=== Ex ===___ ___=== Machina ===___
Go
for some programming action!
BlindCoding | |
Back
to top |
|
 |
relsoft Sanzo

Joined:
05 Nov 2001 Posts: 764 Location: Philippines
|
|
Back
to top |
|
 |
BlueKeyboard Surfing Keyboard

Joined:
19 Apr 2002 Posts: 322
|
Posted: 18 Feb
2003 19:02 Post
subject: |
|
|
Code: |
1 SCREEN 13 '2 FOR I% = 0 TO 63 *
3 STEP 3 '3 FOR E% = 0 TO 3 '4 OUT &H3C6,
&HFF '5 OUT &H3C8, I% + E% + 1 '6 OUT
&H3C9, 0 '7 OUT &H3C9, I% / 3 '8 OUT
&H3C9, 0 '9 NEXT E%, I% 10 LINE (0, 0)-(319,
199), 0, BF 11 FOR I = 1 TO 359 STEP .09 12 PSET
(160 + COS(I + N%) * I, 100 + SIN(I + N%) * I), 2 13
NEXT 14 N% = N% + 1 15 GOTO 10
| Dont
stare at it too long .
I couldn't fit the palette mod inside ,
but if you run with it, change
Code: |
12 PSET (160 + COS(I + N%) * I, 100 +
SIN(I + N%) * I), 2 to 12 PSET (160 + COS(I +
N%) * I, 100 + SIN(I + N%) * I), I
| _________________ Visit Blind Coding | |
Back
to top |
|
 |
toonski84 I
hold this place together

Joined:
31 May 2002 Posts: 977 Location: Melbourne,
Florida
|
Posted: 18 Feb
2003 22:40 Post
subject: |
|
|
palette mod dont work but
if it did you could easily fit in there. (two hints: you can
use comparison operators in math expressions, and your for
next group, and you can adjust the for next look to cover 768
values easy. *shuts up now* _________________ D.A.M.M. -
Drunks Against Mad Mothers | |
Back
to top |
|
 |
BlueKeyboard Surfing Keyboard

Joined:
19 Apr 2002 Posts: 322
|
Posted: 19 Feb
2003 20:37 Post
subject: |
|
|
It doesn't work? .
Are you sure you changed 12 PSET (160 + COS(I + N%) *
I, 100 + SIN(I + N%) * I), 2 to 12 PSET (160 + COS(I +
N%) * I, 100 + SIN(I + N%) * I), I
toonski84
wrote: |
(two hints: you can use comparison
operators in math expressions, and your for next group,
and you can adjust the for next look to cover 768 values
easy. *shuts up now* | Hmmmm, how? . _________________ Visit
Blind Coding | |
Back
to top |
|
 |
toonski84 I
hold this place together

Joined:
31 May 2002 Posts: 977 Location: Melbourne,
Florida
|
Posted: 19 Feb
2003 23:14 Post
subject: |
|
|
Code: |
1 IF i = 0 THEN SCREEN 13 ELSE OUT
&H3C8, 0 2 LINE (0, 0)-(319, 199), 0, BF 3
FOR i = 1 TO 3590 4 IF i < 769 THEN OUT
&H3C9, (((i - 1) MOD 3) AND 1) * ((i - 1) \ 3) \ 4
5 PSET (160 + COS((i / 10) + N%) * .1 * i, 100 +
SIN(i / 10 + N%) * i / 10), i \ 10 6 NEXT 7 N% =
N% + 1 8 WAIT &H3DA, 8 9 GOTO
2 |
turns
out you didnt need any of that crap
but, since i talked about it, run this: x = 1
y = -(x < 2) print y y = -(x > 2) print
y _________________ D.A.M.M. - Drunks Against Mad
Mothers | |
Back
to top |
|
 |
BinarySHOCK New Member
Joined: 03 Feb
2003 Posts: 14
|
Posted: 22 Feb
2003 04:41 Post
subject: Text mode rotozoomer |
|
|
oh ya...
1 Ang! =
Ang! + .05 2 Var$ = MKI$(COS(Ang!) * SIN(Ang!) * 128) +
MKI$(SIN(Ang!) * SIN(Ang!) * 128) 3 FOR Ix% = -40 TO 39
4 FOR Iy% = -13 TO 11 5 LOCATE Iy% + 14, Ix% + 41
6 COLOR (((((Ix% * CVI(MID$(Var$, 1, 2)) + Iy% *
CVI(MID$(Var$, 3, 2))) XOR (Iy% * CVI(MID$(Var$, 1, 2)) - Ix%
* CVI(MID$(Var$, 3, 2)))) \ 512)) AND 15) 7 PRINT
CHR$(176); 8 NEXT Iy%, Ix% 9 IF LEN(INKEY$) = 0 THEN
1 _________________ Yesterday don't mean sh*t cuz
tommorow is the day you'll have to face. | |
Back
to top |
|
 |
R@dioman Senior Member

Joined:
16 May 2002 Posts: 182 Location: Winnipeg,
Manitoba
|
Posted: 22 Feb
2003 04:44 Post
subject: |
|
|
Niiiiice!!  _________________ -This
statement is false. -I am a liar. In fact, I am lying
right now. -Is this a question? | |
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
|