/*

笛卡爾情書的秘密

心形圖案的實現。重點是心形函數r=a(1-sin@),據說這是笛卡爾死前寄出的最后一封情書

內容。這里面隱藏著一個刻骨銘心的秘密；“一生只為等待能手繪這個函數給我的人”

*/

$width = 500;

$height = 500;

header("Content-type: image/gif");

$img = imagecreate($width,$height);//創建一張圖片

$bg_color = imagecolorallocate($img,0,0,0);

$red = imagecolorallocate($img,255,0,0);

for($i=0;$i<=100;$i++){

for($j=0;$j<=100;$j++){

$r = M_PI/50*$i * (1-sin(M_PI/50*$j))*30;//30是用來控制外觀的

$x = $r *cos(M_PI/50*$j)*sin(M_PI/50*$i)+$width/2;

$y = -$r*sin(M_PI/50*$j)+$height/6;

imagesetpixel($img,$x,$y,$red);

}

}

imagegif($img);

imagedestroy($img);

?>