Drop in ocean by Suny
Close
Hover over top left image to zoom.
Click anywhere to exit.
Members remain the original copyright holder in all their materials here at Renderosity. Use of any of their material inconsistent with the terms and conditions set forth is prohibited and is considered an infringement of the copyrights of the respective holders unless specially stated otherwise.
Description
It is attempt to show world in drop.
Tools:
Photoshop CS
Delphi7 with DelphiX
Central drop create by this function
for n:=1 to 100000 do
begin
Pixels[x0+round(0.001*n*sin(n/100))+round(0.0003*n*sin(n/50)),y0+round(100*cos(n/100))+round(30*cos(n/100))] := clBlue+round(n*cos(n/100));
end;
All other objects also create with same functions and use after that as
Photoshop brushs.
---Ray on top of pyramid---
for n:=1 to 100000 do
begin
Pixels[x0+round(10*sin(n)),y0+round(n*cos(n))] := clBlack;
end;
---Pyramid---
for n:=1 to 10000 do
begin
Pixels[x0+round(100*sin(n/2))+round(n/30*cos(n/3)),y0+round(100*cos(n/1))+round(n/30*sin(n/2))] := clBlack;
end;
---4petal under drop----
for n:=1 to 10000 do
begin
Pixels[x0+round(100*sin(n/10))+round(20*sin(n/2)),y0+round(100*cos(n/10))+round(20*cos(n/2))] := clBlack;
end;
--Two moons under drop---
for n:=1 to 100000 do
begin
Pixels[x0+round(100*sin(n/250))+round(30*sin(n/200)),y0+round(100*cos(n/250))+round(30*cos(n/200))] := clBlack;
end;
---3petal ---
for n:=1 to 10000 do
begin
Pixels[x0+round(100*sin(n/10))+round(20*sin(n/2.5)),y0+round(100*cos(n/10))+round(20*cos(n/2.5))] := clBlack;
end;
---Rose with 3petal---
for n:=1 to 10000 do
begin
Pixels[x0+round(30*sin(n/10))+round(70*sin(n/2.5)),y0+round(30*cos(n/10))+round(70*cos(n/2.5))] := clBlack;
end;
---Rose with many petal---
for n:=1 to 10000 do
begin
Pixels[x0+round(30*sin(n/200))+round(70*sin(n/25)),y0+round(30*cos(n/200))+round(70*cos(n/25))] := clBlack;
end;
---Galaxy---
for n:=1 to 10000 do
begin
Pixels[x0+round(100*sin(n))+round(n/30*cos(n)),y0+round(100*cos(n))+round(n/30*sin(n))] := clBlack;
end;
---Close galaxy---
for n:=1 to 10000 do
begin
Pixels[x0+round(100*sin(n))+round(n/100*cos(n)),y0+round(100*cos(n))+round(n/100*sin(n))] := clBlack;
end;
---Black cat at the bottom---
for n:=1 to 100000 do
begin
Pixels[x0+round(100*sin(n/200))+round(30*sin(n/100)),y0+round(0.001*n*cos(n/100))+round(30*cos(n/100))] := clBlack;
end;
Comments (1)
fractalinda
This uniquely portrays "a drop in the sea" perspective and reminds me of how small I am in the scheme of things..and how small this world is in relation to the size of the universe..and entire cosmos. Cool design, lovely colors and wonderful light. Welcome to the fractal gallery!