php.ComLanka.com PHP Tutorial ,PHP source code, PHP online example

Algorithms Arrays Passwords Uncategorized
Commerce Uncategorized
Databases Abstraction Layers Informix LDAP MS SQL MySQL ODBC PostgreSQL Uncategorized
Date & Time Calculators Conversion Translation Uncategorized
Discussion Chat Forums Guestbooks Polls Uncategorized
Email Validation Uncategorized
External Uncategorized
Files and Directories Uncategorized
Games Uncategorized
Graphics 3-D Graphs Resizing Thumbnails Uncategorized
HTML Forms Menus & Navigation Source Viewers Tables Templates Uncategorized
HTTP Authentication Cookies File Uploading Uncategorized
I18N Uncategorized
Math Uncategorized
Miscellaneous Uncategorized
Searching and Trees Uncategorized
Security Uncategorized
Text Uncategorized
Utilities Calendars Counters Link Checkers Weather Uncategorized
XML Uncategorized

php sample source codes
A class based on GD API for easy drawing in 3D coordinates. Supported funcions: Line, SetPixel, Polygon, FilledPolygon, etc. Also, 3dChart function has been added for one-call drawing of 3d charts. Support of mostly used 3d-transformations. Look for newer versions at <a href="http://www.e-taller.net/3dlib/" target=etaller>http://www.e-taller.net/3dlib/</a> <? // The code is too large to paste here // You can download it at http://www.e-taller.net/3dlib/ ?>
with this class you can draw on the fly 3D graphics with line and surface area (the best things to understand is to see the image of the example) <?php //////////////////////////////////////////////////// // Created By Alti 14/11/2000 altimir@hotmail.com// // Modified on 20/02/2001 // //////////////////////////////////////////////////// // you must name this file class_new.php3 // vous devez nommer ce fichier class_new.php3 // you can use as free and mofify it at will // vous pouvez utilisez cette classe a volonte et la // modifier tout autant class graph { var $image; var $filename="graph.gif"; var $Bheight=600; var $Bwidth=800; var $datay=array(); var $nbz=5; //(1,2,3,4,5) var $nbcourbe=6; //begin at 0 var $nbdonnee=19; var $nbx=20; var $nby=40; var $labelX=array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20); var $labelY=array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40); var $labelZ=array(0,1,2,3,4,5); var $color=array( 'background_color'=>0, 'black'=>0, 'ycolor'=>0, 'xcolor'=>0, 'diagonal1'=>0, 'diagonal2'=>0, 'ligne_Y'=>0, 'ligne_X'=>0, 'crete_color'=>0, 'ligne_Z'=>0 ); var $diago='oui'; var $courbe_color=array(); var $ligne_color=array(); var $titre="GRAPH 3D"; var $titre_labelY="Label des Y"; var $titre_labelX="Label des X"; // init function graph($Bwidth,$Bheight) { $this->Bwidth=$Bwidth; $this->Bheight=$Bheight; $this->image=ImageCreate($this->Bwidth,$this->Bheight); $this->color['background_color']=ImageColorAllocate($this->image,255,255,255); $this->color['black']=ImageColorAllocate($this->image,0,0,0); $this->color['ycolor']=ImageColorAllocate($this->image,228,238,244); $this->color['xcolor']=ImageColorAllocate($this->image,234,245,252); $this->color['xycolor']=ImageColorAllocate($this->image,206,225,237); $this->color['diagonal1']=ImageColorAllocate($this->image,133,171,233); $this->color['diagonal2']=ImageColorAllocate($this->image,115,204,94); $this->color['ligne_Y']=ImageColorAllocate($this->image,133,171,233); $this->color['ligne_X']=ImageColorAllocate($this->image,115,204,94); $this->color['crete_color']=ImageColorAllocate($this->image,192,0,0); $this->color['ligne_Z']=ImageColorAllocate($this->image,245,197,197); } // affect colors function coloris($num,$red,$green,$blue) { $this->courbe_color[$num][0]=ImageColorAllocate($this->image,$red,$green,$blue); $red1=$red-10; $green1=$green-20; $blue1=$blue-20; $this->courbe_color[$num][1]=ImageColorAllocate($this->image,$red1,$green1,$blue1); } function lignecolor($num,$red,$green,$blue) { $this->ligne_color[$num][0]=ImageColorAllocate($this->image,$red,$green,$blue); } function create_graph() { //---------------------------------- //----------placing graph----------- //---------------------------------- $lenY=0; for ($ii=0;$ii<=$this->nby;$ii++) { $var=$this->labelY[$ii]; $lenY=($lenY>strlen($var))?$lenY:strlen($var); }; $startx=$lenY*(5)+50; //started plotted area for x $starty=60; //started plotted area for y // width and height for the area of the graphics $height=$this->Bheight-2*$starty; $y=$height/($this->nby+$this->nbz); $height=$y*$this->nby; $width=$this->Bwidth-2*$startx; $x=$width/($this->nbx+$this->nbz); $width=$x*$this->nbx; // graph title ImageString($this->image,3,($this->Bwidth/2)-strlen($this->titre)*5/2,20,$this->titre,$this->color['crete_color']); // X label title ImageString($this->image,2,$width/2+$startx-strlen($this->titre_labelX)*5/2,$this->Bheight-20,$this->titre_labelX,$this->color['crete_color']); // Y label title ImageStringUp($this->image,2,10,$this->Bheight-$y*$this->nby/2-$starty+strlen($this->titre_labelY)*5/2,$this->titre_labelY,$this->color['crete_color']); $HeightLigneX = $this->Bheight-$starty; //will be line of label Y $decalageTotalZpourX = $this->nbz*$x; $decalageTotalZpourY = $this->nbz*$y; $HauteurTotalY = $this->nby*$y; $LongeurTotalX = $this->nbx*$x; // Y background ImageFilledpolygon($this->image,array($startx,$HeightLigneX,$decalageTotalZpourX+$startx,$HeightLigneX-$decalageTotalZpourY,$decalageTotalZpourX+$startx,$HeightLigneX-$HauteurTotalY-$decalageTotalZpourY,$startx,$HeightLigneX-$HauteurTotalY),4,$this->color['ycolor']); // Z(xy) background ImageFilledpolygon($this->image,array($decalageTotalZpourX+$startx,$HeightLigneX-$y*$this->nbz,$LongeurTotalX+$decalageTotalZpourX+$startx,$HeightLigneX-$y*$this->nbz,$LongeurTotalX+$decalageTotalZpourX+$startx,$HeightLigneX-$HauteurTotalY-$decalageTotalZpourY,$decalageTotalZpourX+$startx,$HeightLigneX-$HauteurTotalY-$decalageTotalZpourY),4,$this->color['xycolor']); // X background ImageFilledpolygon($this->image,array($startx,$HeightLigneX,$startx+$LongeurTotalX,$HeightLigneX,$LongeurTotalX+$decalageTotalZpourX+$startx,$HeightLigneX-$decalageTotalZpourY,$decalageTotalZpourX+$startx,$HeightLigneX-$decalageTotalZpourY),4,$this->color['xcolor']); //Y axe Imagefilledrectangle($this->image,$startx,$HeightLigneX-$height,$startx+2,$HeightLigneX,$this->color['black']); // X axe Imagefilledrectangle($this->image,$startx,$HeightLigneX,$startx+$width,$HeightLigneX+2,$this->color['black']); //$sub=0; for($p=0;$p<=$this->nbx;$p++) { // X label if ($sub<=$p) { $i=($i==0)?1:0; if ($i==1) { $espaceX=strlen($this->labelX[$sub])*sqrt(3); ImageLine($this->image,$startx+$x*$sub,$HeightLigneX,$startx+$x*$sub,$HeightLigneX+5,$this->color['black']); imageString($this->image, 1, $startx+$x*$sub-$espaceX,$HeightLigneX+12 , $this->labelX[$sub], $this->color['black']); $sub++; }; if ($i==0) { $espaceX=strlen($this->labelX[$sub])*sqrt(3); ImageLine($this->image,$startx+$x*$sub,$HeightLigneX,$startx+$x*$sub,$HeightLigneX+8,$this->color['black']); imageString($this->image, 1, $startx+$x*$sub-$espaceX,$HeightLigneX+22 , $this->labelX[$sub], $this->color['black']); $sub++; }; } //x diagonal ImageLine($this->image,$startx+$x*$p,$HeightLigneX,$decalageTotalZpourX+$startx+($x*$p),$HeightLigneX-$decalageTotalZpourY,$this->color['ligne_Z']); // x de fond vertical ImageLine($this->image,$decalageTotalZpourX+$startx+($x*$p),$HeightLigneX-$decalageTotalZpourY,$decalageTotalZpourX+$startx+($x*$p),$HeightLigneX-$y*$this->nbz-$this->nby*$y,$this->color['ligne_Z']); } for($p=0;$p<=$this->nby;$p++) { // Y label imageString($this->image, 1, $startx-strlen($this->labelY[$p])*5-5,$this->Bheight-$y*$p-$starty-5 , $this->labelY[$p], $this->color['black']); //y diagonale ImageLine($this->image,$startx,$HeightLigneX-$y*$p,$decalageTotalZpourX+$startx,$HeightLigneX-($y*$p)-$decalageTotalZpourY,$this->color['ligne_Y']); // y de fond horizontal ImageLine($this->image,$decalageTotalZpourX+$startx,$HeightLigneX-($y*$p)-$decalageTotalZpourY,$startx+($LongeurTotalX+$x*$this->nbz),$HeightLigneX-($y*$p)-$decalageTotalZpourY,$this->color['ligne_Y']); } for($p=0;$p<=$this->nbz;$p++) { // Z label imageString($this->image, 1,$startx+($LongeurTotalX+$x*$p)+10 , $this->Bheight-$y*$p-$starty, $this->labelZ[$p], $this->color['black']); // y vertical ImageLine($this->image,$startx+$x*$p,$this->Bheight-$y*$p-$starty,$startx+$x*$p,$this->Bheight-$y*$p-$this->nby*$y-$starty,$this->color['ligne_X']); // x horizontal ImageLine($this->image,$startx+$x*$p,$this->Bheight-$y*$p-$starty,$startx+($LongeurTotalX+$x*$p),$this->Bheight-$y*$p-$starty,$this->color['ligne_X']); }; //--------------------------------------- //-------------drawing lignes------------ //--------------------------------------- $m=1; $tri=0; for ($h=($this->nbcourbe-1);$h>0;$h--) { // chaque courbe on commence par la derniere $l=(($h-1)>=0)?($h-1):$h; // l courbe inferieure $tri=($tri==0)?1:0; $decal[0]=($h)*$x-$x; $decal[1]=($h)*$x; $decal[2]=($h)*$y-$y; $decal[3]=($h)*$y; $this->nbdonnee=(count($this->datay[$h])<count($this->datay[$l]))?count($this->datay[$l]):count($this->datay[$h]); for ($j=0;$j<$this->nbdonnee;$j++) { // each courb data $kk=(($j+1)<=$this->nbdonnee)?($j+1):($j); // kk next data $courbpointDapres=!isset($this->datay[$h][$kk])?-99:($this->datay[$h][$kk]); $courbpoint=!isset($this->datay[$h][$j])?-99:($this->datay[$h][$j]); $courbInfPointDapres=!isset($this->datay[$l][$kk])?-99:($this->datay[$l][$kk]); $courbInfPoint=!isset($this->datay[$l][$j])?-99:($this->datay[$l][$j]); if ($h!=0) { // as it draw two line at one time, this test is to stop before last line $coul=($courbpointDapres<$courbpoint)?1:0; $PinfmoinsX=$startx+$j*$x+$decal[0]; //X coordonate from point (same x as normal x point) from inferior line $PinfplusX=$startx+$kk*$x+$decal[0]; //X coordonate from next point inferior line $PsupmoinsX=$startx+$j*$x+$decal[1]; //X coordonate from point $PsupplusX=$startx+$kk*$x+$decal[1]; //X coordonate from next point $PinfmoinsY=$HeightLigneX-($courbInfPoint*$y)-$decal[2]; //Y coordonate from point (same y as normal x point) from inferior line $PinfplusY=$HeightLigneX-($courbInfPointDapres*$y)-$decal[2]; //Y coordonate from next point inferior line $PsupmoinsY=$HeightLigneX-($courbpoint*$y)-$decal[3]; //Y coordonate from point $PsupplusY=$HeightLigneX-($courbpointDapres*$y)-$decal[3]; //Y coordonate from next point if ($courbpoint>=0 && $courbpointDapres>=0 && $courbpoint!=-99 && $courbpointDapres!=-99) { // drawing the line with 3 pixels ImageLine($this->image,$PsupmoinsX,$PsupmoinsY,$PsupplusX,$PsupplusY,$this->ligne_color[$h][0]); ImageLine($this->image,$PsupmoinsX,$PsupmoinsY-1,$PsupplusX,$PsupplusY-1,$this->ligne_color[$h][0]); ImageLine($this->image,$PsupmoinsX,$PsupmoinsY-2,$PsupplusX,$PsupplusY-2,$this->ligne_color[$h][0]); }; if ($courbpoint>=0 && $courbInfPoint>=0 && $courbpoint!=-99 && $courbInfPoint!=-99 ) { // drawing the top line from point to point with same x coordonate ImageDashedLine($this->image,$PinfmoinsX,$PinfmoinsY-1,$PsupmoinsX,$PsupmoinsY-1,$this->color['crete_color']); ImageDashedLine($this->image,$PinfmoinsX,$PinfmoinsY,$PsupmoinsX,$PsupmoinsY,$this->color['crete_color']); } if (!isset($gama)) { $gama=0; } if (!isset($teta)) { $teta=0; } if (!isset($beta)) { $beta=0; } if (!isset($alpha)) { $alpha=0; } // // A B // // C D // // first if all points exists and if gama=0 or tri=0 it draw CBA triangle and change alpha to 1 if ($courbpoint>=0 && $courbpointDapres>=0 && $courbInfPoint>=0 && $courbpoint!=-99 && $courbpointDapres!=-99 && $courbInfPoint!=-99 && ($tri==0 || $gama==0)) { $alpha=ImageFilledPolygon($this->image,array( $PinfmoinsX,$PinfmoinsY, // $PsupplusX,$PsupplusY, $PsupmoinsX,$PsupmoinsY), 3,$this->courbe_color[$l][$coul]); $coul=($courbInfPointDapres<$courbInfPoint)?1:0; } // next if all points exists and if gama=0 or tri=0 it draw CDB and change beta to 1 if ($courbInfPoint>=0 && $courbInfPointDapres>=0 && $courbpointDapres>=0 && $courbInfPoint!=-99 && $courbpointDapres!=-99 && $courbInfPointDapres!=-99 && ($tri==0 || $teta==0)) { $beta=ImageFilledPolygon($this->image,array( $PinfmoinsX,$PinfmoinsY, $PinfplusX,$PinfplusY, $PsupplusX,$PsupplusY), 3,$this->courbe_color[$l][$coul]); } // reset gama and teta $gama=0; $teta=0; // if all points exists and if alpha=1 or beta=1 or tri=0 draw CB diagonal if ($this->diago=='oui' && ($tri==0 || $alpha==1 || $beta==1) && $courbpoint!=-99 && $courbInfPoint!=-99 && $courbInfPointDapres!=-99 && $courbpointDapres!=-99) { ImageDashedLine($this->image,$PinfmoinsX,$PinfmoinsY,$startx+($j+1)*$x+$decal[1],$HeightLigneX-($this->datay[$h][$j+1]*$y)-$decal[3],$this->color['diagonal1']); } $coul=($courbInfPointDapres<$courbInfPoint)?1:0; // if all points exists and if alpha=0 or tri=1 it draw CDA and change gama to 1 if ($courbpoint>=0 && $courbInfPointDapres>=0 && $courbInfPoint>=0 && $courbpoint!=-99 && $courbInfPointDapres!=-99 && $courbInfPoint!=-99 && ($tri==1 || $alpha==0)) { $gama=ImageFilledPolygon($this->image,array( $PinfmoinsX,$PinfmoinsY, $PinfplusX,$PinfplusY, $PsupmoinsX,$PsupmoinsY), 3,$this->courbe_color[$l][$coul]); $coul=($courbpointDapres<$courbpoint)?1:0; } // if all points exists and if beta=0 or tri=1 it draw DBA and change teta to 1 if ($courbpoint>=0 && $courbInfPointDapres>=0 && $courbpointDapres>=0 && $courbpoint!=-99 && $courbpointDapres!=-99 && $courbInfPointDapres!=-99 && ($tri==1 || $beta==0)) { $teta=ImageFilledPolygon($this->image,array( $PinfplusX,$PinfplusY, $PsupplusX,$PsupplusY, $PsupmoinsX,$PsupmoinsY), 3,$this->courbe_color[$l][$coul]); } // if all points exists and if gama=1 or teta=1 or tri=1 draw CB diagonal if ($this->diago=='oui' && ($tri==1 || $gama==1 || $teta==1) && $courbpoint!=-99 && $courbInfPoint!=-99 && $courbInfPointDapres!=-99 && $courbpointDapres!=-99) { ImageDashedLine($this->image,$startx+($j+1)*$x+$decal[0],$HeightLigneX-($this->datay[$l][$j+1]*$y)-$decal[2],$startx+($j)*$x+$decal[1],$PsupmoinsY,$this->color['diagonal2']); }; // reset alpha and beta $alpha=0; $beta=0; }; // end (if ($h!=0) { // as it draw two line at one time, this test is to stop before last line) if ($courbInfPoint>=0 && $courbInfPointDapres>=0 && $courbInfPoint!=-99 && $courbInfPointDapres!=-99) { // drawing inferior line ImageLine($this->image,$PinfmoinsX,$PinfmoinsY-1,$PinfplusX,$PinfplusY-1,$this->ligne_color[$l][0]); ImageLine($this->image,$PinfmoinsX,$PinfmoinsY-2,$PinfplusX,$PinfplusY-2,$this->ligne_color[$l][0]); ImageLine($this->image,$PinfmoinsX,$PinfmoinsY,$PinfplusX,$PinfplusY,$this->ligne_color[$l][0]); }; $tri=($tri==0)?1:0; }; // end drawing this data } //end drawing this line } function create() { Imagegif($this->image, $this->filename); } function destroy() { ImageDestroy($this->image); } } ?>
This is a winner of the Codewalkers.com PHP Coding Contest. This script will take a text file as input and generate a 3D maze. Makes beautiful use of the GD library. Features real diffuse+specular+ambient lightning, semi-real light refraction+transparency, fake shadows, wall outlining, anti-aliasing and results caching. More details on the contest and to see output from this script at http://codewalkers.com/ <? /* Written and copyrighted (2002) by Mitja Slenc E-mail: <removed> I wanted to create a kind of ray-tracish look... Features real diffuse+specular+ambient lightning, semi-real light refraction+transparency, fake shadows, wall outlining, anti-aliasing and results caching. */ // ------- START CONFIGURATION ------- // approximate width of image that is wanted $conf_reqwidth=600; // should cache results? $conf_cache=1; // direction toward light // x and y must be negative, z must be positive! // Will get normalized below. // Won't work properly, if shadowoffset>tilesize, // so be careful with relatively small z $conf_light=array(-1, -1.6, 1); // -------- END CONFIGURATION -------- set_time_limit(0); //error_reporting(E_ALL); // should anti-alias? (4x slower) $conf_aalias=0; // should apply shading? $conf_shade=0; // override via form if (isset($_GET["shade"]) && $_GET["shade"]) $conf_shade=1; if (isset($_GET["alias"]) && $_GET["alias"]) $conf_aalias=1; // normalize light vector $len=$conf_light[0]*$conf_light[0]+$conf_light[1]*$conf_light[1]+$conf_light[2]*$conf_light[2]; $len=1.0/sqrt($len); $conf_light[0]*=$len; $conf_light[1]*=$len; $conf_light[2]*=$len; // read mazes $lines=file("mazes.txt"); $mazes=array(); $thismaze=array(); $ditherr=array(); for ($a=0; $a<sizeof($lines); $a++) { $tmp=trim($lines[$a]); if (!strlen($tmp)) { if (sizeof($thismaze)) { $mazes[]=$thismaze; $thismaze=array(); } } else { $tmp=explode("!", $tmp); for ($b=0; $b<sizeof($tmp); $b++) { $thismaze[]=ExplodeMazeLine($tmp[$b]); } } } if (sizeof($thismaze)) $mazes[]=$thismaze; if (isset($_GET["getmaze"])) { OutMaze($mazes[(int)$_GET["getmaze"]]); exit(); } if (isset($_GET["makeall"])) { echo "<html><head><style type=\"text/css\"> body, td { font-family: \"verdana\", sans-serif; } </style> </head><body>"; echo "<center>"; echo "<a href=\"$PHP_SELF?\">Back</a><br><br>"; touch("/tmp/mitjasmaze_createdall.txt"); $made=0; for ($alias=0; $alias<2; $alias++) { for ($shade=0; $shade<2; $shade++) { for ($maze=0; $maze<sizeof($mazes); $maze++) { $conf_shade=$shade; $conf_aalias=$alias; $has_generated=0; $tiles_total=0; $tiles_copied=0; ob_start(); list($a,$b)=explode(" ", microtime()); $starttime=(float)$a+(float)$b; OutMaze($mazes[$maze]); list($a,$b)=explode(" ", microtime()); $endtime=(float)$a+(float)$b; ob_end_clean(); if ($has_generated) { echo "Maze ".($maze+1)." (shade=$shade, alias=$alias)<br>Generated in ".sprintf("%.2f", $endtime-$starttime)." seconds<br>$tiles_total tiles of which $tiles_copied were cached<br><img src=\"$PHP_SELF?getmaze=$maze&amp;shade=$shade&amp;alias=$alias\"><br><hr><br>"; $made=1; flush(); } } } } if ($made) { echo "<br><br><a href=\"$PHP_SELF?\">Back</a>"; } else { echo "<br><br>All mazes were already generated."; } echo "</center></body></html>"; } else { echo "<html><head><style type=\"text/css\"> body, td { font-family: \"verdana\", sans-serif; } </style> </head><body>"; echo "<center>"; echo "<form method=get action=\"$PHP_SELF\">"; echo "<input type=hidden name=formsubmitted value=1>"; echo "<table><tr><td align=right><b>Shading:</b></td><td><input type=checkbox name=shade value=1"; if ($conf_shade) echo " checked=1"; echo "></td></tr>"; echo "<tr><td align=right><b>Anti-aliasing:</b></td><td><input type=checkbox name=alias value=1"; if ($conf_aalias) echo " checked=1"; echo "></td></tr>"; echo "<tr><td align=center><input type=submit value=\"Redraw\"></td></tr>"; echo "</table></form>"; if ($conf_cache && (!isset($_GET["formsubmitted"])) && (!file_exists("/tmp/mitjasmaze_createdall.txt") || filemtime("/tmp/mitjasmaze_createdall.txt")<filemtime("mazes.txt"))) { echo "or<br><br><a href=\"$PHP_SELF?makeall=1\">Create all images</a><br><br>"; } if (isset($_GET["formsubmitted"])) { for($a=0; $a<sizeof($mazes); $a++) { echo "<img src=\"$PHP_SELF?getmaze=$a&amp;shade=".$conf_shade."&amp;alias=".$conf_aalias."\"><br><br><br>"; } } echo "</center></body></html>"; } function OutMaze($maze) { $starttime=time(); global $tilesize, $bw, $colors, $ww; global $conf_reqwidth; global $conf_cache, $conf_aalias, $conf_shade; global $conf_light; global $tiles_total, $tiles_copied; // double the size for antialiasing if ($conf_aalias) $reqwidth=$conf_reqwidth<<1; else $reqwidth=$conf_reqwidth; $w=strlen($maze[0]); $h=sizeof($maze); // pad with spaces $tmp=array(); $tmp[]=str_repeat(" ", $w+2); foreach($maze as $line) $tmp[]=" ".$line." "; $tmp[]=str_repeat(" ", $w+2); $maxlen=0; for ($a=0; $a<sizeof($tmp); $a++) if (strlen($tmp[$a])>$maxlen) $maxlen=strlen($tmp[$a]); for ($a=0; $a<sizeof($tmp); $a++) { if (strlen($tmp[$a])<$maxlen) $tmp[$a].=str_repeat(" ", $maxlen-strlen($tmp[$a])); } $maze=$tmp; $w=$maxlen; $h=sizeof($maze); // compute tile size $tilesize=(int)($reqwidth/$w); if ($tilesize & 1) $tilesize++; if ($conf_aalias) { if ($tilesize>128) $tilesize=128; if ($tilesize<32) $tilesize=32; } else { if ($tilesize>64) $tilesize=64; if ($tilesize<16) $tilesize=16; } // check for cached copy if ($conf_cache) { $md5=md5($tilesize."_".implode("_", $conf_light)."_".$conf_shade."_".$conf_aalias."_".implode("_", $maze)); if (file_exists("/tmp/mitjasmaze_$md5.png")) { header("Content-type: image/png"); readfile("/tmp/mitjasmaze_$md5.png"); return; } } // for makeall global $has_generated; $has_generated=1; $ww=$w*$tilesize+1; $hh=$h*$tilesize+1; $im=imagecreatetruecolor($ww, $hh); imagealphablending($im, true); // ALLOCATE COLORS $mycols=array( array(0,0,0), // " " gets this one always array(0,0,0), array(128,255,0), array(0,128,255), array(128,0,255), array(255,128,0), array(0,0,128), array(0,0,255), array(0,128,0), array(0,128,128), array(0,255,0), array(0,255,128), array(0,255,255), array(128,0,0), array(128,0,128), array(128,128,0), array(128,128,128), array(128,128,255), array(128,255,128), array(128,255,255), array(255,0,128), array(255,0,255), array(255,128,128), array(255,128,255), array(255,255,0), array(255,255,128), array(255,255,255) ); $tmp=implode("", $maze); $colpointer=0; $colors=array(); for ($a=0; $a<strlen($tmp); $a++) { $c=substr($tmp, $a, 1); if (!isset($colors[$c])) { if ($c=="*") { $colors[$c]=array(255,64,64); } else { if (isset($mycols[$colpointer])) { $colors[$c]=$mycols[$colpointer]; $colpointer++; } else { $colors[$c]=array(mt_rand(64,192), mt_rand(64,192), mt_rand(64,192)); } } } } // pre-calc various sizes $half=$tilesize>>1; $d=0.2/$conf_light[2]; $soffsetx=(int)(-$conf_light[0]*$d*$tilesize); $soffsety=(int)(-$conf_light[1]*$d*$tilesize); $bw=(int)(5*$tilesize/10); if (!($bw & 1)) $bw++; $bw=(($bw-1)>>1)+1; $diff=$half-$bw; $already=array(); // pre-calc shapes and normals $precalc=array(); $normals=array(); for ($ox=0; $ox<=$half; $ox++) for ($oy=0; $oy<=$half; $oy++) { // FULL $precalc[0][$ox][$oy]=1; $normals[0][$ox][$oy]=array(0,0,1); // VERTICAL TUBE if ($ox<$bw) { $precalc[1][$ox][$oy]=1; $normals[1][$ox][$oy]=array($ox/$bw, 0, sqrt(1-(($ox/$bw)*($ox/$bw)))); } else { $precalc[1][$ox][$oy]=0; } // HORIZONTAL TUBE if ($oy<$bw) { $precalc[2][$ox][$oy]=1; $normals[2][$ox][$oy]=array(0, $oy/$bw, sqrt(1-(($oy/$bw)*($oy/$bw)))); } else { $precalc[2][$ox][$oy]=0; } // OUTER ROUND if (($ox*$ox+$oy*$oy)<($bw*$bw)) { $precalc[3][$ox][$oy]=1; $nx=$ox/$bw; $ny=$oy/$bw; $nz=sqrt(1-$nx*$nx-$ny*$ny); $normals[3][$ox][$oy]=array($nx, $ny, $nz); } else { $precalc[3][$ox][$oy]=0; } // CROSS (*) $found1=0; $found2=0; $nx=$ox/$half; $ny=$oy/$half; $dist=sqrt($nx*$nx+$ny*$ny); if (($nx+$ny)<1.1 && (abs($nx-$ny)<0.4)) { $precalc[5][$ox][$oy]=1; $found2=1; if ($ny>$nx) { $vx=-0.6314; $vy=0.6314; $vz=0.45; } else { $vx=0.66666; $vy=-0.66666; $vz=0.45; } if (abs($nx-$ny)>0.33 || (($nx+$ny)>1.03)) { // force outline $normals[5][$ox][$oy]=array(0,0,0.3); } else { $normals[5][$ox][$oy]=array($vx, $vy, $vz); } } else { $precalc[5][$ox][$oy]=0; } // INNER ROUND $vx=$half-$ox; $vy=$half-$oy; $sdist=$vx*$vx+$vy*$vy; if ($sdist>($diff*$diff)) { $precalc[4][$ox][$oy]=1; $dist=sqrt($sdist); if ($dist<$half) { $tdist=$dist-$diff; $off=$bw-$tdist; $vx*=$off/$bw/$dist; $vy*=$off/$bw/$dist; $vz=sqrt(1.0-$vx*$vx-$vy*$vy); $normals[4][$ox][$oy]=array($vx, $vy, $vz); } else { $normals[4][$ox][$oy]=array(0,0,1); } } else { $precalc[4][$ox][$oy]=0; } // DIAGONAL if (abs($oy-$ox)/sqrt(2)<$bw) { $precalc[6][$ox][$oy]=1; $d=($oy-$ox)/sqrt(2)/$bw; $vz=sqrt(1-$d*$d); $vx=-$d/sqrt(2); $vy=$d/sqrt(2); $normals[6][$ox][$oy]=array($vx, $vy, $vz); } else { $precalc[6][$ox][$oy]=0; } if (($oy+$ox)/sqrt(2)<$bw && $oy>$ox) { $precalc[7][$ox][$oy]=1; $d=($oy+$ox)/sqrt(2)/$bw; $vz=sqrt(1-$d*$d); $vx=$d/sqrt(2); $vy=$d/sqrt(2); $normals[7][$ox][$oy]=array($vx,$vy,$vz); } else { if ($precalc[3][$ox][$oy]) { $precalc[7][$ox][$oy]=1; $normals[7][$ox][$oy]=$normals[3][$ox][$oy]; } else { $precalc[7][$ox][$oy]=0; } } if (($oy+$ox)/sqrt(2)<$bw && $oy<$ox) { $precalc[8][$ox][$oy]=1; $d=($oy+$ox)/sqrt(2)/$bw; $vz=sqrt(1-$d*$d); $vx=$d/sqrt(2); $vy=$d/sqrt(2); $normals[8][$ox][$oy]=array($vx,$vy,$vz); } else { if ($precalc[3][$ox][$oy]) { $precalc[8][$ox][$oy]=1; $normals[8][$ox][$oy]=$normals[3][$ox][$oy]; } else { $precalc[8][$ox][$oy]=0; } } if (($oy+$ox)/sqrt(2)<$bw) { $precalc[9][$ox][$oy]=1; $d=($oy+$ox)/sqrt(2)/$bw; $vz=sqrt(1-$d*$d); $vx=$d/sqrt(2); $vy=$d/sqrt(2); if ($precalc[2][$ox][$oy]) { if ($normals[2][$ox][$oy][2]>$vz) list($vx,$vy,$vz)=$normals[2][$ox][$oy]; } $normals[9][$ox][$oy]=array($vx,$vy,$vz); } else { if ($precalc[2][$ox][$oy]) { $precalc[9][$ox][$oy]=1; $normals[9][$ox][$oy]=$normals[2][$ox][$oy]; } else { $precalc[9][$ox][$oy]=0; } } if (($oy+$ox)/sqrt(2)<$bw) { $precalc[10][$ox][$oy]=1; $precalc[12][$ox][$oy]=1; $d=($oy+$ox)/sqrt(2)/$bw; $vz=sqrt(1-$d*$d); $vx=$d/sqrt(2); $vy=$d/sqrt(2); $normals[12][$ox][$oy]=array($vx,$vy,$vz); if ($precalc[1][$ox][$oy]) { if ($normals[1][$ox][$oy][2]>$vz) list($vx,$vy,$vz)=$normals[1][$ox][$oy]; } $normals[10][$ox][$oy]=array($vx,$vy,$vz); } else { $precalc[12][$ox][$oy]=0; if ($precalc[1][$ox][$oy]) { $precalc[10][$ox][$oy]=1; $normals[10][$ox][$oy]=$normals[1][$ox][$oy]; } else { $precalc[10][$ox][$oy]=0; } } if ((($half-$ox)+($half-$oy))/sqrt(2)<$bw) { $d=(($half-$ox)+($half-$oy))/sqrt(2)/$bw; $vz=sqrt(1-$d*$d); $vx=-$d/sqrt(2); $vy=-$d/sqrt(2); $precalc[11][$ox][$oy]=1; $normals[11][$ox][$oy]=array($vx, $vy, $vz); } else { $precalc[11][$ox][$oy]=0; } } // fill background $ts=$tilesize; for ($x=0; $x<$tilesize; $x++) for ($y=0; $y<$tilesize; $y++) MyImageSetPixel($im, $x, $y, BackColor($x, $y)); for ($x=0; $x<=$w; $x++) { for ($y=0; $y<=$h; $y++) { if (!$x && !$y) continue; imagecopy($im, $im, $x*$tilesize, $y*$tilesize, 0, 0, $tilesize, $tilesize); } } // finally, render the maze for ($y=0; $y<$h; $y++) { for ($x=0; $x<$w; $x++) { $tiles_total++; if (($c=$maze[$y][$x])==" ") { if (!$x || !$y || ($x==($w-1)) || ($y==($h-1))) { continue; } } $sm=(($x+$y)&1).substr($maze[$y-1], $x-1, 3).substr($maze[$y],$x-1,3).substr($maze[$y+1],$x-1,3); if (isset($already[$sm])) { list($sx, $sy)=$already[$sm]; imagecopy($im, $im, $x*$tilesize, $y*$tilesize, $sx*$tilesize, $sy*$tilesize, $tilesize+$soffsetx+1, $tilesize+$soffsety+1); $tiles_copied++; continue; } $already[$sm]=array($x, $y); $sm=array( array(0,0,0), array(0,0,0), array(0,0,0) ); if ($maze[$y-1][$x]==$c) $sm[1][0]=1; if ($maze[$y+1][$x]==$c) $sm[1][2]=1; if ($maze[$y][$x+1]==$c) $sm[2][1]=1; if ($maze[$y][$x-1]==$c) $sm[0][1]=1; if ($maze[$y-1][$x-1]==$c) $sm[0][0]=1; if ($maze[$y+1][$x-1]==$c) $sm[0][2]=1; if ($maze[$y-1][$x+1]==$c) $sm[2][0]=1; if ($maze[$y+1][$x+1]==$c) $sm[2][2]=1; $bx=$x*$tilesize+$half; $by=$y*$tilesize+$half; for ($qx=-1; $qx<2; $qx+=2) { for ($qy=-1; $qy<2; $qy+=2) { $c=$maze[$y][$x]; if ($sm[$qx+1][1] && $sm[$qx+1][$qy+1] && $sm[1][$qy+1]) { // whole quadrant $mode=0; } else if ($sm[$qx+1][1] && $sm[1][$qy+1]) { // inner round $mode=4; } else if ($sm[$qx+1][1]) { // horizontal tube if ($sm[1-$qx][1+$qy] && (!$sm[1-$qx][1])) { $mode=9; } else { $mode=2; } } else if ($sm[1][$qy+1]) { // vertical tube if ($sm[1+$qx][1-$qy] && (!$sm[1][1-$qy])) { $mode=10; } else { $mode=1; } } else if ($sm[$qx+1][$qy+1]) { // diagonal $mode=6; } else { // outer round if ($sm[1-$qx][$qy+1] && !$sm[1-$qx][1]) { if ($sm[$qx+1][1-$qy] && !$sm[1][1-$qy]) { $mode=12; } else { $mode=7; } } else { if ($sm[$qx+1][1-$qy] && !$sm[1][1-$qy]) { $mode=8; } else { $mode=3; } } } if ($c=="*") $mode=5; if ($c==" ") $mode=-1; if ($mode>=0) { $todo=array(array($c, $mode)); } else { $todo=array(); } $blendit=0; if ($maze[$y+$qy][$x]!=" " && $maze[$y+$qy][$x]!="*") { if ($maze[$y+$qy][$x]==$maze[$y][$x+$qx]) { if ($maze[$y+$qy][$x]!=$maze[$y+$qy][$x+$qx]) { if ($maze[$y+$qy][$x]!=$c) { $todo[]=array($maze[$y][$x+$qx], 11); if ($c==" " || (!$sm[$qx+1][$qy+1])) { $blendit=0; } else { $blendit=1; } } } } } if (!sizeof($todo)) { continue; } if (sizeof($todo)>1) { $flip=0; if ($qx<0 && $qy<0) { $flip=1; } else if ($qx<0) { if ($soffsetx>$soffsety) $flip=1; } else if ($qy<0) { if ($soffsetx<$soffsety) $flip=1; } if ($flip) { $todo=array_reverse($todo); } } else { $blendit=0; } if ($qx<0) { $startox=$half; $incox=-1; } else { $startox=0; $incox=1; } if ($qy<0) { $startoy=$half; $incoy=-1; } else { $startoy=0; $incoy=1; } for ($showshadows=$conf_shade; $showshadows>=0; $showshadows--) { for ($todocounter=0; $todocounter<sizeof($todo); $todocounter++) { $c=$todo[$todocounter][0]; $mode=$todo[$todocounter][1]; for ($ox=$startox; $ox>=0 && $ox<=$half; $ox+=$incox) { $pcalc=&$precalc[$mode][$ox]; $norms=&$normals[$mode][$ox]; for ($oy=$startoy; $oy>=0 && $oy<=$half; $oy+=$incoy) { $tarx=$bx+$ox*$qx; $tary=$by+$oy*$qy; if ($pcalc[$oy]) { $n=$norms[$oy]; $n[0]*=$qx; $n[1]*=$qy; if ($conf_shade) { if ($showshadows) { $tmp1=BackColor($tarx+$soffsetx, $tary+$soffsety); $tmp2=$colors[$c]; $s=$n[2]; if ($s<0.9) { $s=0.5; } else { if ($s<0.97) { $s=0.5+0.5*(($s-0.9)/0.07); } else { $s=3.0; } } $s*=0.295; $tmp2[0]=160+$s*(64+$tmp2[0]); $tmp2[1]=160+$s*(64+$tmp2[1]); $tmp2[2]=160+$s*(64+$tmp2[2]); $col=array(); $col[0]=(int)(($tmp1[0]*$tmp2[0])/255); $col[1]=(int)(($tmp1[1]*$tmp2[1])/255); $col[2]=(int)(($tmp1[2]*$tmp2[2])/255); if ($col[0]>255) $col[0]=255; if ($col[1]>255) $col[1]=255; if ($col[2]>255) $col[2]=255; if ($blendit) { if ($qx*$qy>0) { if ($mode==11) MyImageSetPixel($im, $tarx+$soffsetx, $tary+$soffsety, $col); else { if ($todocounter) { if (($half+$half-$ox-$oy)/sqrt(2)>$bw) MyImageSetPixel($im, $tarx+$soffsetx, $tary+$soffsety, $col); } else { MyImageSetPixel($im, $tarx+$soffsetx, $tary+$soffsety, $col); } } } else { if ($mode!=11) MyImageSetPixel($im, $tarx+$soffsetx, $tary+$soffsety, $col); } } else { MyImageSetPixel($im, $tarx+$soffsetx, $tary+$soffsety, $col); } } else { $col=ShadePixel($im, $tarx, $tary, $c, $n); if ($blendit) { if ($qx*$qy>0) { if ($mode==11) MyImageSetPixel($im, $tarx, $tary, $col); else { if ($todocounter) { if (($half+$half-$ox-$oy)/sqrt(2)>$bw) MyImageSetPixel($im, $tarx, $tary, $col); } else { MyImageSetPixel($im, $tarx, $tary, $col); } } } else { if ($mode!=11) MyImageSetPixel($im, $tarx, $tary, $col); } } else { MyImageSetPixel($im, $tarx, $tary, $col); } } } else { if ($n[2]<0.4) { $col=array(0,0,0); } else { $col=$colors[$c]; } if ($blendit) { if ($qx*$qy>0) { if ($mode==11) MyImageSetPixel($im, $tarx, $tary, $col); else { if ($todocounter) { if (($half+$half-$ox-$oy)/sqrt(2)>$bw) MyImageSetPixel($im, $tarx, $tary, $col); } else { MyImageSetPixel($im, $tarx, $tary, $col); } } } else { if ($mode!=11) MyImageSetPixel($im, $tarx, $tary, $col); } } else { MyImageSetPixel($im, $tarx, $tary, $col); } } } } } } } } } } } // create a stupid frame around the image $col=imagecolorresolve($im, 255, 255, 255); for ($a=0; $a<$half; $a++) { if ($a==($half-1)) { $col=imagecolorresolve($im, 128,128,128); } imageline($im, 0, 0, $ww, $a, $col); imageline($im, $ww-1, 0, $ww-1-$a, $hh-1, $col); imageline($im, $ww-1, $hh-1, 0, $hh-1-$a, $col); imageline($im, 0, $hh-1, $a, 0, $col); } if ($conf_cache) { header("Content-type: image/png"); MyImagePng($im, "/tmp/mitjasmaze_$md5.png"); readfile("/tmp/mitjasmaze_$md5.png"); } else { header("Content-type: image/png"); MyImagePng($im); } } function MyImagePng($im, $filename="") { // outputs the image, resizing if neccesary global $conf_aalias; if ($conf_aalias) { $sx=imagesx($im); $sy=imagesy($im); $nx=($sx>>1)+1; $ny=($sy>>1)+1; $out=imagecreatetruecolor($nx, $ny); imagecopyresampled($out, $im, 0, 0, 0, 0, $nx, $ny, $sx, $sy); if ($filename) { imagepng($out, $filename); } else { imagepng($out); } } else { if ($filename) { imagepng($im, $filename); } else { imagepng($im); } } } function ShadePixel($im, $x, $y, $c, $normal) { // applies shading to a pixel // black outline if ($normal[2]<0.4) return array(0,0,0); global $bw, $colors, $tilesize, $ww; global $conf_light; list($r,$g,$b)=$colors[$c]; $bright=$conf_light[0]*$normal[0]+$conf_light[1]*$normal[1]+$conf_light[2]*$normal[2]; $coslightnormal=$bright; if ($bright<0) { $bright=0; } // ambient/diffuse if ($c=="*") { // make * really bright $bright=1.0+2.0*$bright; } else { $bright=0.1+0.7*$bright; } $r=$bright*$r; $g=$bright*$g; $b=$bright*$b; if ($c!="*") { // specular (white light) $cosa=2.0*$normal[2]*$coslightnormal-$conf_light[2]; if ($cosa>0) { $spec=(255.0*pow($cosa, 10)); $r+=$spec; $g+=$spec; $b+=$spec; } // refraction $n1x=sqrt($normal[0]*$normal[0]+$normal[1]*$normal[1]); $n1z=$normal[2]; $cosalfa=$n1z; $alfa=acos($cosalfa); $sinalfa=sin($alfa); $sinbeta=$sinalfa/1.4; $beta=asin($sinbeta); $singama=$sinbeta*1.4; if (abs($singama)<=1.0) { $gama=asin($singama); $totalangle=$alfa+$gama-$beta-$beta; $innerx=-sin($alfa-$beta); $innerz=-cos($alfa-$beta); $p1x=$n1x; $p1z=$n1z; $d=2.0*((-$p1x*$innerx)+(-$p1z*$innerz)); $p2x=$p1x+$d*$innerx; $p2z=$p1z+$d*$innerz; $outx=-sin($totalangle); $outz=-cos($totalangle); $gotheretimes=(2.2+$p2z)/$outz; $hitx=-(int)($gotheretimes*$normal[0]*$tilesize/0.6); $hity=-(int)($gotheretimes*$normal[1]*$tilesize/0.6); list($rr, $rg, $rb)=BackColor($x+$hitx, $y+$hity); list($r1, $g1, $b1)=$colors[$c]; $r+=$rr*(128+$r1)*0.002; $g+=$rg*(128+$g1)*0.002; $b+=$rb*(128+$b1)*0.002; } } $r=(int)$r; if ($r>255) $r=255; $g=(int)$g; if ($g>255) $g=255; $b=(int)$b; if ($b>255) $b=255; return array($r, $g, $b); } function MyImageSetPixel($im, $x, $y, $color) { $col=imagecolorresolve($im, $color[0], $color[1], $color[2]); imagesetpixel($im, $x, $y, $col); } function BackColor($x, $y) { // returns the color of a background pixel global $tilesize; global $c_odd, $c_even, $c_edge, $bw; $x=abs($x)%$tilesize; $y=abs($y)%$tilesize; $x-=$tilesize>>1; $y-=$tilesize>>1; if ($x*$x+$y*$y<$bw*$bw) { return array(255,255,255); } else { return array(224,224,224); } } function ExplodeMazeLine($s) { // explodes a line of a maze $result=""; $count=0; while (strlen($s)) { $c=substr($s, 0, 1); $s=substr($s, 1); if ($c>="0" && $c<="9") { $count+=(int)$c; } else { if ($c=="b" || $c==".") // . can also be used for space $c=" "; if ($count<1) // shortcut notation, for easier testing $count=1; $result.=str_repeat($c, $count); $count=0; } } return $result; } ?>