Rovastar & Roger Bigod - Wallpaper Warp

Rovastar · Post by **Rovastar** » Thu Aug 26, 2004 8:32 am

Played with the lovely wallpaper scenes from Roger Bigod from created this.

Next stop how to make swirls of the repeated images.....ummh

Enjoy

Code: Select all

// Rovastar & Roger Bigod - Wallpaper Warp
//  
//  Flowfield for G-Force
//  Orginal Flowfield &#40;Wallpaper*442&#41; by Roger Bigod 1-AUG-04
//  New version by Rovastar 26-Aug-04

Aspc=1

A0="0.50"                      // repeat size
A1="rnd&#40;0.05*a0&#41;"              // displacements within cell
A2="rnd&#40;0.05*a0&#41;" 
//A3="-0.3+rnd&#40;0.6&#41;"             // for curvature &#40;old&#41;
A3 = "sgn&#40;rnd&#40;2&#41;-1&#41;*&#40;0.5+rnd&#40;0.8&#41;&#41;" 
//A3 = "sgn&#40;rnd&#40;2&#41;-1&#41;*&#40;0.1+rnd&#40;0.2&#41;&#41;" 
// for the curvature power &#40;zoom exp&#41; of but using a range 
//-1.3 to -0.5 and 0.5 to 1.3 not the values in between 
//as too near zero the effect is lost
A4="rnd&#40;.05&#41;-0.025"            // for rotation -- lower is sharper
A5="rnd&#40;.05&#41;-0.025"            // horizontal movement
A6="rnd&#40;.05&#41;-0.025"            // vertical movement
A7="1+rnd&#40;.07&#41;"                // expansion -- pane effect

// Save computation with these scrap vars... &#40;see below comment block for original exprs&#41;
A8=".5"	// .5 == 0.707107 * 0.707107
A9= "a0 * a7 * &#40;1-a4&#41;"
A10="a0 * a7 * a4"
A11="a0 * a5"
A12="a0 * a6"
A13="14 + rnd&#40; 40 &#41;" // =complexity of the warp
D0="1/sqrt&#40;pos&#40;1-&#40;&#40;a3*r&#41;&#41;*sqr&#40;&#40;1*&#40;abs&#40;cos&#40;&#40;theta&#41;*A13&#41;&#41;*abs&#40;sin&#40;&#40;theta&#41;*A13*1&#41;&#41;&#41;&#41;&#41;&#41;&#41;" 
D1="a8 * &#40; d0*&#40;trwv&#40;&#40;&#40;d0*x-a1&#41;/a0&#41;+0.5&#41;-0.5&#41;+a1 &#41;",  // displace, wrap, reflect
D2="a8 * &#40; d0*&#40;trwv&#40;&#40;&#40;d0*y-a2&#41;/a0&#41;+0.5&#41;-0.5&#41;+a2 &#41;",


D3="abs&#40; d2 + d1 &#41;"            // rotate 45 degrees
D4="abs&#40; d2 - d1 &#41;"
D5="d3-d4"                     // reverse rotation
D6="d3+d4"

srcX="a10*d6 +  a9*d5 + a11"                         // rotate, expand, move
srcY=" a9*d6 - a10*d5 + a12"

Vers=270

Rovastar · Post by **Rovastar** » Thu Aug 26, 2004 8:59 am

This is more like it no swirls yet but interesting stuff.

Code: Select all

// Rovastar & Roger Bigod - Wallpaper Twist
//  
//  Flowfield for G-Force
//  Orginal Flowfield &#40;Wallpaper*442&#41; by Roger Bigod 1-AUG-04
//  New version by Rovastar 26-Aug-04

Aspc=1

A0="0.50"                      // repeat size
A1="rnd&#40;0.05*a0&#41;"              // displacements within cell
A2="rnd&#40;0.05*a0&#41;" 
A3="rnd&#40;3&#41; -1.5"             // twist
A4="rnd&#40;.05&#41;-0.025"            // for rotation -- lower is sharper
A5="rnd&#40;.05&#41;-0.025"            // horizontal movement
A6="rnd&#40;.05&#41;-0.025"            // vertical movement
A7="1+rnd&#40;.07&#41;"                // expansion -- pane effect

