Navigation alternative
Figures / Images
BBgraf
MetaPost
PSTricks
Format SVG
Asymptote
EPiX
Gnuplot
TeXGraph
Librairie GD
PostScript
SWFtools
Calculs
BC
Giac / Xcas
Maxima
Pari / GP
Scilab
Scripts p*
Documents
TeX au collège
TeX png
Lua(La)TeX
Cours etc.
Contributions
Le cours d'Ismaël
Astronomie
Bases
Base Brevet
Base Collège
Base Graphisme
Base Ipe
Base JPS (BBgraf)
Base MetaPost
Base PSTricks
Dépôt Git
Fichier JPS
Accueil
Présentation
Exemples
Papiers
Banque d'images
Albums et animations
Formulaires
Célébrités
Postscript
Chimie
Documentation
Sources et téléchargement
Édition du fichier 123601.jps
Retour
%% auteur : A.Abidi %% Logo Marrant :) 15 setxunit -5 20 setxrange -4 7 setyrange %%%%%%%%%%%% %% MAISON %% %%%%%%%%%%%% /taillemaison 5 def /angletoit 90 def /ldepasse 1 def /epaisseurtoit 0.75 def /centremaison {0 0} def /epaisseurcheminee 1 def /longueurcheminee 1.5 def /poscheminee 70 def %% en pourcentage /longueurtoit {taillemaison 2 angletoit 2 div sin mul div ldepasse add epaisseurtoit angletoit 2 div tan div add} def /llongueurtoit {taillemaison 2 angletoit 2 div sin mul div epaisseurcheminee angletoit 2 div sin div sub poscheminee 100 div mul} def /rlongueurtoit {taillemaison 2 angletoit 2 div sin mul div epaisseurcheminee angletoit 2 div sin div sub 100 poscheminee sub 100 div mul longueurtoit add taillemaison 2 angletoit 2 div sin mul div sub} def gsave newpath centremaison taillemaison 2 div taillemaison 2 div addv smoveto 0 taillemaison neg srlineto taillemaison neg 0 srlineto 0 taillemaison srlineto ldepasse angletoit 2 div sin neg mul ldepasse angletoit 2 div cos neg mul srlineto epaisseurtoit angletoit 2 div cos neg mul epaisseurtoit angletoit 2 div sin mul srlineto longueurtoit angletoit 2 div sin mul longueurtoit angletoit 2 div cos mul srlineto llongueurtoit angletoit 2 div sin mul llongueurtoit angletoit 2 div cos mul neg srlineto 0 longueurcheminee epaisseurcheminee 2 angletoit 2 div tan mul div sub srlineto epaisseurcheminee 0 srlineto 0 longueurcheminee epaisseurcheminee 2 angletoit 2 div tan mul div add neg srlineto rlongueurtoit angletoit 2 div sin mul rlongueurtoit angletoit 2 div cos mul neg srlineto epaisseurtoit angletoit 2 div cos neg mul epaisseurtoit angletoit 2 div sin mul neg srlineto closepath clip vert fill grestore %%%%%%%%%%%%% %% SERRURE %% %%%%%%%%%%%%% /centreserrure {centremaison 0 1 addv} def /rayonserrure 0.5 def /hauteurclef 1.5 def /epaisseurclef 0.75 def /anglebas 45 def gsave newpath centreserrure rayonserrure -90 anglebas 2 div add cos mul rayonserrure -90 anglebas 2 div add sin mul addv smoveto -90 anglebas 2 div add 270 anglebas 2 div sub centreserrure rayonserrure Cercle_ epaisseurclef 2 div neg hauteurclef neg centreserrure addv slineto epaisseurclef 0 srlineto closepath clip blanc fill grestore %%%%%%%%%%%%%% %% DOMSECUR %% %%%%%%%%%%%%%% vert (Avant Garde) findfont setfont (DOM) taillemaison 1 add 2 [12.5 taillemaison mul 12.5 taillemaison mul] brtext (SECUR) taillemaison 1 add -2 [12.5 taillemaison mul 12.5 taillemaison mul] brtext %% adresse IP : 192.108.117.68
Tapez les 3 lettres : AWE