En la busqueda para el desarrollo de fractales, generé este código para poder hacer imágenes de forma aleatoria, se toman dos circulos y se van uniendo los puntos a partir de diferentes grados.
Si quieren jugar con el código, las variables que tendrán que modificar para ver diferentes resultados son las siguientes:
$tamanioX - Define el tamaño completo de X en la imagen
$tamanioY - Define el tamaño completo de Y en la imagen
$radioG - Define el radio para obtener los puntos en la circunferencia
$radioPG - Define el radio para obtener los puntos en la circunferencia
En el segundo for:
for ($b=0; $b<=360; $b=$b+10)
Podemos cambiar el +10 por algún otro ángulo, en esa parte indica que cada 10° genere un punto.
En el tercer for:
for ($a=0; $a<=360; $a=$a+$b1)
Podemos cambiar el valor de $b1 por algún otro, para que se vaya determinando un ángulo diferente al generarse el segundo punto.
Se calculan los puntos determinados de la elipse grande y de la pequeña, y se traza una línea entre los dos, como se detalla en la siguiente imagen:

El primer ciclo, genera un aumento de la imagen que se está dibujando, con un mayor tamaño que se define en el aumento de $radioG y $radioPG.
Les dejo el código con valores predefinidos que generan una grandiosa imagen, como siempre aquí y en pastebin y al final adjunto varias imágenes generadas con diferentes valores.
///////Alfonso Cuevas/////////////////////////
///////komtec1 [ at ] gmail [ dot ] com///////
///////komtec1.blogspot.com///////////////////
$tamanioX = 3600;
$tamanioY = 3600;
$img = imagecreatetruecolor($tamanioX, $tamanioY);
$x = $tamanioX/2;
$y = $tamanioY/2;
$radioG = 120;
$radioP = 5;
$radioPG = 250;
$blanco = imagecolorallocate($img, 255, 255, 255);
$rojo = imagecolorallocate($img, 255, 0, 0);
$verde = imagecolorallocate($img, 0, 255, 0);
$azul = imagecolorallocate($img, 255, 0, 255);
// dibujar el circulo grande
#imagearc($img, $x, $y, $x+$radioG, $y+$radioG, 0, 360, $rojo);
// dibujar el circulo pequenio
#imagearc($img, $x, $y, $x+$radioP, $y+$radioP, 0, 360, $rojo);
$b1 = 20;
$b2 = 10;
for ($c=0; $c<=11; $c++)
{
for ($b=0; $b<=360; $b=$b+10)
{
$color = imagecolorallocate($img, rand(0,255), rand(0,255), rand(0,255));
for ($a=0; $a<=360; $a=$a+$b1)
{
$puntoxG1 = $x +$radioG* cos(deg2rad($a)+(pi()/180));
//Para que sea una elipse, comentar arriba y quitar el comentario abajo
//$puntoxG1 = $x +$radioG* 2*(cos(deg2rad($a)+(pi()/180)));
$puntoyG1 = $y +$radioG* sin(deg2rad($a)+(pi()/180));
#imagesetpixel($img, round($puntoxG1),round($puntoyG1), $verde);
$puntoxP1 = $x +$radioPG* cos(deg2rad($b)+(pi()/180));
//Para que sea una elipse, comentar arriba y quitar el comentario abajo
//$puntoxP1 = $x +$radioPG* 2*(cos(deg2rad($b)+(pi()/180)));
$puntoyP1 = $y +$radioPG* sin(deg2rad($b)+(pi()/180));
#imagesetpixel($img, round($puntoxP1),round($puntoyP1), $blanco);Mantras mentales, programacion y Marths
imageline($img, $puntoxG1, $puntoyG1, $puntoxP1, $puntoyP1, $blanco);
}
#imagestring($img, 5, $puntoxP1, $puntoyP1, " $puntoxG1 $puntoyG1", $rojo);
}
$b1=$b1+15;
$b2++;
$radioG = $radioG+100;
$radioPG = $radioPG+100;
}
// imprimir la imagen en el navegador
header("Content-type: image/png");
imagepng($img);
// liberar memoria
imagedestroy($img);
?>
Link en pastebin:
http://pastebin.com/09QDjpQh
Por cierto, el término Marths lo pensé cuando Alejandro Hernandez (nitr0us) me dijo: maths+arts!
Pasé el mismo código a Javascript, corre genial en navegador también, aunque ese lo quiero hacer interactivo con interrupciones.
De vez en cuando es necesaria la distracción mental del mundo actual.
PD. Si generan imágenes con este código, muéstrenla en los comentarios o por twitter @Komtec1
PD2. Si modifican o mejoran el code, les agradecería me enseñaran para ver que genera con las modificaciones! :D
PD3. En el código dejé comentado para que lo puedan hacer con elipses, en vez de que sean con círculos, aunque a mi me gustó mucho más el como se genera con círculos, por eso lo dejo así.
Saludos
Alfonso Cuevas aka Komtec1
Si quieren jugar con el código, las variables que tendrán que modificar para ver diferentes resultados son las siguientes:
$tamanioX - Define el tamaño completo de X en la imagen
$tamanioY - Define el tamaño completo de Y en la imagen
$radioG - Define el radio para obtener los puntos en la circunferencia
$radioPG - Define el radio para obtener los puntos en la circunferencia
En el segundo for:
for ($b=0; $b<=360; $b=$b+10)
Podemos cambiar el +10 por algún otro ángulo, en esa parte indica que cada 10° genere un punto.
En el tercer for:
for ($a=0; $a<=360; $a=$a+$b1)
Podemos cambiar el valor de $b1 por algún otro, para que se vaya determinando un ángulo diferente al generarse el segundo punto.
Se calculan los puntos determinados de la elipse grande y de la pequeña, y se traza una línea entre los dos, como se detalla en la siguiente imagen:

