Qbasicnews.com

Qbasicnews.com > QbasicNews.Com > Challenges > Challenge....
Full Version: Challenge....
You're currently viewing a stripped down version of our content. View the full version with proper formatting.
Pages: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

biskbart

02-13-2003, 12:09 PM
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

Antoni Gual

02-14-2003, 02:07 AM
To have the right to do it you must post a demo! :wink:

relsoft

02-14-2003, 10:21 AM
Yay!!! Biskbart's alive!!!!!

:*)

Post dude!!!

:rotfl:

Neo

02-14-2003, 04:33 PM
HEY 8) 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...

BlueKeyboard

02-14-2003, 05:38 PM
Here is my "impossible circle" Big Grin.
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

biskbart

02-14-2003, 05:40 PM
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

Agamemnus

02-15-2003, 06:51 AM
Key,
It's obviously not a circle.


It's 2 interlocked rings.

BTW,

Where's the exit condition?

bikbart,
Line 3.

someone42

02-15-2003, 01:05 PM
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!)

toonski84

02-15-2003, 08:59 PM
hey, that's an awesome demo, someone42! got any other programs that arent 9 lines?

Lanzaa

02-15-2003, 09:31 PM
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 8)
Pages: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
Qbasicnews.com > QbasicNews.Com > Challenges > Challenge....