Fichier 123601.jps — Modifié le 10 Septembre 2008 à 19 h 15

123601.pdf
Source
%% 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