From: Juergen Gilg Date: Wed, 21 Nov 2012 22:47:20 +0000 (+0100) Subject: ... Stickers_des_drapeaux_3d.pdf avec un effet 3d du texte... X-Git-Url: https://melusine.eu.org/syracuse/G/git/?p=carto.git;a=commitdiff_plain;h=b7ba1b99daba903f0a72136e6b4baddf877c3ee5 ... Stickers_des_drapeaux_3d.pdf avec un effet 3d du texte... --- diff --git a/drapeaux/LISTE.txt b/drapeaux/LISTE.txt index 35c778c..d48a229 100644 --- a/drapeaux/LISTE.txt +++ b/drapeaux/LISTE.txt @@ -1,7 +1,12 @@ == Style file pst-flags.sty +pst-light3d.tex +pst-light3d.sty +pst-light3d.pro == Test file Drapeaux_europe.tex Drapeaux_europe.pdf Stickers_des_drapeaux.tex -Stickers_des_drapeaux.pdf \ No newline at end of file +Stickers_des_drapeaux.pdf +Stickers_des_drapeaux_3d.tex +Stickers_des_drapeaux_3d.pdf \ No newline at end of file diff --git a/drapeaux/Stickers_des_drapeaux_3d.pdf b/drapeaux/Stickers_des_drapeaux_3d.pdf new file mode 100644 index 0000000..cae2ef2 Binary files /dev/null and b/drapeaux/Stickers_des_drapeaux_3d.pdf differ diff --git a/drapeaux/Stickers_des_drapeaux_3d.tex b/drapeaux/Stickers_des_drapeaux_3d.tex new file mode 100644 index 0000000..6eda0ef --- /dev/null +++ b/drapeaux/Stickers_des_drapeaux_3d.tex @@ -0,0 +1,52 @@ + +\documentclass[dvipsnames]{article} +\usepackage{web} +\margins{2cm}{2cm}{2cm}{2cm} %% Kein Seitenrand +\screensize{297mm}{210mm} %% Dimensionen: H\"{o}he, Breite des Dokuments + +\usepackage{pst-flags} +\usepackage{pst-grad,pst-light3d} +\parindent0pt +\parskip7pt + +\DeclareFixedFont{\BK}{T1}{ptm}{b}{n}{1.275cm} + +\begin{document} + +\psset{unit=4mm,LightThreeDXLength=0.135,LightThreeDYLength=0.15, +LightThreeDColorPsCommand=2.5 div setgray,fillstyle=solid,fillcolor=gray} + + +\begin{pspicture}(-5,-5)(5,5) + \begin{psclip}{\psellipse[linewidth=4pt](0,0)(6,3.5)} + \rput(0,0){\psset{linewidth=0pt}\pstFlag} + \end{psclip} + +\rput(0,0){\PstLightThreeDText{\BK GER}} +\end{pspicture} + +\begin{pspicture}(-5,-5)(5,5) + \begin{psclip}{\psellipse[linewidth=4pt](0,0)(6,3.5)} + \rput(0,0){\psset{linewidth=0pt}\pstFlag[nation=France]} + \end{psclip} + +\rput(0,0){\PstLightThreeDText{\BK FRA}} +\end{pspicture} + +\begin{pspicture}(-5,-5)(5,5) + \begin{psclip}{\psellipse[linewidth=4pt](0,0)(6,3.5)} + \rput(0,0){\psset{linewidth=0pt}\pstFlag[nation=UnitedKingdom]} + \end{psclip} + +\rput(0,0){\PstLightThreeDText{\BK UK}} +\end{pspicture} + +\begin{pspicture}(-5,-5)(5,5) + \begin{psclip}{\psellipse[linewidth=4pt](0,0)(6,3.5)} + \rput(0,0){\psset{linewidth=0pt}\pstFlag[nation=UnitedStates]} + \end{psclip} + +\rput(0,0){\PstLightThreeDText{\BK USA}} +\end{pspicture} + +\end{document} \ No newline at end of file diff --git a/drapeaux/pst-light3d.pro b/drapeaux/pst-light3d.pro new file mode 100644 index 0000000..edb6494 --- /dev/null +++ b/drapeaux/pst-light3d.pro @@ -0,0 +1,88 @@ +%% +%% This is file `pst-li3d.pro', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% pst-li3d.dtx (with options: `postscript-header') +%% +%% IMPORTANT NOTICE: +%% +%% For the copyright see the source file. +%% +%% Any modified versions of this file must be renamed +%% with new filenames distinct from pst-li3d.pro. +%% +%% For distribution of the original source see the terms +%% for copying and modification in the file pst-li3d.dtx. +%% +%% This generated file may be distributed as long as the +%% original source files, as listed above, are part of the +%% same distribution. (The sources need not necessarily be +%% in the same archive or directory.) +%% +%% Package `pst-li3d.dtx' +%% +%% Denis Girou (CNRS/IDRIS - France) +%% and Peter Kleiweg (Rijksuniversiteit Groningen - Nederlands) +%% %% %% July 10, 2003 +%% +%% This program can be redistributed and/or modified under +%% the terms of the LaTeX Project Public License Distributed +%% from CTAN archives in directory macros/latex/base/lppl.txt. +%% +%% DESCRIPTION: +%% `pst-li3d' is a PSTricks package for three dimensional +%% lighten effect on characters and PSTricks graphics. +%% +%% +/tx@LightThreeDDict 40 dict def +tx@LightThreeDDict begin +/LightThreeDMove { + /y0c exch def + /x0c exch def + /xc x0c def + /yc y0c def + newpath } def +/LightThreeDLine { + /yyc exch def + /xxc exch def + yyc yc sub xxc xc sub 1 index 0 eq 1 + index 0 eq and not { atan + /ac exch def + ac LightThreeDMINangle le ac LightThreeDMAXangle ge or + { ac LightThreeDAngle sub 2 mul cos 1 add LightThreeDColorPsCommand + xc yc moveto xxc yyc lineto LightThreeDDXa LightThreeDDYa + rlineto xc LightThreeDDXa add yc LightThreeDDYa add + lineto closepath fill } if } if + /xc xxc def + /yc yyc def } def +/LightThreeDCurve { + /y4c exch def + /x4c exch def + /y3c exch def + /x3c exch def + /y2c exch def + /x2c exch def + /y1c yc def + /x1c xc def +1 LightThreeDSteps div 1 LightThreeDSteps div 1 { + /t exch def + 3 t sub x1c mul t 2 sub x2c mul 1 t sub x3c mul add 3 mul add x4c + t mul add t mul x2c x1c sub 3 mul add t mul x1c add % X + 3 t sub y1c mul t 2 sub y2c mul + 1 t sub y3c mul add 3 mul add y4c t mul add t + mul y2c y1c sub 3 mul add t mul y1c add % Y + LightThreeDLine + } for +} def +/LightThreeDClose { + x0c 0 eq {x0c} {x0c 1 add} ifelse y0c 0 eq {y0c} {y0c 1 add} ifelse + LightThreeDLine newpath +} def +/LightThreeDPathForAll { + { LightThreeDMove} { LightThreeDLine } { LightThreeDCurve } { LightThreeDClose } + pathforall} def +end +%% +%% End of file `pst-li3d.pro'. diff --git a/drapeaux/pst-light3d.sty b/drapeaux/pst-light3d.sty new file mode 100644 index 0000000..43d8bf7 --- /dev/null +++ b/drapeaux/pst-light3d.sty @@ -0,0 +1,8 @@ +\RequirePackage{pstricks} +\ProvidesPackage{pst-light3d}[2004/08/28 package wrapper for + pst-light3d.tex (hv)] +\input{pst-light3d.tex} +\ProvidesFile{pst-light3d.tex} + [\filedate\space v\fileversion\space `PST-light3d' (hv)] +\IfFileExists{pst-light3d.pro}{\@addtofilelist{pst-light3d.pro}}{}% +\endinput \ No newline at end of file diff --git a/drapeaux/pst-light3d.tex b/drapeaux/pst-light3d.tex new file mode 100644 index 0000000..04cba26 --- /dev/null +++ b/drapeaux/pst-light3d.tex @@ -0,0 +1,110 @@ +%% Package `pst-li3d.tex' +%% +%% Denis Girou (CNRS/IDRIS - France) +%% and Peter Kleiweg (Rijksuniversiteit Groningen - Nederlands) +%% +%% +%% This program can be redistributed and/or modified under +%% the terms of the LaTeX Project Public License Distributed +%% from CTAN archives in directory macros/latex/base/lppl.txt. +%% +%% DESCRIPTION: +%% `pst-li3d' is a PSTricks package for three dimensional +%% lighten effect on characters and PSTricks graphics. +%% +%% +\csname PSTLightThreeDLoaded\endcsname +\let\PSTLightThreeDLoaded\endinput +\ifx\PSTricksLoaded\endinput\else\input{pstricks}\fi +% +\input pst-xkey +\pst@addfams{pst-light3d} +% +\def\FileVersion{0.12} +\def\FileDate{2006/11/25} +\message{`Pst-Light3d' v\FileVersion, \FileDate\space(DG/PK)} +% +\edef\PstAtCode{\the\catcode`\@} +\catcode`\@=11\relax +\pstheader{pst-light3d.pro} +% +\define@key[psset]{pst-light3d}{LightThreeDXLength}{% + \pst@getlength{#1}\PstLightThreeD@XLength} +\define@key[psset]{pst-light3d}{LightThreeDYLength}{% + \pst@getlength{#1}\PstLightThreeD@YLength} +\define@key[psset]{pst-light3d}{LightThreeDLength}{% + \pst@getlength{#1}\PstLightThreeD@XLength% + \pst@getlength{#1}\PstLightThreeD@YLength} +\define@key[psset]{pst-light3d}{LightThreeDSteps}{% + \pst@getint{#1}\PstLightThreeD@Steps} +\define@key[psset]{pst-light3d}{LightThreeDAngle}{% + \pst@getangle{#1}\PstLightThreeD@LightAngle} +\define@key[psset]{pst-light3d}{LightThreeDColorPsCommand}{% + \edef\PstLightThreeD@ColorPsCommand{#1}} +\psset{% + LightThreeDXLength=0.2,LightThreeDYLength=0.3,% + LightThreeDSteps=40,LightThreeDAngle=45,% + LightThreeDColorPsCommand=2.5 div setgray} +\def\PstLightThreeDGraphic{\pst@object{PstLightThreeDGraphic}} +\def\PstLightThreeDGraphic@i{% + \pst@makebox{% + \PstLightThreeD@i{% + /LightThreeDDXa LightThreeDDX def + /LightThreeDDYa LightThreeDDY def + /stroke { gsave reversepath LightThreeDPathForAll grestore + LightThreeDPathForAll } def }{ end }% + }% +} +\def\PstLightThreeDText{\pst@object{PstLightThreeDText}} +\def\PstLightThreeDText@i{% + \pst@makebox{% + \PstLightThreeD@i{% + /LightThreeDDXa LightThreeDDX Resolution 100 div mul def + /LightThreeDDYa LightThreeDDY VResolution 100 div mul def + /tx@LightThreeDSavedShow /show load def + /show { + dup + gsave + false charpath + reversepath LightThreeDPathForAll + grestore true charpath + } def }% + {/show /tx@LightThreeDSavedShow load def end }% + \begin@ClosedObj% + \def\use@pscode{% + \pst@Verb{% + gsave + \tx@STV + \pst@code grestore CP newpath moveto + }% + \gdef\pst@code{}% + }% + \end@ClosedObj% + }% +}% +\def\PstLightThreeD@i#1#2{{% + \use@par% + \leavevmode% + \pstVerb{% + tx@LightThreeDDict begin + /LightThreeDDX \PstLightThreeD@XLength\space def + /LightThreeDDY \PstLightThreeD@YLength\space neg def + /LightThreeDSteps \PstLightThreeD@Steps def + /LightThreeDAngle \PstLightThreeD@LightAngle def + /LightThreeDColorPsCommand {\PstLightThreeD@ColorPsCommand} def + /LightThreeDMINangle LightThreeDDY LightThreeDDX atan 180 sub def + /LightThreeDMAXangle LightThreeDDY LightThreeDDX atan def + #1}% + \hbox{\box\pst@hbox}% + \pstVerb{#2}% +}\ignorespaces} +% +\catcode`\@=\PstAtCode\relax +\endinput +%% +%% End of file `pst-li3d.tex'. + +\iffalse +0.11 hv use pst-xkey +0.10 hv initial version +\fi \ No newline at end of file