Qbasicnews.com
July 22, 2019, 06:46:35 AM *
Welcome, Guest. Please login or register.

Login with username, password and session length
News: Back to Qbasicnews.com | QB Online Help | FAQ | Chat | All Basic Code | QB Knowledge Base
 
   Home   Help Search Login Register  
Pages: [1]
  Print  
Author Topic: Fractal Challenge  (Read 10476 times)
j2krei08
Guru
**
Posts: 284



WWW
« on: January 10, 2006, 03:19:07 PM »

Make a fractal image either one of these two ways:

1. hand-draw (or with a graphics editor) at least a level-7 fractal.  YOU CAN NOT USE A FRACTAL GENERATOR!  Any that use one will be disqualified.

2. Create a BASIC program that generates fractals.  It must be YOUR code, and the number of stages must be changeable.  In this case, the more complex and fastest (combo of 2) will be chosen

1 of each category will be chosen for winning.
Logged
jakeman922
Member
*
Posts: 74



« Reply #1 on: February 07, 2006, 03:11:57 PM »

Quote from: "j2krei08"
Make a fractal image either one of these two ways:

1. hand-draw (or with a graphics editor) at least a level-7 fractal.  YOU CAN NOT USE A FRACTAL GENERATOR!  Any that use one will be disqualified.

2. Create a BASIC program that generates fractals.  It must be YOUR code, and the number of stages must be changeable.  In this case, the more complex and fastest (combo of 2) will be chosen

1 of each category will be chosen for winning.


I accept part 1 your challenge! Prepare to see a crappy Sierpinski Triangle!!!
Logged

quote="Bruce Raeman"]Anatomy (n): something everyone has, but which looks better on a girl[/quote]
j2krei08
Guru
**
Posts: 284



WWW
« Reply #2 on: February 07, 2006, 05:18:23 PM »

Wow, someone actually replied!  I wasn't expecting this...
Logged
Torahteen
Ancient Guru
****
Posts: 744



« Reply #3 on: February 08, 2006, 12:57:03 AM »

For #2, can I make a plasma style fractal generator?
Logged

quote="Deleter"]judging gameplay, you can adaquately compare quake 4 with pong[/quote]
Xerol
Member
*
Posts: 30



WWW
« Reply #4 on: February 08, 2006, 02:42:12 AM »

I'm working on a Julia/Mandelbrot explorer with advanced features designed to make good-looking wallpapers.

Some of them are in here: http://downloads.lggaming.com/wallpapers/
Logged

url=http://www.lggaming.com/user/xerol/songs/recycled][size=24]Recycled CompoST[/size][/url] - Best of 2005 Album by Xerol.
jakeman922
Member
*
Posts: 74



« Reply #5 on: February 08, 2006, 02:26:32 PM »

I can't get the photo posted! I'll keep on trying.
Logged

quote="Bruce Raeman"]Anatomy (n): something everyone has, but which looks better on a girl[/quote]
Xerol
Member
*
Posts: 30



WWW
« Reply #6 on: February 08, 2006, 02:34:33 PM »

Quote from: "jakeman922"
I can't get the photo posted! I'll keep on trying.


You drew a Sierpinski triangle to level SEVEN?
Logged

url=http://www.lggaming.com/user/xerol/songs/recycled][size=24]Recycled CompoST[/size][/url] - Best of 2005 Album by Xerol.
jakeman922
Member
*
Posts: 74



« Reply #7 on: February 08, 2006, 03:02:05 PM »

Quote from: "Xerol"
You drew a Sierpinski triangle to level SEVEN?


No, just 3rd iteration. I could go to 7th iteration if I wanted to, though. In fact, I think I will.
Logged

quote="Bruce Raeman"]Anatomy (n): something everyone has, but which looks better on a girl[/quote]
Xerol
Member
*
Posts: 30



WWW
« Reply #8 on: February 08, 2006, 03:46:37 PM »

Quote from: "jakeman922"
Quote from: "Xerol"
You drew a Sierpinski triangle to level SEVEN?


No, just 3rd iteration. I could go to 7th iteration if I wanted to, though. In fact, I think I will.


Well, considering that:
Quote
1. hand-draw (or with a graphics editor) at least a level-7 fractal. YOU CAN NOT USE A FRACTAL GENERATOR! Any that use one will be disqualified.

(Emphasis added)

I think you'd kinda have to Tongue
Logged

url=http://www.lggaming.com/user/xerol/songs/recycled][size=24]Recycled CompoST[/size][/url] - Best of 2005 Album by Xerol.
vspickelen
Member
*
Posts: 26



WWW
« Reply #9 on: February 08, 2006, 04:47:34 PM »

