Jump to content

Even more fractionals = )


kelerps

Recommended Posts

I have started making some scripts for fractionals witch have come out decent but not as good as my others that where manually done in my opinion. Anyway this first one I didn't use a script for but the others i have.

 

 

 

apophysis0711207iv0.png

 

 

 

These next two was made with the first script i have made. It will produce the exact same thing every time, there is no random variables used in it.

 

 

 

default:

 

apophysis0711228vn8.png

 

 

 

same but with a bit changed:

 

apophysis0711229nr7.png

 

 

 

Here is the script i made for them if anyone has a use for it.

 

clear;



AddTransform;

with transform do

begin

color := 0.1;

linear := 0;

spherical := 1;





end;



AddTransform;

with transform do

begin

linear := 0;

heart := 0.5;

scale(5);

end



AddTransform;

with transform do

begin

linear := 1.5;

rings2_val := 2;



end



AddTransform;

with transform do

begin

linear := 1;

bubble := 30;

end;



Flame.scale := 100;

Flame.x := 0;

Flame.y := 0;

 

 

 

The second script I made included lots of random variables so it would produce something noticeably different every time. Basically all it did was produce rings.

 

 

 

apophysis07112210fb2.png

 

 

 

The ones below where colored by picking a random base color and each of the transforms drifted off from that a bit so it will not produce wild colors.

 

 

 

 

 

apophysis07112211hx8.png

 

 

 

apophysis07112212mt0.png

 

 

 

apophysis07112213lq6.png

 

 

 

Again, here is the script for the second one if anyone wants to try it out.

 

 

 

Clear;

n := Random / 3; //starts out with semi-random color



for i := 0 to 2 do

begin

   n := n + Random * 0.05; //increments n witch changes the color

   AddTransform;

   with transform do  // Multi-Colored Rings

   begin

       color := n;

       linear := 0.35 * Random;

       spherical := 1;

       rotate(360*Random);

       scale(3 * (Random * Random));

       bubbles := 0.5;

   end;

end;



AddTransform;

with transform do

begin

linear := 1 * random;

end;

Flame.Scale := 40;

Flame.x := 0;

Flame.Y := 0;

UpdateFlame:= true;    

 

 

 

Any ideas on what to do next along with C/C would be appreciated.

 

Feel free to use anything in this post for whatever purpose.

Link to comment
Share on other sites

First one's 'k'. The others just gave me a headache.

[if you have ever attempted Alchemy by clapping your hands or

by drawing an array, copy and paste this into your signature.]

 

Fullmetal Alchemist, you will be missed. A great ending to a great series.

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

By using this site, you agree to our Terms of Use.