Fichier 123601.jps — Modifié le 10 Septembre 2008 à 19 h 15
%% 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