Listing du fichier chess1.php
00001 <?php
Pour ne pas voir les numéros de ligne, ajoutez &nl=non à la suite du nom du fichier. |
Retour à la page principale de
(gH)
Listing du fichier chess1.php
00001 <?php
00002 # (gH) -_- skel.php ; TimeStamp (unix) : 11 Septembre 2013 vers 15:19
00003
00004 error_reporting(E_ALL | E_NOTICE ) ;
00005
00006 include("std.php") ;
00007
00008 ########################################################################################
00009
00010 $error = 0 ;
00011 $n = "" ;
00012
00013 if (!isset($_GET["n"])) { $erreur = 1 ; } else {
00014
00015 # on récupère le nombre cases
00016
00017 $n = $_GET["n"] ;
00018
00019 } # fin si
00020
00021 # quelques vérification élémentaires sur n
00022
00023 if ($error==0) {
00024
00025 $n = trim($n) ;
00026
00027 if (!preg_match("/^[0-9]+$/",$n)) { $error = 2 ; } else {
00028 if ($n<1) { $error = 2 ; } ;
00029 if ($n>29) { $error = 2 ; } ;
00030 } ; # fin si
00031
00032 } # fin si
00033
00034 if ($error>0) {
00035
00036 $titre = "Echiquier en taille variable ! " ;
00037 debutPage($titre,"strict") ;
00038 debutSection() ;
00039 h1($titre) ;
00040
00041 if (($error==2) and (!$n=="")) {
00042 h2("erreur : n devrait être un entier strictement positif inférieur à 30.","grouge") ;
00043 } ; # finsi
00044
00045 p() ;
00046 echo "Pour afficher un échiquier de taille ".b("n").", cliquez sur le lien " ;
00047 echo " ci-dessous et changez la valeur de ".b("n")." dans l'URL : " ;
00048 finp() ;
00049
00050 pvide() ;
00051
00052 p() ;
00053 nbsp(15) ;
00054 echo href("chess1.php?n=3"," cliquez-moi !","bouton_fin vert_pastel nou") ;
00055 finp() ;
00056
00057 finSection() ;
00058 finPage() ;
00059 exit(-1) ;
00060
00061 } # fin si
00062
00063 ########################################################################################
00064
00065 # si on arrive ici, on peut tracer le SVG
00066
00067 ########################################################################################
00068
00069 # on déduit de n la zone de tracé et le cadre
00070
00071 $np = $n+1 ;
00072 $cases = 100*$n ;
00073 $cadre = 100*$np ;
00074 svg("latin1",$cadre,$cadre) ;
00075
00076 cmt(" les bords de l'échiquier ") ;
00077 rect(0,0,$cases,$cases,"white","black",5) ;
00078
00079 # on boucle sur les lignes et sur les colonnes
00080
00081 for ($ilig=1;$ilig<=$n;$ilig++) {
00082 for ($jcol=1;$jcol<=$n;$jcol++) {
00083 if ((($ilig+$jcol)%2)==1) {
00084 rect(100*($ilig-1),100*($jcol-1),"100","100","black","black",1) ;
00085 } ; # fin si
00086 } ; # fin tant que sur jcol
00087 } ; # fin tant que sur ilig
00088
00089 finsvg() ;
00090
00091 ?>
Pour ne pas voir les numéros de ligne, ajoutez &nl=non à la suite du nom du fichier.