Monday, March 8, 2010

Apophysis - Dragon Eggs

Simply Wonderful
Thank you very much Elizabeth for this marvelous jewel


{---------------------------------------}
{ Dragon Egg - Random Batch }
{ By Elizabeth Tomchek (etomchek) }
{ 2-5-07 }
{ Documentation as of yet unavailable }
{ --------------------------------------}

fileName := GetSaveFileName;
if CurrentFile = fileName then exit;
DeleteFile(fileName);
for j := 0 to FileCount - 1 do
begin
LoadFlame(j);
ShowStatus('Processing ' + IntToStr(j + 1) + ' of ' + IntToSTr(FileCount));

Clear;
Pivot.mode := 1;
AddTransform;
with Transform do
begin
Variation[V_LINEAR] := 0;
Variation[V_BLUR] := 0.95;
Rotate(270);
Color := 0;
end;

AddTransform;
with Transform do
begin
Variation[V_LINEAR] := (random*0.5)+0.5;
Variation[V_SPHERICAL] := 0.5;
end;

with Transform do
begin
up := (((trunc(random*3)-1)*random)+random*0.5)*(random+1);
over := (((trunc(random*3)-1)*random)+random*0.5)*(random+1);
Translate(up,over);
Rotate(random*360);
Color := 0.5;
end;

AddTransform;
with Transform do
begin
Variation[V_LINEAR] := (random*0.25)+0.75;
Variation[V_SPHERICAL] := 0.25;
end;

with Transform do
begin
up := (((trunc(random*3)-1)*random)+random*0.5)*(random+1);
over := (((trunc(random*3)-1)*random)+random*0.5)*(random+1);
Translate(up,over);
Rotate(random*360);
Color := 1;
end;


// To set the final transform:
SetActiveTransform(transforms);
with Transform do
begin
for i := 0 to NVARS - 1 do
begin
Variation[i] := 0;
end;
a := 1;
b := 0;
c := 0;
d := 1;
e := 0;
f := 0;
end;
Transform.Variation[V_SPHERICAL] := 1;

Flame.FinalXformEnabled := true;


ResetLocation := True;
UpdateFlame := True;
// calculatecolors;
Flame.Name := 'DE-' + Flame.Name;
CalculateBounds;
SaveFlame(fileName);
end;
ListFile(fileName);
UpdateFlame := False;

Apophysis Tutorials

http://stacey-whaley-apophysis.wikispaces.com/Tutorials

Les tests unitaires en pratique par Patrick Smacchia

http://www.dotnetguru.org/articles/dossiers/testunitaires/UnitTest.htm

Creating your first NUnit test

http://www.dijksterhuis.org/setting-up-nunit-for-c-unit-testing-with-visual-studio-c-express-2008/

Unit Test - Testing with NUnit Framework

http://www.15seconds.com/issue/040922.htm

F# For C# Programmers: Programming In the Small

http://srtsolutions.com/blogs/chrismarinos/archive/2009/07/31/f-for-c-programmers-programming-in-the-small.aspx

Introducing Elevate

...That’s where Elevate comes in. Elevate is a Boost-like library for .NET. Our goal at SRT Solutions is to capture the things that we think are missing from the BCL and put them in Elevate so that we can share them between our project groups and the rest of the world. By devoting some of our weekly learning time to add these common bits of code to Elevate, we can save ourselves, our clients, and hopefully other .NET developers time and money....
http://srtsolutions.com/blogs/chrismarinos/archive/2009/08/19/introducing-elevate.aspx