Thursday, March 11, 2010
Wednesday, March 10, 2010
Introduction aux Parallel Extensions
Tuesday, March 9, 2010
Monday, March 8, 2010
Apophysis - Dragon Eggs
Simply Wonderful
Thank you very much Elizabeth for this marvelous jewel
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;
F# For C# Programmers: Programming In the Small
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
http://srtsolutions.com/blogs/chrismarinos/archive/2009/08/19/introducing-elevate.aspx
Subscribe to:
Posts (Atom)