%% 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