Posts: 309
Threads: 15
Joined: Jul 2003
whitetiger,
That's a neat effect.
Lachie,
It's too fast.
hrist Jesus came into the world to save sinners, of whom I am first.(I Timothy 1:15)
For God so loved the world, that He gave His only begotten Son,
that whoever believes in Him should not perish, but have eternal life.(John 3:16)
Posts: 1,688
Threads: 119
Joined: Jun 2003
whitetiger: wow!!! that looks great! omg! kinda like fake 3d!
Jumping Jahoolipers!
Posts: 3,368
Threads: 195
Joined: Jan 2003
I played with Lachie's code and I made something demented. Adjust that "5000" if it's too fast.
Code: DEFINT A-Z: SCREEN 13
FOR i& = 0 TO 255: OUT &H3C9, 0: OUT &H3C9, i&: OUT &H3C9, 0: NEXT i&
i& = 0: mb = -3: ma = 15: me = 0: mc = -1: mc2 = -1: md = 255
DO: m2& = 0: FOR m = ma TO mb STEP mc
m2& = m2& + 5000 / (SQR(ABS(m) + 1)): m2& = m2&
FOR i = md TO me STEP mc2
FOR j& = 1 TO m2&: NEXT j&
im = i * m / 4
sqr.i% = SQR(i%)
FOR im2 = im - sqr.i% TO im + sqr.i%
LINE (0, 0)-(160, 200 - im2), i: LINE (160, 200 - im2)-(319, 0), i
LINE (319, 200 - 100)-(160, 200 - im2), i: LINE (160, 200 - im2)-(0, 100), i
LINE (0, 200)-(160, im2), i: LINE (160, im2)-(319, 200), i
LINE (319, 100)-(160, im2), i: LINE (160, im2)-(0, 100), i
NEXT im2
IF INKEY$ <> "" THEN EXIT DO
NEXT i: SWAP md, me: mc2 = -mc2: NEXT m: SWAP ma, mb: mc = -mc: LOOP
Peace cannot be obtained without war. Why? If there is already peace, it is unnecessary for war. If there is no peace, there is already war."
Visit www.neobasic.net to see rubbish in all its finest.
Posts: 3,368
Threads: 195
Joined: Jan 2003
something even more interesting:
Code: DEFINT A-Z: SCREEN 13
FOR i& = 0 TO 255: OUT &H3C9, 0: OUT &H3C9, i&: OUT &H3C9, 0: NEXT i&
i& = 0: mb = -3: ma = 14: me = 0: mc = -1: mc2 = -1: md = 255
DO: m2& = 0: FOR m = ma TO mb STEP mc
m2& = m2& + 5000 / (SQR(ABS(m) + 1)): m2& = m2&
FOR i = md TO me STEP mc2
IF me > 128 THEN OUT &H3C9, 0
OUT &H3C9, i
IF me > 128 THEN OUT &H3C9, 0
FOR j& = 1 TO m2&: NEXT j&: im = i * m \ 4: sqr.i% = SQR(i%)
FOR im2 = im - sqr.i% TO im + sqr.i%
LINE (0, 0)-(160, 200 - im2), i: LINE (160, 200 - im2)-(319, 0), i
LINE (319, 100)-(160, 200 - im2), i: LINE (160, 200 - im2)-(0, 100), i
LINE (0, 200)-(160, im2), i: LINE (160, im2)-(319, 200), i
LINE (319, 100)-(160, im2), i: LINE (160, im2)-(0, 100), i
NEXT im2
IF INKEY$ <> "" THEN EXIT DO
NEXT i: SWAP md, me: mc2 = -mc2: NEXT m: SWAP ma, mb: mc = -mc: LOOP
Peace cannot be obtained without war. Why? If there is already peace, it is unnecessary for war. If there is no peace, there is already war."
Visit www.neobasic.net to see rubbish in all its finest.
Posts: 1,845
Threads: 44
Joined: Aug 2002
Quote:Neo Wrote:Usage of proper formulas tend to draw some nice figures with cool colors. I like them all you posted here. But there's something I like better, Plasmas!! 
Just wait a lil wee longer. ;*)
Just a lil wee. ;*)
Woohaaaw!! I can't wait! :*) lol
Posts: 729
Threads: 104
Joined: Jan 2003
I was playing around with Whitetigers code, I threw in some brutal optimizations I know, and got this:
Code: DEFINT A-Z
DIM memloc AS LONG
SCREEN 13
DEF SEG = &HA000
WHILE INKEY$ = ""
z = (z + 1) AND 255
memloc = 0
FOR y = 1 TO 200
yot = y * 5
yy = (yot) - 200'Added height
IF yy <= 0 THEN yy = 1
FOR x = 1 TO 320
xx = (x + x + x + x + x)
xx = (xx + xx) - 1600'perspective correction
IF yy = 1 THEN xx = 0: zz = 1 ELSE zz = z
POKE memloc, (xx / yy + zz)
memloc = memloc + 1
NEXT x, y
WEND
EDIT: I updated it to a version that uses fixed point for it's calculations. Compile this bad boy and watch it fly. It's kind of surreal. 
Posts: 3,368
Threads: 195
Joined: Jan 2003
I guess my screensaver will just be ignored.
Peace cannot be obtained without war. Why? If there is already peace, it is unnecessary for war. If there is no peace, there is already war."
Visit www.neobasic.net to see rubbish in all its finest.
Posts: 729
Threads: 104
Joined: Jan 2003
Why? There's plenty of processor time for everyone. i tried yours out, but after the mind boggling colourful 3d effects, it just didn't have the same allure. It just seems to be missing something to make it uber cool. 
Posts: 614
Threads: 87
Joined: Aug 2001
Holy crap... nice stuff there guys
no way, aga i thought ur screen saver was the bomb diggity dank shieot! if i took acid n watched that id probably cry and wet myself 
|
