I really don't have time to zip this up all nice and pretty but I wanted to get it posted before Christmas. :) Copy and paste the code into your script editor and save it as a new script. This should work in all versions of apo- let me know if you have any problems. I've only tested it in 2.05z+. Merry Christmas!!! ~Liz Code begins below this line: _____________________________________________________________ {Ukranian Christmas Trees - by Elizabeth Tomchek 12-22-06 Feel free to redistribute and modify this script. The purpose of this script is to promote enjoyment of the Apophysis Program. Use of this script is unrestricted in accordance with the apophysis program license itself.} {Tips and tricks: 1. Open your mutation window and set the speed between .1 and .25. Experiment with checking and unchecking the "same number of transforms" box. Experiment with different variations. I like the linear variation the best, but you might like something different. 2. Tweak!! Play!! It's Fun!! 3. The trees aren't perfect. In fact they start out upside down. (Rotating the camera setting by 180 degrees will fix this.) I promise with a little effort you WILL find your perfect christmas tree, and maybe some angels and castles in the process. Enjoy- and have a happy and safe holiday season! ~Liz } { Scales all transforms down by 0.5 and makes all the xforms linear } clear; randomflame(1); for i := 0 to Transforms - 1 do begin SetActiveTransform(i); Scale(0.5); for j := 0 to nvars do begin transform.variation[j] := 0; end; transform.variation[0] := 1; end; //1st symmetry xform AddTransform; Transform.symmetry := 1; translate(0,-1); scale(0.5); //2nd symmetry xform AddTransform; Transform.symmetry := 1; translate(0,0.5); scale(0.5); //3rd symmetry xform AddTransform; Transform.symmetry := 1; translate(0,-1); Transform.a := -Transform.a; translate(-0.5,0); scale(0.5); { Adds bilateral symmetry to a flame } for i := 0 to Transforms - 1 do begin SetActiveTransform(i); Transform.Weight := Transform.Weight / 2; end; AddTransform; Transform.a := -Transform.a; Transform.Weight := 0.5; Transform.Color := 1; Transform.Symmetry := 1; ResetLocation := True; //end code