HOME | DD

ToAPP In reply to Ukiby3000 [2007-07-20 02:20:49 +0000 UTC]

Unfortunately the version you have probably won't work very well in Apo2.06 (the current popular version). I'm replacing the original file with the fix tonight if you'd like to download it. It will work in all 2.05 and 2.06 versions (no tube scripts will ever work in Apo2.04 or earlier).

👍: 0 ⏩: 1

Ukiby3000 In reply to ToAPP [2007-07-20 03:15:15 +0000 UTC]

Oh, alright then ^^ I'll download the new version then.

👍: 0 ⏩: 1

ToAPP In reply to Ukiby3000 [2007-07-28 15:03:01 +0000 UTC]

👍: 0 ⏩: 0

ToAPP In reply to anjaleck [2007-07-15 18:16:34 +0000 UTC]

You're very welcome Anj! Please let me know if you need help with the script. Also if you do anything with it, you may want to consider submitting it to the gallery.

👍: 0 ⏩: 1

anjaleck In reply to ToAPP [2007-07-17 01:03:44 +0000 UTC]

If I ever make anything worth posting I'll let you know.

Hugs,
Anj

👍: 0 ⏩: 0

ToAPP In reply to OverlordQ [2007-05-26 23:12:51 +0000 UTC]

This happens when you try to run the script on a flame file with fewer than 100 flames in it (actually with fewer flames than whatever you set your random batch generator to create under options - the default is 100). I created a fix and pasted the text below. Just copy and paste it in your Apo script editor and save as SaTubesfix or whatever else you want to call it. When you run this one, it'll ask you how many tube flames you want to make instead of assuming you want 100. For instance, if you're tubulating the Binary flame pack just tell it you want to make 6 tube flames and you won't get the "tube_tube_tube" mumbo jumbo any more.

//script begins here
{***********************************************************
saTubes_Zplus_Cplus.asc script for Apophysis 2.05 beta 2 by
Sasha Spurmanis (aka ToAPP) [link]
I encourage you to use and/or modify the script to your
heart's content, just please remember to mention that I
lent a hand.

This script was written to accomodate folks using Cyber Chaos'
Apo 2.05Z+C+ as the original SaTubes.asc won't produce tube
fractals in this version.

This script generates tube fractal flames by flattening
transform 2 of the loaded flame and applying a high powered
juliaN variation. Through experimentation, I subsequently
discovered that bilaterally symmetric flames resulted in
more appealing tube flames - so I inserted code from the
default "Make Bilateral.asc" script that comes installed
with Apo 2.05.

Lastly, I had previously downloaded a couple of different
version of Carl Skepper's (aka 2B2H) "Metallica.asc" script.
In one version, the script was coded to generate a batch of
100 flames and save them to a new flame file in the Apo folder.
I adapted this idea to help generate a batch file of tube
fractals to play with.
************************************************************}
if FileExists(INSTALLPATH + 'saTubes.flame' then
DeleteFile(INSTALLPATH + 'saTubes.flame';
n := Options.BatchSize;
InputQuery ('Script Parameter Question', 'How many tube flames will you create?:', n);
For i := 0 to n - 1 do
begin
LoadFlame(i);
{************************************************************
This part uses one of the default Apo 2.05 beta 2 scripts to
add bilateral symmetry to the loaded flame.
*************************************************************}
for j := 0 to Transforms - 1 do
begin
SetActiveTransform(j);
Transform.Weight := Transform.Weight / 2;
end;
AddTransform;
Transform.a := -Transform.a;
Transform.Weight := 0.5;
Transform.Color := 1;
Transform.Symmetry := 1;
ResetLocation := True;
{************************************************************
This part "flattens" Transform 2 of the loaded flame into a
wire tube and rotates it randomly.
************************************************************}
SetActiveTransform (1);
Transform.A := 1;
Transform.B := 0;
Transform.C := 0;
Transform.D := 0;
Transform.E := 0;
Transform.F := 0;
Rotate (Random*360);
Transform.Variation[0] := 1;
Transform.Variation[27] := 0.01;
Transform.Variation[44] := 0.25;
Transform.julian_power := 60;
Flame.Name := 'Tube_ ' + Flame.Name; //assigns a new name to the flame
CalculateBounds;
ResetLocation := true; // re-centers the flame
SaveFlame(INSTALLPATH + 'saTubes.flame'; //saves the saTubes flame file
ShowStatus('rocessing '+ IntToStr(i + 1) + ' of ' +
IntToStr(FileCount));
end;
ListFile(INSTALLPATH + 'saTubes.flame';
UpdateFlame := false;
//script ends here

👍: 0 ⏩: 1

OverlordQ In reply to ToAPP [2007-05-26 23:24:56 +0000 UTC]

Ah, I see.

Thanks.

👍: 0 ⏩: 1

ToAPP In reply to OverlordQ [2007-05-27 00:03:08 +0000 UTC]

You're very welcome! Good luck and feel free to visit to sumit your tube or wire fractals to the club gallery for a little more exposure. Club membership and submission guidelines are posted in the site's journal!

👍: 0 ⏩: 0

ToAPP In reply to ARomanov [2007-05-03 23:58:50 +0000 UTC]

That is very kind of you to say! Thank you very much Anya! Let me know if you need any help with the script or if you render anything that you'd like me to feature in my next journal update!

👍: 0 ⏩: 0

ToAPP In reply to GeaAusten [2007-03-14 12:06:29 +0000 UTC]

Thank you for the nice compliment Gea. I'm glad that you're having fun with the script. Please drop me a note if you make something pretty with it or if you have any problems or questions that I could help you out with!



Sasha

👍: 0 ⏩: 1

GeaAusten In reply to ToAPP [2007-03-14 20:11:23 +0000 UTC]

Thankyou.. I think you are extremely clever to make a script like that, and it is great fun to use , thanks for the offer of help too, much appreciated
best wishes
Gea

👍: 0 ⏩: 0