HACHURES

function hachures($im,$x1,$y1,$x2,$y2,$c,$pas,$ep,$dir)
//$im : image (identifiant de ressource)
//$x1,$y1 et $x2,$y2 sont les coordonnées des angles du rectangle
//$c : couleur (tableau contenant les composantes rvb)
//$pas : distance entre 2 hachures
//$ep : épaisseur d'une hachure
//$dir : direction des hachures (1 : SO/NE, 2 : NO/SE, 3 : les 2 (quadrillage))
{
  $l=$x2-$x1;
  $h=$y2-$y1;
  $t=$l+$h;
  $coul=imagecolorallocate($im, $c['r'], $c['v'], $c['b']);
  if ($dir!=2)
  {
    for ($i=0;$i<$t;$i+=$pas)
    {
       for ($e=0; $e<$ep; $e++)
       { $j=$i+$e; imageline($im,$x1+max(0,($j-$h)),$y1+min($j,$h),$x1+min($j,$l),$y1+max(0,($j-$l)),$coul); }
    }
  }
  if ($dir!=1)
  {
    for ($i=0;$i<$t;$i+=$pas)
    {
       for ($e=0; $e<$ep; $e++)
       { $j=$i+$e; imageline($im,$x1,$y1+($h-$j),$x1+$j,$y1+$h,$coul); }
    }
  }
}