// Save computation with these scrap vars... &#40;see below comment block for original exprs&#41;
A8=".5"	// .5 == 0.707107 * 0.707107
A9= "a0 * a7 * &#40;1-a4&#41;"
A10="a0 * a7 * a4"
A11="a0 * a5"
A12="a0 * a6"
A13="14 + rnd&#40; 40 &#41;" // =complexity of the warp
D0 = "a3*&#40;abs&#40;sin&#40;x&#41;&#41;-abs&#40;sin&#40;y&#41;&#41;&#41;" //effect
D1="1/sqrt&#40;pos&#40;1-D0&#41;&#41;"
D2="a8 * &#40; d1*&#40;trwv&#40;&#40;&#40;d1*x-a1&#41;/a0&#41;+0.5&#41;-0.5&#41;+a1 &#41;"  // displace, wrap, reflect
D3="a8 * &#40; d1*&#40;trwv&#40;&#40;&#40;d1*y-a2&#41;/a0&#41;+0.5&#41;-0.5&#41;+a2 &#41;"
D4="abs&#40; d3 + d2 &#41;"            // rotate 45 degrees
D5="abs&#40; d3 - d2 &#41;"
D6="d4-d5"                     // reverse rotation
D7="d4+d5"

srcX="a10*d6 +  a9*d5 + a11"                         // rotate, expand, move
srcY=" a9*d6 - a10*d5 + a12"

Vers=270

Rovastar · Post by **Rovastar** » Thu Aug 26, 2004 9:30 am

And another

Code: Select all

// Rovastar & Roger Bigod - Wallpaper Fractals
//  
//  Flowfield for G-Force
//  Orginal Flowfield &#40;Wallpaper*442&#41; by Roger Bigod 1-AUG-04
//  New version by Rovastar 26-Aug-04

Aspc=1

A0="0.50"                      // repeat size
A1="rnd&#40;0.05*a0&#41;"              // displacements within cell
A2="rnd&#40;0.05*a0&#41;" 
//A3="rnd&#40;3&#41; -1.5"             // twist
A3 = "rnd&#40;1.2&#41; - 0.6"
A4="rnd&#40;.05&#41;-0.025"            // for rotation -- lower is sharper
A5="rnd&#40;.05&#41;-0.025"            // horizontal movement
A6="rnd&#40;.05&#41;-0.025"            // vertical movement
A7="1+rnd&#40;.07&#41;"                // expansion -- pane effect

// Save computation with these scrap vars... &#40;see below comment block for original exprs&#41;
A8=".5"	// .5 == 0.707107 * 0.707107
A9= "a0 * a7 * &#40;1-a4&#41;"
A10="a0 * a7 * a4"
A11="a0 * a5"
A12="a0 * a6"
A13="14 + rnd&#40; 40 &#41;" // =complexity of the warp
A14 = "sgn&#40;rnd&#40;2&#41;-1&#41;*&#40;0.5+rnd&#40;1.8&#41;&#41;"
A15="0.1"

D0 = "&#40;&#40;A14*x*y&#41;/&#40;r^&#40;r+A3&#41;&#41;&#41;" //effect
D1="1/sqrt&#40;pos&#40;1-D0&#41;&#41;"
D2="a8 * &#40; d1*&#40;trwv&#40;&#40;&#40;d1*x-a1&#41;/a0&#41;+0.5&#41;-0.5&#41;+a1 &#41;"  // displace, wrap, reflect
D3="a8 * &#40; d1*&#40;trwv&#40;&#40;&#40;d1*y-a2&#41;/a0&#41;+0.5&#41;-0.5&#41;+a2 &#41;"
D4="abs&#40; d3 + d2 &#41;"            // rotate 45 degrees
D5="abs&#40; d3 - d2 &#41;"
D6="d4-d5"                     // reverse rotation
D7="d4+d5"

