% 7 juillet 2003 \documentclass[12pt]{article} \usepackage{pstcol} \usepackage[tiling]{pst-fill} \usepackage{multido} \usepackage[latin1]{inputenc} \usepackage[francais]{babel} \usepackage[a4paper,margin=2cm]{geometry} % \usepackage{frcursive} \makeatletter % Arc of ellipse (but without arrows and "showpoints" parameter...) % Denis Girou. - Feb. 18, 1999 \def\psarcellipse{\pst@object{psarcellipse}} \def\psarcellipse@i(#1){\@ifnextchar(% {\psarcellipse@ii(#1)}{\psarcellipse@ii(0,0)(#1)}} \def\psarcellipse@ii(#1)(#2)#3#4{% \psarcellipse@iii(#1)(#2){#3}{#4}} \def\psarcellipse@iii(#1)(#2)#3#4{% \begin@ClosedObj \pst@getcoor{#1}\pst@tempa \pst@@getcoor{#2}% \addto@pscode{% %0 360 #3 #4 \pst@coor \ifdim\psk@dimen\p@=\z@\else \psk@dimen CLW mul dup 4 -1 roll sub neg 3 1 roll sub \fi \pst@tempa \tx@Ellipse %closepath}% }% %\def\pst@linetype{2}% \def\pst@linetype{0}% \showpointsfalse \end@ClosedObj} \makeatother \definecolor{case1}{cmyk}{0.102,0.176,0.204,0} \definecolor{case2}{cmyk}{0.3413,0.592,0.3417,0} \definecolor{case3}{cmyk}{0.341,0.475,0.42,0} \definecolor{case4}{cmyk}{0.0275,0.043,0.047,0} \def\SaintMarc{{% \psset{unit=0.5} \pspicture(2,2) \pspolygon*[linecolor=case1](0,0)(1,1)(0,2) \pspolygon*[linecolor=case2](0,2)(1,1)(2,2) \pspolygon*[linecolor=case3](2,0)(1,1)(2,2) \pspolygon*[linecolor=case4](0,0)(1,1)(2,0) \endpspicture}} % \def\CyanBouteille{0.3} \def\MagentaBouteille{0} \def\YellowBouteille{0.5} \def\KBouteille{0.15} \def\KCulBouteille{0.30} \def\MagentaVinInBouteille{0.9} \definecolor{bouteille}{cmyk}{\CyanBouteille,\MagentaBouteille,\YellowBouteille,\KBouteille} \def\bouteille{% \psline(-0.75,0)(0.75,0) \psarc(0.75,0.5){0.5}{-90}{0} \psline(1.25,0.5)(1.25,4) \psarc(-0.75,4){2}{0}{30} \psarcn(5.31218,7.5){5}{210}{180} \psline(0.31218,7.5)(0.31218,8.5)(-0.31218,8.5)(-0.31218,7.5) \psarcn(-5.31218,7.5){5}{0}{-30} \psarc(0.75,4){2}{150}{180} \psline(-1.25,4)(-1.25,0.5) \psarc(-0.75,0.5){0.5}{180}{270} } % \def\CulBouteille{% \pscurve(0.75,0)(0,0.2)(-0.75,0)} \definecolor{CulBouteille}{cmyk}{\CyanBouteille,\MagentaBouteille,\YellowBouteille,\KCulBouteille} % \def\FlaqueVin{% \pscurve(0,8.5)(-0.3,9.5)(-1.5,10)(-1,11)(-1.2,12)(0,13) (0.5,14)(1,13)(2,11.5)(2.5,10)(1,9.5)(0.1,8.7)(0,8.5)} \definecolor{FlaqueVin}{cmyk}{0,0.9,0.1,0} % \makeatletter % routine de Donald Arseneau % dans RANDOM.TEX v.1 \def\pointless{\expandafter\PoinTless\the} {\catcode`p=12 \catcode`t=12 \gdef\PoinTless#1pt{#1}} % \pst@dimc=0.102 pt \advance\pst@dimc by \CyanBouteille pt \ifdim\pst@dimc >1pt \pst@dimc=1pt \fi \pst@dimd=0.176 pt \advance\pst@dimd by \MagentaBouteille pt \ifdim\pst@dimd >1pt \pst@dimd=1pt \fi \pst@dimg=0.204 pt \advance\pst@dimg by \YellowBouteille pt \ifdim\pst@dimg >1pt \pst@dimg=1pt \fi \definecolor{case11}{cmyk}{\pointless\pst@dimc,\pointless\pst@dimd,\pointless\pst@dimg,\KBouteille} \definecolor{case11Cul}{cmyk}{\pointless\pst@dimc,\pointless\pst@dimd,\pointless\pst@dimg,\KCulBouteille} \definecolor{case11Vin}{cmyk}{\pointless\pst@dimc,\MagentaVinInBouteille,\pointless\pst@dimg,\KBouteille} \pst@dimc=0.3413 pt \advance\pst@dimc by \CyanBouteille pt \ifdim\pst@dimc >1pt \pst@dimc=1pt \fi \pst@dimd=0.592 pt \advance\pst@dimd by \MagentaBouteille pt \ifdim\pst@dimd >1pt \pst@dimd=1pt \fi \pst@dimg=0.3417 pt \advance\pst@dimg by \YellowBouteille pt \ifdim\pst@dimg >1pt \pst@dimg=1pt \fi \definecolor{case22}{cmyk}{\pointless\pst@dimc,\pointless\pst@dimd,\pointless\pst@dimg,\KBouteille} \definecolor{case22Cul}{cmyk}{\pointless\pst@dimc,\pointless\pst@dimd,\pointless\pst@dimg,\KCulBouteille} \definecolor{case22Vin}{cmyk}{\pointless\pst@dimc,\MagentaVinInBouteille,\pointless\pst@dimg,\KBouteille} \pst@dimc=0.341 pt \advance\pst@dimc by \CyanBouteille pt \pst@dimd=0.475 pt \advance\pst@dimd by \MagentaBouteille pt \ifdim\pst@dimd >1pt \pst@dimd=1pt \fi \pst@dimg=0.42 pt \advance\pst@dimg by \YellowBouteille pt \ifdim\pst@dimg >1pt \pst@dimg=1pt \fi \definecolor{case33}{cmyk}{\pointless\pst@dimc,\pointless\pst@dimd,\pointless\pst@dimg,\KBouteille} \definecolor{case33Cul}{cmyk}{\pointless\pst@dimc,\pointless\pst@dimd,\pointless\pst@dimg,\KCulBouteille} \definecolor{case33Vin}{cmyk}{\pointless\pst@dimc,\MagentaVinInBouteille,\pointless\pst@dimg,\KBouteille} \pst@dimc=0.043 pt \advance\pst@dimc by \CyanBouteille pt \ifdim\pst@dimc >1pt \pst@dimc=1pt \fi \pst@dimd=0.043 pt \advance\pst@dimd by \MagentaBouteille pt \pst@dimg=0.047 pt \advance\pst@dimg by \YellowBouteille pt \ifdim\pst@dimg >1pt \pst@dimg=1pt \fi \definecolor{case44}{cmyk}{\pointless\pst@dimc,\pointless\pst@dimd,\pointless\pst@dimg,\KBouteille} \definecolor{case44Cul}{cmyk}{\pointless\pst@dimc,\pointless\pst@dimd,\pointless\pst@dimg,\KCulBouteille} \definecolor{case44Vin}{cmyk}{\pointless\pst@dimc,\MagentaVinInBouteille,\pointless\pst@dimg,\KBouteille} % l'ombre de la bouteille \pst@dimc=0.102 pt \advance\pst@dimc by 0.15 pt \ifdim\pst@dimc >1pt \pst@dimc=1pt \fi \pst@dimd=0.176 pt \advance\pst@dimd by 0.15 pt \ifdim\pst@dimd >1pt \pst@dimd=1pt \fi \pst@dimg=0.204 pt \advance\pst@dimg by 0.15 pt \ifdim\pst@dimg >1pt \pst@dimg=1pt \fi \definecolor{shadow11}{cmyk}{\pointless\pst@dimc,\pointless\pst@dimd,\pointless\pst@dimg,\KBouteille} \pst@dimc=0.3413 pt \advance\pst@dimc by 0.15 pt \ifdim\pst@dimc >1pt \pst@dimc=1pt \fi \pst@dimd=0.592 pt \advance\pst@dimd by 0.15 pt \ifdim\pst@dimd >1pt \pst@dimd=1pt \fi \pst@dimg=0.3417 pt \advance\pst@dimg by 0.15 pt \ifdim\pst@dimg >1pt \pst@dimg=1pt \fi \definecolor{shadow22}{cmyk}{\pointless\pst@dimc,\pointless\pst@dimd,\pointless\pst@dimg,\KBouteille} \pst@dimc=0.341 pt \advance\pst@dimc by 0.15 pt \pst@dimd=0.475 pt \advance\pst@dimd by 0.15 pt \ifdim\pst@dimd >1pt \pst@dimd=1pt \fi \pst@dimg=0.42 pt \advance\pst@dimg by 0.15 pt \ifdim\pst@dimg >1pt \pst@dimg=1pt \fi \definecolor{shadow33}{cmyk}{\pointless\pst@dimc,\pointless\pst@dimd,\pointless\pst@dimg,\KBouteille} \pst@dimc=0.043 pt \advance\pst@dimc by 0.15 pt \ifdim\pst@dimc >1pt \pst@dimc=1pt \fi \pst@dimd=0.043 pt \advance\pst@dimd by 0.15 pt \pst@dimg=0.047 pt \advance\pst@dimg by 0.15 pt \ifdim\pst@dimg >1pt \pst@dimg=1pt \fi \definecolor{shadow44}{cmyk}{\pointless\pst@dimc,\pointless\pst@dimd,\pointless\pst@dimg,\KBouteille} % \def\SaintMarcBouteille{{% \psset{unit=0.5} \pspicture(2,2) \pspolygon*[linecolor=case11](0,0)(1,1)(0,2) \pspolygon*[linecolor=case22](0,2)(1,1)(2,2) \pspolygon*[linecolor=case33](2,0)(1,1)(2,2) \pspolygon*[linecolor=case44](0,0)(1,1)(2,0) \endpspicture}} % \def\ShadowBouteille{{% \psset{unit=0.5} \pspicture(2,2) \pspolygon*[linecolor=shadow11](0,0)(1,1)(0,2) \pspolygon*[linecolor=shadow22](0,2)(1,1)(2,2) \pspolygon*[linecolor=shadow33](2,0)(1,1)(2,2) \pspolygon*[linecolor=shadow44](0,0)(1,1)(2,0) \endpspicture}} % \def\VinInBouteille{{% \psline(0.75,0)(0.75,4) \pscurve(0.75,4)(0,5.5)(-0.75,4) \psline(-0.75,4)(-0.75,0)}} \definecolor{VinBouteille}{cmyk}{\CyanBouteille,\MagentaVinInBouteille,\YellowBouteille,\KBouteille} % \def\SaintMarcVinInBouteille{{% \psset{unit=0.5} \pspicture(2,2) \pspolygon*[linecolor=case11Vin](0,0)(1,1)(0,2) \pspolygon*[linecolor=case22Vin](0,2)(1,1)(2,2) \pspolygon*[linecolor=case33Vin](2,0)(1,1)(2,2) \pspolygon*[linecolor=case44Vin](0,0)(1,1)(2,0) \endpspicture}} \definecolor{VinBouteille}{cmyk}{\CyanBouteille,\MagentaVinInBouteille,\YellowBouteille,\KBouteille} \def\SaintMarcCulBouteille{{% \psset{unit=0.5} \pspicture(2,2) \pspolygon*[linecolor=case11Cul](0,0)(1,1)(0,2) \pspolygon*[linecolor=case22Cul](0,2)(1,1)(2,2) \pspolygon*[linecolor=case33Cul](2,0)(1,1)(2,2) \pspolygon*[linecolor=case44Cul](0,0)(1,1)(2,0) \endpspicture}} \pst@dimd=0.176 pt \advance\pst@dimd by 0.9 pt \ifdim\pst@dimd >1pt \pst@dimd=1pt \fi \pst@dimg=0.204 pt \advance\pst@dimg by 0.1 pt \ifdim\pst@dimg >1pt \pst@dimg=1pt \fi \definecolor{case111}{cmyk}{0.102,\pointless\pst@dimd,\pointless\pst@dimg,0} \pst@dimd=0.592 pt \advance\pst@dimd by 0.9 pt \ifdim\pst@dimd >1pt \pst@dimd=1pt \fi \pst@dimg=0.3417 pt \advance\pst@dimg by 0.1 pt \ifdim\pst@dimg >1pt \pst@dimg=1pt \fi \definecolor{case222}{cmyk}{0.3413,\pointless\pst@dimd,\pointless\pst@dimg,0} \pst@dimd=0.475 pt \advance\pst@dimd by 0.9 pt \ifdim\pst@dimd >1pt \pst@dimd=1pt \fi \pst@dimg=0.42 pt \advance\pst@dimg by 0.1 pt \ifdim\pst@dimg >1pt \pst@dimg=1pt \fi \definecolor{case333}{cmyk}{0.341,\pointless\pst@dimd,\pointless\pst@dimg,0} \pst@dimd=0.043 pt \advance\pst@dimd by 0.9 pt \ifdim\pst@dimd >1pt \pst@dimd=1pt \fi \pst@dimg=0.047 pt \advance\pst@dimg by 0.1 pt \ifdim\pst@dimg >1pt \pst@dimg=1pt \fi \definecolor{case444}{cmyk}{0.043,\pointless\pst@dimd,\pointless\pst@dimg,0} \makeatother \def\SaintMarcVin{{% \psset{unit=0.5} \pspicture(2,2) \pspolygon*[linecolor=case111](0,0)(1,1)(0,2) \pspolygon*[linecolor=case222](0,2)(1,1)(2,2) \pspolygon*[linecolor=case333](2,0)(1,1)(2,2) \pspolygon*[linecolor=case444](0,0)(1,1)(2,0) \endpspicture}} \def\ImageShadow{% \psboxfill{\SaintMarc} \psframe[linestyle=none,fillstyle=boxfill](16,14) \psclip{\rput{-125}(1.9,9.9){\pscustom[linestyle=none]{\bouteille}}} \psboxfill{\ShadowBouteille} \psframe[linestyle=none,fillstyle=boxfill](16,14) \endpsclip} \def\ImageOne{% \psboxfill{\SaintMarc} \psclip{\rput{-120}(2,10){\pscustom[linestyle=none]{\bouteille}}} \psboxfill{\SaintMarcBouteille} \psframe[linestyle=none,fillstyle=boxfill](16,14) \endpsclip} \def\ImageTwo{% \psclip{\rput{-120}(2,10){\pscustom[linestyle=none]{\FlaqueVin}}} \psboxfill{\SaintMarcVin} \psframe[linestyle=none,fillstyle=boxfill](16,14) \endpsclip} \def\ImageFour{% \psclip{\rput{-120}(2,10){\pscustom[linestyle=none]{\CulBouteille}}} \psboxfill{\SaintMarcCulBouteille} \psframe[linestyle=none,fillstyle=boxfill](16,14) \endpsclip} \def\ImageThree{% \psclip{\rput{-120}(2,10){\pscustom[linestyle=none]{\VinInBouteille}}} \psboxfill{\SaintMarcVinInBouteille} \psframe[linestyle=none,fillstyle=boxfill](16,14) \endpsclip} \definecolor{DarkGreen}{cmyk}{1,0,1,0.6} \pagestyle{empty} \definecolor{BlueCiel}{rgb}{0.827,0.91,0.92} \begin{document} \begin{center} \psframebox[doubleline=true,doublecolor=case2,doublesep=1mm]{% \begin{pspicture}*(0,3)(16,13.5) \ImageShadow \ImageOne %\ImageTwo \ImageThree \ImageFour \rput{-120}(2,10){\psline[linecolor=white,linearc=0.5cm](0.7,1)(0.7,4.5)(0.2,6)(0.1,7)% \psline[linecolor=white](0.2,8.3)(-0.2,8.3) \psset{linecolor=DarkGreen}\bouteille\CulBouteille} \end{pspicture}} \end{center} \begin{center} \psframebox[doubleline=true,doublesep=1mm,fillstyle=solid,fillcolor=BlueCiel]{% \begin{pspicture}*(-8,-5.25)(8,5.25) \rput(0,0){% \begin{minipage}{14.5cm} \begin{flushright} Basilique\\ Saint-Marc\\ Venise \end{flushright} \textit{% Ces mosaïques sont si fragiles que depuis peu on les cache sous des tapis, que seul ce livre dévoile.[\ldots] je suis revenu sur les lieux et j'ai regardé les regards de la foule. Tous vers le ciel, aucun vers le sol [\ldots] et je me souviens du poème de \textsc{Baudelaire} sur les aveugles : « leurs yeux\ldots{} restent levés au ciel ; on ne les voit jamais vers les pavés pencher rêveusement leur tête appesantie. Je dis : que cherchent-ils au ciel, tous ces aveugles ? »} Ces lignes sont extraites du livre d'André \textsc{Bruyère}, \textit{Sols, Saint-Marc, Venise}, publié par l'Imprimerie Nationale (1990). \begin{cursive} Une mosaïque qui semble banale, mais l'auteur y a couché une bouteille (page 29) et les effets de transparence m'ont paru si intéressants que j'ai rajouté un fond de vin dans la bouteille. À la vôtre (hic), \hfill Manuel \end{cursive} \end{minipage}} \end{pspicture}} \end{center} \end{document}