From 49f358428aa2f56627c7a9fad82a908447955d37 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sat, 24 Dec 2016 22:15:21 +0000 Subject: pst-shell (24dec16) git-svn-id: svn://tug.org/texlive/trunk@42787 c570f23f-e606-0410-a88d-b1316a301751 --- .../texmf-dist/tex/generic/pst-shell/pst-shell.tex | 109 +++++++++++++++++++++ .../texmf-dist/tex/latex/pst-shell/pst-shell.sty | 14 +++ 2 files changed, 123 insertions(+) create mode 100644 Master/texmf-dist/tex/generic/pst-shell/pst-shell.tex create mode 100644 Master/texmf-dist/tex/latex/pst-shell/pst-shell.sty (limited to 'Master/texmf-dist/tex') diff --git a/Master/texmf-dist/tex/generic/pst-shell/pst-shell.tex b/Master/texmf-dist/tex/generic/pst-shell/pst-shell.tex new file mode 100644 index 00000000000..0c1ecd3d5bb --- /dev/null +++ b/Master/texmf-dist/tex/generic/pst-shell/pst-shell.tex @@ -0,0 +1,109 @@ +%% +%% This is file `pst-shell.tex', +%% +%% IMPORTANT NOTICE: +%% +%% Package `pst-shell' +%% +%% Manuel Luque (France) +%% Herbert Voss (Germany) +%% +%% December 22, 2016 +%% +%% 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-shell' is a PSTricks package to create sea shell +%% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\csname PSTSHELLLoaded\endcsname +\let\PSTSHELLLoaded\endinput +% Requires PSTricks, ps-solides3d, pst-xkey packages +\ifx\PSTricksLoaded\endinput\else\input pstricks.tex\fi +\ifx\PSTGradLoaded\endinput \else\input pst-solides3d.tex\fi +%\ifx\PSTXKeyLoaded\endinput \else\input pst-xkey.tex \fi +\def\fileversion{0.02} +\def\filedate{2016/12/23} +\message{`PST' v\fileversion, \filedate} + +\edef\PstAtCode{\the\catcode`\@} \catcode`\@=11\relax +\pst@addfams{pst-shell} +% 14 paramétres +% D, A,\alpha,\beta,\mu,\Omega,\phi, b, L, P, W1, W2,N +% JORGE PICADO +\define@key[psset]{pst-shell}{D}[1]{\def\pst@shell@D{#1 }} % sens de l'enroulement +\define@key[psset]{pst-shell}{A}[25]{\def\pst@shell@A{#1 }} % r(\theta=0) +\define@key[psset]{pst-shell}{alpha}[83]{\def\pst@shell@alpha{#1 }} % +\define@key[psset]{pst-shell}{beta}[42]{\def\pst@shell@beta{#1 }} % +\define@key[psset]{pst-shell}{mu}[10]{\def\pst@shell@mu{#1 }} % +\define@key[psset]{pst-shell}{Omega}[30]{\def\pst@shell@Omega{#1 }} % +\define@key[psset]{pst-shell}{phi}[70]{\def\pst@shell@phi{#1 }} % +\define@key[psset]{pst-shell}{a}[12]{\def\pst@shell@a{#1 }} % +\define@key[psset]{pst-shell}{b}[20]{\def\pst@shell@b{#1 }} % +\define@key[psset]{pst-shell}{L}[1]{\def\pst@shell@L{#1 }} % +\define@key[psset]{pst-shell}{P}[1]{\def\pst@shell@P{#1 }} % +\define@key[psset]{pst-shell}{W1}[1]{\def\pst@shell@Wi{#1 }} % +\define@key[psset]{pst-shell}{W2}[1]{\def\pst@shell@Wii{#1 }} +\define@key[psset]{pst-shell}{N}[0]{\def\pst@shell@N{#1 }} +%%% +\psset[pst-shell]{D=1,A=25,alpha=83,beta=42,mu=10,Omega=30,phi=70,a=12,b=20,L=1,P=1,W1=1,W2=1,N=0} +% +\pstheader{pst-shell.pro} +% +\def\pst@shell@variables{ + /shell@D \pst@shell@D def + /shell@A \pst@shell@A def + /shell@alpha \pst@shell@alpha def + /shell@beta \pst@shell@beta def + /shell@mu \pst@shell@mu def + /shell@Omega \pst@shell@Omega def + /shell@phi \pst@shell@phi def + /shell@a \pst@shell@a def + /shell@b \pst@shell@b def + /shell@L \pst@shell@L def + /shell@P \pst@shell@P def + /shell@Wi \pst@shell@Wi def + /shell@Wii \pst@shell@Wii def + /shell@N \pst@shell@N def +} +% +\newpsstyle[pst-shell]{Argonauta}{alpha=80,beta=90,phi=0,mu=0,Omega=0,A=2,a=2,b=1.5, + L=0.3,W1=150,W2=20,P=5,N=30}% +\newpsstyle[pst-shell]{Epiteonium}{D=1,A=9.5,alpha=85.9,beta=9,mu=0,Omega=0, + phi=81,a=2.1,b=1.6,L=1.3,P=-60,W1=200,W2=20,N=8.3} +\newpsstyle[pst-shell]{Lyria}{D=1,A=50,alpha=83.9,beta=-19,mu=1,Omega=-2, + phi=45,a=40,b=14,L=4,P=0,W1=6,W2=27,N=8} +\newpsstyle[pst-shell]{Turritella}{D=1,A=22.2,alpha=88.9,beta=4,mu=0,Omega=0, + phi=55,a=1.3,b=1.5,L=0,P=0,W1=1,W2=1,N=0} +\newpsstyle[pst-shell]{Tonna}{D=1,A=70,alpha=82.4,beta=0,mu=10,Omega=0,phi=0, + a=58,b=50,L=0,P=0,W1=1,W2=1,N=0} +\newpsstyle[pst-shell]{Achatina}{D=1,A=109,alpha=86.6,beta=8.5,mu=0,Omega=0, + phi=0,a=32,b=48,L=0,P=0,W1=1,W2=1,N=0} +\newpsstyle[pst-shell]{Oxystele}{D=1,A=47,alpha=84.9,beta=7,mu=0,Omega=0,phi=-36, + a=40,b=19,L=0,P=0,W1=1,W2=1,N=0} +\newpsstyle[pst-shell]{Conus}{D=1,A=7,alpha=87,beta=7,mu=0,Omega=0,phi=78, + a=4.3,b=1,L=0,P=0,W1=1,W2=1,N=0} +\newpsstyle[pst-shell]{Nautilus}{D=-1,A=2,alpha=80,beta=90,mu=0,Omega=0,phi=0, + a=2,b=1.5,L=0,P=0,W1=0,W2=0,N=0} +% +\def\psShell{\pst@object{psShell}} +\def\psShell@i{\@ifnextchar(\psShell@ii{\psShell@ii(0,0,0)}} +\def\psShell@ii(#1){% + \begin@SpecialObj + \if$\pst@solides@file$ + \addto@pscode{ tx@ShellDict begin \pst@shell@variables }% + \defFunction{pst@coquillage}(uu,vu){xShell}{yShell}{zShell} + \psSolid[object=surfaceparametree,function=pst@coquillage](#1) + \showpointsfalse + \addto@pscode{ end }% of tx@ShellDict % + \else + \psSolid[object=datfile](#1) + \fi + \end@SpecialObj + \ignorespaces}% +% +\catcode`\@=\TheAtCode\relax +% +\endinput \ No newline at end of file diff --git a/Master/texmf-dist/tex/latex/pst-shell/pst-shell.sty b/Master/texmf-dist/tex/latex/pst-shell/pst-shell.sty new file mode 100644 index 00000000000..32db1926fb1 --- /dev/null +++ b/Master/texmf-dist/tex/latex/pst-shell/pst-shell.sty @@ -0,0 +1,14 @@ +\ProvidesPackage{pst-shell} + [2016/12/22 v0.01 LaTeX wrapper for `pst-shell' ] +% +\RequirePackage{pstricks} +\ProvidesPackage{pst-shell}[2016/12/22 package wrapper for + pst-shell] +\input{pst-shell.tex} +\ProvidesFile{pst-shell.tex} + [\filedate\space v\fileversion\space `PST-shell'] +\IfFileExists{pst-shell.pro}{% + \ProvidesFile{pst-shell.pro} + [2016/12/23 v. 0.01, PostScript prologue file (hv)] +\@addtofilelist{pst-func.pro}}{}% +\endinput -- cgit v1.2.3