srcX="a10*d6 +  a9*d5 + a11"                         // rotate, expand, move
srcY=" a9*d6 - a10*d5 + a12"

Vers=270

JayPro · Post by **JayPro** » Thu Aug 26, 2004 1:25 pm

You don't need swirls, dude. These are masterpieces. Wallpaper Fractals is stunning.

Fractal + Kaleidoscope =

Rovastar · Post by **Rovastar** » Thu Aug 26, 2004 2:34 pm

Glad you like them.

Gonna tweak them a little more I think before I'm done.

ANd as you like the fractals so much here is another.

Code: Select all

// Rovastar & Roger Bigod - Wallpaper Fractals 2
//  
//  Flowfield for G-Force 
//  Orginal Flowfield &#40;Wallpaper*442&#41; by Roger Bigod 1-AUG-04 
//  New version by Rovastar 26-Aug-04 

Aspc=1 

A0="0.50"                      // repeat size 
A1="rnd&#40;0.05*a0&#41;"              // displacements within cell 
A2="rnd&#40;0.05*a0&#41;" 
//A3="rnd&#40;3&#41; -1.5"             // twist 
A3 = "rnd&#40;1.2&#41; - 0.6" 
A4="rnd&#40;.05&#41;-0.025"            // for rotation -- lower is sharper 
A5="rnd&#40;.05&#41;-0.025"            // horizontal movement 
A6="rnd&#40;.05&#41;-0.025"            // vertical movement 
A7="1+rnd&#40;.07&#41;"                // expansion -- pane effect 

// Save computation with these scrap vars... &#40;see below comment block for original exprs&#41; 
A8=".5"   // .5 == 0.707107 * 0.707107 
A9= "a0 * a7 * &#40;1-a4&#41;" 
A10="a0 * a7 * a4" 
A11="a0 * a5" 
A12="a0 * a6" 
//A13="14 + rnd&#40; 40 &#41;" // =complexity of the warp 
A14 = "&#40;5+rnd&#40;10&#41;&#41;" //x multipler
A15 = "&#40;5+rnd&#40;10&#41;&#41;" //y multipler
A16 = "0.78+ rnd&#40;0.38&#41;" //multipler warp
A17 = "rnd&#40;0.3&#41;" //crazy x offset

D0 = "A16*&#40;sin&#40;sqrt&#40;&#40;A14*&#40;x-A17&#41;*&#40;x+A17&#41;&#41;+&#40;A15*&#40;y&#41;*&#40;y&#41;&#41;&#41;&#41;&#41;" 
//effect &#40;using a polar to cart conversion of radius 
//&#40;r&#41; == sqrt&#40;&#40;x*x&#41;+&#40;y*y&#41;&#41; and messing with it. &#58;&#41; 
D1="&#40;1/sqrt&#40;1-pos&#40;D0&#41;&#41;&#41;" 
D2="a8 * &#40; d1*&#40;trwv&#40;&#40;&#40;d1*x-a1&#41;/a0&#41;+0.5&#41;-0.5&#41;+a1 &#41;"  // displace, wrap, reflect 
D3="a8 * &#40; d1*&#40;trwv&#40;&#40;&#40;d1*y-a2&#41;/a0&#41;+0.5&#41;-0.5&#41;+a2 &#41;" 
D4="abs&#40; d3 + d2 &#41;"            // rotate 45 degrees 
D5="abs&#40; d3 - d2 &#41;" 
D6="d4-d5"                     // reverse rotation 
D7="d4+d5" 

srcX="a10*d6 +  a9*d5 + a11"                         // rotate, expand, move 
srcY=" a9*d6 - a10*d5 + a12" 

Vers=270

Enjoy.

JayPro · Post by **JayPro** » Thu Aug 26, 2004 3:06 pm

To save time, I made a clipping of the whole code and pasted it into a blank text file. The kaleidoscope-tiled effect is there; but something (the fractal warping I figure) seems missing.

Rovastar · Post by **Rovastar** » Thu Aug 26, 2004 3:13 pm

