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 --- Master/texmf-dist/dvips/pst-shell/pst-shell.pro | 86 +++++++++++++++++++++++++ 1 file changed, 86 insertions(+) create mode 100644 Master/texmf-dist/dvips/pst-shell/pst-shell.pro (limited to 'Master/texmf-dist/dvips') diff --git a/Master/texmf-dist/dvips/pst-shell/pst-shell.pro b/Master/texmf-dist/dvips/pst-shell/pst-shell.pro new file mode 100644 index 00000000000..2c1b9f929fa --- /dev/null +++ b/Master/texmf-dist/dvips/pst-shell/pst-shell.pro @@ -0,0 +1,86 @@ +%% $Id: pst-shell.pro 364 2016-12-23 17:09:10Z herbert $ +%% +%% This is file `pst-shell.pro', +%% +%% IMPORTANT NOTICE: +%% +%% Package `pst-shell' +%% +%% Manuel Luque (France) +%% Herbert Voss (Germany) +%% +%% 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 plot sea shells +%% +%% +%% version 0.01 / 2016-12-23 Herbert Voss +% +/tx@ShellDict 20 dict def +tx@ShellDict begin +% +/gtheta { + 360 shell@N div + shell@N u mul 360 div + shell@N u mul 360 div truncate + sub + mul +} def +/Radius { + 1 + v cos shell@a div dup mul + v sin shell@b div dup mul + add sqrt div +} def +% +/Rw { + shell@Wi shell@Wii mul shell@N mul 0 eq + {0} + { + shell@L + Euler + 2 v shell@P sub shell@Wi div mul dup mul neg + gtheta + shell@Wii div 2 mul dup mul neg add + exp + mul + } ifelse +} def +/hstheta { Radius Rw add } def +/Expo { Euler u DegtoRad shell@alpha tan div exp } def +/xShell { + shell@D + shell@A shell@beta sin mul u cos mul + hstheta + v shell@phi add cos u shell@Omega add cos mul + shell@mu sin v shell@phi add sin mul u shell@Omega add sin mul + sub + mul + add + Expo mul + mul +} def +/yShell { + shell@A neg shell@beta sin mul u sin mul + hstheta + v shell@phi add cos u shell@Omega add sin mul + shell@mu sin v shell@phi add sin mul u shell@Omega add cos mul + add + mul + sub + Expo mul +} def +/zShell { + shell@A neg shell@beta cos mul + hstheta + v shell@phi add sin + shell@mu cos mul + mul add + Expo mul +} def +% +end +%% \ No newline at end of file -- cgit v1.2.3