Mantras mentales, programacion, fractales y Marths

<?php

///////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);

        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);

?>