It could be the word wraping or something but I am noticing strange things happening when I use A values > 15 (A16, A17, etc) STill trying to get to the bottom of it.

I'll try and work out what is happening I'll repost this one in a few minutes stay tuned.

Rovastar · Post by **Rovastar** » Thu Aug 26, 2004 3:38 pm

Try this one

Yeah you cannnot have A values more than A15 otherwise things go wrong.

Code: Select all

// Rovastar & Roger Bigod - Wallpaper Fractals 2
//  
//  Flowfield for G-Force 
//  Orginal Flowfield &#40;Wallpaper*442&#41; by Roger Bigod 1-AUG-04 
//  New version by Rovastar 26-Aug-04 

Aspc=1 

A0="0.50"                      // repeat size 
A1="rnd&#40;0.05*a0&#41;"              // displacements within cell 
A2="rnd&#40;0.05*a0&#41;" 
//A3="rnd&#40;3&#41; -1.5"             // twist 
A3 = "0" 	//crazy x offset for warp
A4="rnd&#40;.05&#41;-0.025"            // for rotation -- lower is sharper 
A5="rnd&#40;.05&#41;-0.025"            // horizontal movement 
A6="rnd&#40;.05&#41;-0.025"            // vertical movement 
A7="1+rnd&#40;.07&#41;"                // expansion -- pane effect 

// Save computation with these scrap vars... &#40;see below comment block for original exprs&#41; 
//A8=".5"   // .5 == 0.707107 * 0.707107 
A8 = "0"  //crazy y offset for warp

A9= "a0 * a7 * &#40;1-a4&#41;" 
A10="a0 * a7 * a4" 
A11="a0 * a5" 
A12="a0 * a6" 
//A13="14 + rnd&#40; 40 &#41;" // =complexity of the warp 

A13 = "&#40;5+rnd&#40;10&#41;&#41;" //x multipler 
A14 = "&#40;5+rnd&#40;10&#41;&#41;" //y multipler 
A15 = "0.8+ rnd&#40;0.38&#41;" //multipler warp 

D0 = "A15*&#40;sin&#40;sqrt&#40;&#40;A13*x*x&#41;+&#40;A14*y*y&#41;&#41;&#41;&#41;" 
//effect &#40;using a polar to cart conversion of
//radius &#40;r&#41; == sqrt&#40;&#40;x*x&#41;+&#40;y*y&#41;&#41; and messing with it. &#58;&#41; 
D1="&#40;1/sqrt&#40;1-pos&#40;D0&#41;&#41;&#41;" 
D2="0.5 * &#40; d1*&#40;trwv&#40;&#40;&#40;d1*x-a1&#41;/a0&#41;+0.5&#41;-0.5&#41;+a1 &#41;"  // displace, wrap, reflect 
D3="0.5 * &#40; d1*&#40;trwv&#40;&#40;&#40;d1*y-a2&#41;/a0&#41;+0.5&#41;-0.5&#41;+a2 &#41;" 
D4="abs&#40; d3 + d2 &#41;"            // rotate 45 degrees 
D5="abs&#40; d3 - d2 &#41;" 
D6="d4-d5"                     // reverse rotation 
D7="d4+d5" 

srcX="a10*d6 +  a9*d5 + a11"                         // rotate, expand, move 
srcY=" a9*d6 - a10*d5 + a12" 

Vers=270

JayPro · Post by **JayPro** » Thu Aug 26, 2004 3:56 pm

oh yeah...

Anyway, I kinda realize that going overboard on the A or D variables sacrifices processor power; but the end result is worth the licking it takes.

Future improvements ought to fix that, tho.

Rovastar · Post by **Rovastar** » Thu Aug 26, 2004 4:22 pm

Cool Now I am trying something different. Playing witH TRiFLow FF.

Here is the first mod.

Code: Select all

//  Rovastar - Dimensional Rift
//
//  With help from "My Lost Marbles" by "Ted" & "TriFlow" by "Roger Bigod"
//



Aspc=1