Try to track the levels this psychedelic CA machine traverses before returning to its initial state:

Code:
'Subject: A cellular automaton kaleidoscope.
'         You'll find the full version of this fascinating
'         Fredkin fractal machine in the Grids.zip-package at
'         http://home.graffiti.net/vspickelen:graffiti.net/index.html
'Author : vspickelen
'Date   : 02-08-2006
'Code   : all Q-Basic's, FreeBasic extendable
'Keys   : [Esc] quit program
'         Any other key to restart
DEFINT A-Z
CONST TMX = .2 ' set delay in s.

CONST MODE = 12, dW = 640, dH = 480
' set screenmode, width, height
'CONST MODE = 20, dW = 1024, dH = 768 ' FreeBasic only

CONST MAX = 256 ' * Must be a power-of-two! *
' (unless you wanta freaked out machine)
' Maximum grid size is 128 for Q-Basic's

CONST n1 = MAX - 1
SCREEN MODE
PALETTE 0, &H40406: PALETTE 1, &H70F00
PALETTE 2, &HA0009: PALETTE 3, &H121E
r = (dW - dH) \ 2
VIEW (r, 1)-(dW - r, dH - 2), , 3
WINDOW SCREEN (-.5, -.5)-(n1 + .5, n1 + .5)
RANDOMIZE TIMER
sw = 0

begin:
REDIM c(n1, n1, 1)
x = n1 \ 2
y = 1 + INT(RND * x)
FOR r = x - y TO x + y
   FOR s = x - y TO x + y
      c(s, r, sw) = 1
   NEXT s
NEXT r
CLS : RR = INT(RND * 2)

DO
   dt! = TIMER

   FOR r = 0 TO n1
      FOR s = 0 TO n1

         t = 0: IF RR THEN t = -c(s, r, sw)
         FOR rn = r - 1 TO r + 1
            ds = 1 - ABS(rn - r)

            FOR sn = s - ds TO s + ds
               x = (sn + MAX) AND n1
               y = (rn + MAX) AND n1
               t = t + c(x, y, sw)
            NEXT sn
         NEXT rn

         IF RR THEN t = t XOR c(s, r, 1 - sw)
         i = c(s, r, sw) * 2 AND 2
         c(s, r, 1 - sw) = i OR (t AND 1)
      NEXT s
   NEXT r
   sw = 1 - sw

   d! = .491
   FOR y = 0 TO n1
      FOR x = 0 TO n1
         IF c(x, y, sw) XOR c(x, y, 1 - sw) THEN
            LINE (x - d!, y - d!)-(x + d!, y + d!), c(x, y, sw), BF
         END IF
      NEXT x
   NEXT y

   g$ = INKEY$
   IF g$ <> "" THEN
      IF ASC(g$) = 27 THEN
         EXIT DO
      ELSE
         GOTO begin
      END IF
      WHILE INKEY$ <> "": WEND
   END IF

   WHILE TMX > TIMER - dt!: WEND
LOOP
SYSTEM


-You'll soon lose count.
vspickelen
Logged
vspickelen
Member
*
Posts: 26



WWW
« Reply #10 on: February 11, 2006, 06:21:01 PM »

( :-? Aside, to himself: 'Whotta silence, sumthing must've scared'em off...')
Aloud: 'Don't be shy guys, just draw near! Though her manifold guises look frighteningly beautiful, she's a kind lil'piece of code all the same...' :rotfl:

Steamin' days these days...enjoy yet another addition to the already chock-full Grids.zip-package: PurpleRug.bas.
vspickelen
Logged
j2krei08
Guru
**
Posts: 284



WWW
« Reply #11 on: February 13, 2006, 03:19:16 PM »

Tons of awesome-ness-icity.  Keep going with that!
Logged
j2krei08
Guru
**
Posts: 284



WWW
« Reply #12 on: February 13, 2006, 03:22:22 PM »

New rule addition!  You can make a fractal generator, but just don't use it to make an entry.
Logged
axipher
Ancient Guru
****
Posts: 544



« Reply #13 on: February 13, 2006, 03:34:31 PM »



It's a black dot on a white background fractalled to level 7
Logged
red_Marvin
Na_th_an
*****
Posts: 1509



WWW
« Reply #14 on: February 13, 2006, 04:06:51 PM »

These two I made some time ago:
http://forum.qbasicnews.com/viewtopic.php?t=10521&start=0&postdays=0&postorder=asc
http://forum.qbasicnews.com/viewtopic.php?t=10363&start=0&postdays=0&postorder=asc
Logged

/post]
Pages: [1]
  Print  
 
Jump to:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2015, Simple Machines Valid XHTML 1.0! Valid CSS!