El primer ciclo, genera un aumento de la imagen que se está dibujando, con un mayor tamaño que se define en el aumento de $radioG y $radioPG.
Les dejo el código con valores predefinidos que generan una grandiosa imagen, como siempre aquí y en pastebin y al final adjunto varias imágenes generadas con diferentes valores.
///////Alfonso Cuevas/////////////////////////
///////komtec1 [ at ] gmail [ dot ] com///////
///////komtec1.blogspot.com///////////////////
$tamanioX = 3600;
$tamanioY = 3600;
$img = imagecreatetruecolor($tamanioX, $tamanioY);
$x = $tamanioX/2;
$y = $tamanioY/2;
$radioG = 120;
$radioP = 5;
$radioPG = 250;
$blanco = imagecolorallocate($img, 255, 255, 255);
$rojo = imagecolorallocate($img, 255, 0, 0);
$verde = imagecolorallocate($img, 0, 255, 0);
$azul = imagecolorallocate($img, 255, 0, 255);
// dibujar el circulo grande
#imagearc($img, $x, $y, $x+$radioG, $y+$radioG, 0, 360, $rojo);
// dibujar el circulo pequenio
#imagearc($img, $x, $y, $x+$radioP, $y+$radioP, 0, 360, $rojo);
$b1 = 20;
$b2 = 10;
for ($c=0; $c<=11; $c++)
{
for ($b=0; $b<=360; $b=$b+10)
{
$color = imagecolorallocate($img, rand(0,255), rand(0,255), rand(0,255));
for ($a=0; $a<=360; $a=$a+$b1)
{
$puntoxG1 = $x +$radioG* cos(deg2rad($a)+(pi()/180));
//Para que sea una elipse, comentar arriba y quitar el comentario abajo
//$puntoxG1 = $x +$radioG* 2*(cos(deg2rad($a)+(pi()/180)));
$puntoyG1 = $y +$radioG* sin(deg2rad($a)+(pi()/180));
#imagesetpixel($img, round($puntoxG1),round($puntoyG1), $verde);
$puntoxP1 = $x +$radioPG* cos(deg2rad($b)+(pi()/180));
//Para que sea una elipse, comentar arriba y quitar el comentario abajo
//$puntoxP1 = $x +$radioPG* 2*(cos(deg2rad($b)+(pi()/180)));
$puntoyP1 = $y +$radioPG* sin(deg2rad($b)+(pi()/180));
#imagesetpixel($img, round($puntoxP1),round($puntoyP1), $blanco);Mantras mentales, programacion y Marths
imageline($img, $puntoxG1, $puntoyG1, $puntoxP1, $puntoyP1, $blanco);
}
#imagestring($img, 5, $puntoxP1, $puntoyP1, " $puntoxG1 $puntoyG1", $rojo);
}
$b1=$b1+15;
$b2++;
$radioG = $radioG+100;
$radioPG = $radioPG+100;
}
// imprimir la imagen en el navegador
header("Content-type: image/png");
imagepng($img);
// liberar memoria
imagedestroy($img);
?>
Link en pastebin:
http://pastebin.com/09QDjpQh
Por cierto, el término Marths lo pensé cuando Alejandro Hernandez (nitr0us) me dijo: maths+arts!
Pasé el mismo código a Javascript, corre genial en navegador también, aunque ese lo quiero hacer interactivo con interrupciones.
De vez en cuando es necesaria la distracción mental del mundo actual.
PD. Si generan imágenes con este código, muéstrenla en los comentarios o por twitter @Komtec1
PD2. Si modifican o mejoran el code, les agradecería me enseñaran para ver que genera con las modificaciones! :D
PD3. En el código dejé comentado para que lo puedan hacer con elipses, en vez de que sean con círculos, aunque a mi me gustó mucho más el como se genera con círculos, por eso lo dejo así.
Saludos
Alfonso Cuevas aka Komtec1
Comentarios