A0=".05+rnd&#40;.2&#41;"                 // cell size
//A0 = "0.4"
A1="&#40;0.2+rnd&#40;.15&#41;&#41;*a0"          // speed of flow
A2="0.5*&#40;1+sgn&#40;rnd&#40;1&#41;-0.5&#41;&#41;"    // randomly 0 or 1
//A2="0"
A3="1/a0"

// Temp vars
A4=".5 * a0"
A5=".866025*a0"
A6="1-a2"


D0="&#40;1.154702*y&#41;*a3"
D1="&#40;x-.5773503*y&#41;*a3"
D2="&#40;x+.5773503*y&#41;*a3"




D3="sgn&#40;-0.5+wrap&#40;&#40;1+d0&#41;/2&#41;&#41;*sgn&#40;-0.5+wrap&#40;&#40;1+d1&#41;/2&#41;&#41;*sgn&#40;-0.5+wrap&#40;&#40;1+d2&#41;/2&#41;&#41;"
D4="a4*&#40; Flor&#40;d1&#41; + flor&#40;d2&#41; +1 &#41;"                // center of triangle
D5="a5*&#40; flor&#40;d0&#41; +0.5 - 0.166*d3 &#41;"

D6="a1*&#40;&#40;&#40;d3&#41;^5&#41;&#41;"

srcR="r+d6*&#40;d5-theta&#41;"
srcT="theta-d6*&#40;d4-r&#41;"

Vers=270

Rovastar · Post by **Rovastar** » Thu Aug 26, 2004 4:36 pm

Now I *know* I can do something really cool with this but not there yet.

Look at the cool fractal effect in the bottom right.

Now to get that on most of the screen.

Not much more time tonight though.

Check it.

Code: Select all

//  Rovastar - Fractal Dreaming &#40;test&#41;
//
//  With help from "My Lost Marbles" by "Ted" & "TriFlow" by "Roger Bigod"
//



Aspc=1



A0=".3"                 // cell size
//A0 = "0.25"
A1="&#40;0.2+rnd&#40;.15&#41;&#41;*a0"          // speed of flow
A2="0.5*&#40;1+sgn&#40;rnd&#40;1&#41;-0.5&#41;&#41;"    // randomly 0 or 1
//A2="0"
A3="1/a0"

// Temp vars
A4=".5 * a0"
A5=".866025*a0"
A6="1-a2"

A7="-1.6"


D0="&#40;1.154702*y&#41;*a3"
D1="&#40;x-.5773503*y&#41;*a3"
D2="&#40;x+.5773503*y&#41;*a3"




D3="sgn&#40;-0.5+wrap&#40;&#40;1+d0&#41;/2&#41;&#41;*sgn&#40;-0.5+wrap&#40;&#40;1+d1&#41;/2&#41;&#41;*sgn&#40;-0.5+wrap&#40;&#40;1+d2&#41;/2&#41;&#41;"
D4="a4*&#40; Flor&#40;d1&#41; + flor&#40;d2&#41; +1 &#41;"                // center of triangle
D5="a5*&#40; flor&#40;d0&#41; +0.5 - 0.166*d3 &#41;"

D6="a1*&#40;&#40;d3-a7&#41;*10&#41;"


//srcX="x+d6*&#40;d5-y&#41;"
//srcY="y-d6*&#40;d4-x&#41;"
srcR="r+d6*&#40;d5-theta&#41; "
srcT="theta-d6*&#40;d4-r&#41;"



Vers=270

JayPro · Post by **JayPro** » Thu Aug 26, 2004 4:46 pm

Try this in your sources for Dimension Rift, as IMO the way you have it now seems a bit assymentrical:

srcR="r+d6*trwv(d5-theta)
srcT="theta-d6*atan2(d4-r)"

Just a thought.

Rovastar · Post by **Rovastar** » Thu Aug 26, 2004 4:56 pm

Given up on that one for now.

http://soundspectrum.com/v-web/bulletin ... .php?t=168

Welcome to SoundSpectrum User Forums

Rovastar & Roger Bigod - Wallpaper Warp

Rovastar & Roger Bigod - Wallpaper Warp

Idea...