diff options
author | Siep Kroonenberg <siepo@cybercomm.nl> | 2008-09-26 09:17:26 +0000 |
---|---|---|
committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2008-09-26 09:17:26 +0000 |
commit | 69cdb80977fc59e47c24a680fc0c61a3eac0c097 (patch) | |
tree | ca111e9049a1785bf8507161dce88a2233268760 /Master/tlpkg/dviout/GRAPHIC/PS | |
parent | d3a140feea19858912cc2de406e176ae8ce6c392 (diff) |
dviout moved to tlpkg/dviout; dviout.vbs changed accordingly.
git-svn-id: svn://tug.org/texlive/trunk@10733 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/dviout/GRAPHIC/PS')
-rw-r--r-- | Master/tlpkg/dviout/GRAPHIC/PS/epsfdoc.tex | 355 | ||||
-rwxr-xr-x | Master/tlpkg/dviout/GRAPHIC/PS/gssub.exe | bin | 0 -> 33724 bytes | |||
-rw-r--r-- | Master/tlpkg/dviout/GRAPHIC/PS/pssample.tex | 69 | ||||
-rw-r--r-- | Master/tlpkg/dviout/GRAPHIC/PS/sample0.ps | 9 | ||||
-rw-r--r-- | Master/tlpkg/dviout/GRAPHIC/PS/sample1.ps | 52 | ||||
-rw-r--r-- | Master/tlpkg/dviout/GRAPHIC/PS/sample2.ps | 9 | ||||
-rw-r--r-- | Master/tlpkg/dviout/GRAPHIC/PS/sample3.ps | 22 | ||||
-rw-r--r-- | Master/tlpkg/dviout/GRAPHIC/PS/starbrst.ps | 30 |
8 files changed, 546 insertions, 0 deletions
diff --git a/Master/tlpkg/dviout/GRAPHIC/PS/epsfdoc.tex b/Master/tlpkg/dviout/GRAPHIC/PS/epsfdoc.tex new file mode 100644 index 00000000000..58fa0b768e8 --- /dev/null +++ b/Master/tlpkg/dviout/GRAPHIC/PS/epsfdoc.tex @@ -0,0 +1,355 @@ +\documentclass[a4j]{jarticle} +\usepackage{graphicx, color} +\title{DVIOUTとGhostscript} +\author{内山 孝憲\thanks{慶応義塾大学理工学部物理情報工学科, Internet: uchiyama@thx.inst.keio.ac.jp}} +\date{平成10年4月4日} +\begin{document} +\maketitle +\section{はじめに} +\LaTeX{}では, graphics packageを利用することにより, +日本語ポストスクリプトプリンタでEncapsulated PostScriptファイル +(EPSF)\footnote{カプセル化されたPostScriptファイル, つまりそれ自身で自 +己完結しており, EPSFを差し込んでいるPostScriptのプログラムの他の部分に +影響を与えない. 「簡易」なPostScriptではない. EPSFについては, +http://www.adobe.com/supportservice/devrelations/technotes.html +の\#{}5002を参照されたい.} +の図を挿入した文書を印刷することが出来ます. +非ポストスクリプトプリンタでは, Ghostscriptを用いて印刷することが +しばしば行われています. また, 画面でのプレビューにもGhostscriptが +利用されます. しかし, GhostscriptはCPU負荷の大きいプログラムである +ため, プレビューのように頻繁に利用する場合にはパーソナルコンピュータの +ように計算速度や入出力速度が遅いマシンでは利用し難く感じられました. +また, GhostscriptやGhostscriptのフロントエンドであるGhostViewによるプ +レビュー・印刷は, dvipsを用いて予めdviファイルをポストスクリプトファ +イルに変換しなくてはなりません. + +X11用のプレビュアであるxdviやtexxには, +Ghostscriptを起動してEPSFの表示する機能があります. +これらと同様に, パソコン用のプレビュア・プリンタドライバとして +広く普及しているDVIOUTもGhostscriptの力を借りて +EPSFを取り込んだ\LaTeX{}の文書をプレビュー・印刷します. + +\section{実現方法} +MS-DOS版の仕様を踏襲し, +子プロセスでGhostscriptを起動し, 一度ビットイメージのファイルを生成し, +それを読み取ります. ビットイメージのファイルの +形式はPortable Bitmap(PBM, 白黒)とWindows標準の多色 +BMP\footnote{Ver.3.06からは, BMPに画像圧縮を施した独自のBMC形式に変換 +して用います.}です. + +\verb+\special+コマンド内のPostScriptコマンド処理部分はjdvi2kps, +dvi2ps-jおよびdvipsにほぼ互換性があります. +\verb+\special+コマンドをみつけると, \verb+\special+コマンドで指定されている +EPSFの拡張子をpbmあるいはbmpに置き換えたファイル名で, Ghostscriptによって +作成されたビットイメージのファイルを捜します. ビットイメージのファイルがなければGhostscriptを起動して作成します. +一度ビットイメージのファイルを作成すると +EPSF自体が変更されない, あるいは取り込みサイズが変更されない +限り, そのファイルを使います. +つまり, Ghostscriptの呼び出しを最小限に留めるように配慮されています. + + +\section{使用法} +graphics packageをあらかじめ入手し, 00readmeにしたがって, +\begin{verbatim} +latex graphics.ins +\end{verbatim} +を実行して, パッケージを展開します. + +次に, 中身が +\begin{verbatim} +\ExecuteOptions{dvips} +\end{verbatim} +だけのファイル, +color.cfgとgraphics.cfgをgraphics packageと同じディレクトリに置きます. + +Ghostscriptがパスの通ったディレクトリに +インストールされており, デバイスとしてpbmrawおよびbpm*が使用できること +が条件となります. + +\section{取り込み例} +\subsection{取り込みに使用するスタイル} +\verb+graphicx.sty+および\verb+graphics.sty+を使用することができます. +これらの2つのスタイルファイルでは, 図を差し込むときの大きさの指定方法 +など, コマンドの引数が異なっています. + +実際にいくつかEPSFを取り込んでみます. +ここでは\verb+graphicx.sty+を用います. + +\subsection{実際に取り込んだ絵} +図\ref{fig:golfer}は, Illustratorで作成されたゴルファーの +絵です. +しばしばポストスクリプトプリンタの印刷サンプルに +用いられます. +Ghostscriptの配布アーカイブに含まれています. +取込み時の指定は, 縦10cmにしました. + +\begin{figure}[!htbp] +\begin{center} +\includegraphics*[height=10cm]{golfer} +\end{center} +\caption{EPSFサンプル(golfer.ps)} +\label{fig:golfer} +\end{figure} + +図\ref{fig:tiger}もIllustratorによって作成された +虎の絵です. この絵もGhostscriptの配布アーカイブに含まれています. +取込み時のサイズを縦6cmにしました. + +\begin{figure}[!htbp] +\begin{center} +\includegraphics*[height=6cm]{tiger} +\end{center} +\caption{EPSFサンプル(tiger.ps)} +\label{fig:tiger} +\end{figure} + +\subsection{取り込みに使うコマンド} +\verb+graphicx.sty+を使っているので, +\begin{verbatim} +\begin{figure}[!htbp] +\begin{center} +\includegraphics*[height=6cm]{tiger} +\end{center} +\caption{EPSFサンプル(tiger.ps)} +\label{fig:tiger} +\end{figure} +\end{verbatim} +のように記述しています. + +\verb+graphics.sty+を使う場合には, +\begin{verbatim} +\begin{figure}[!htbp] +\begin{center} +\resizebox{!}{6cm}{\includegraphics{tiger}} +\end{center} +\caption{EPSFサンプル(tiger.ps)} +\label{fig:tiger} +\end{figure} +\end{verbatim} +のように記述します. + +\verb+\includegraphics+と\verb+\includegraphics*+では, +図を取り込むときの大きさの指定は, jdvi2kpsに添付されている +epsbox.styとほぼ互換があります. +このことは, + +\begin{verbatim} +\documentclass{jarticle} +\usepackage{epsbox} + : +\begin{figure}[htbp] +\begin{center} +\psbox[height=6cm]{keyboard.epsf} +\caption{Indyのキーボード} +\label{fig:keyboard} +\end{center} +\end{figure} +\end{verbatim} + +あるいは, + +\begin{verbatim} +\documentstyle[epsbox]{jarticle} + : +\begin{figure}[htbp] +\begin{center} +\psbox[height=6cm]{keyboard.epsf} +\caption{Indyのキーボード} +\label{fig:keyboard} +\end{center} +\end{figure} +\end{verbatim} + +と記述していた部分を + +\begin{verbatim} +\documentclass{jarticle} +\usepackage{graphicx} + : +\begin{figure}[htbp] +\begin{center} +\includegraphics*[height=6cm]{keyboard.epsf} +\caption{Indyのキーボード} +\label{fig:keyboard} +\end{center} +\end{figure} +\end{verbatim} + +と記述できる, つまり\verb+\psbox+を\verb+\includegraphics*+に置換すれ +ばよいことを意味します. + +図を差し込む位置を指定する\verb+!htbp+の\verb+!+は, +float環境の制限を緩くするp\LaTeXe の拡張機能です. + +\subsection{クリッピング} +\verb+\includegraphics*+は, BoundingBoxの値でクリッピングします. +一方, アステリスクのない\verb+\includegraphics+は, クリッピングしませ +ん. + +MS-WindowsのPostScriptプリンタのドライバでEPSFを作成すると, 用紙全体を +白で塗りつぶした後に図を描くPostScriptプログラムを生成します. +BoundingBoxの値は, 用紙サイズの矩形を描きますから, 正しい値です. +このEPSFを取り込んだものを, 日本語PostScriptプリンタに印刷すると, +用紙サイズの矩形を描いて白で塗りつぶすため, 手作業でBoundingBoxの値 +を修正しても, EPSFによって図のすぐ上の文章が消されてしまいます +\footnote{正しいBoundigBoxではないので, EPSFが正しくない.}. +これを回避するためには, アステリスクが付加されている +\verb+includegraphics*+を使用します. +\verb+includegraphics*+では, BoundingBoxでクリッピングされ, 正常に印刷 +されるようになります. + +なお, dvioutでは, 図や文字は重ね合あわせて描かれるのがデフォルトで, +クリッピングを指定しなかった場合は, BoundingBoxの上下左右それぞれ1 inch外 +側までの図が取り込まれます.\footnote{この部分は SHIMA による補足です.} + +\section{おわりに} +EPSFを処理するDVIOUTの機能は, 作者である大島氏により, 可能なかぎり +PostScriptプリンタにdvipsで印刷する場合と一致するように改良が続けられ +ていますが, 完全な互換性を提供するものではありません\footnote{この文書 +の著者は, Linux boxでこの文書を作成しており, MS-Windows版DVIOUTでの +EPSFの取り込みを実際に動作確認してはいません.}. +graphics packageの詳細については, grfguide.tex を参照してください. + +\section{SHIMAによる補足} +\subsection{dviout for Windowsでの制限} +dviout for Windows Ver.3.06 以降は, カラー画像の取り込みのほか, 文字 +列や画像に対して\verb+graphicx.sty+で定義されている回転, 色付け, 拡大 +縮小などの機能に対応していますが, 以下の制限があります. + +\begin{itemize} +\item カラー画像の回転は, PostScript画像の90度の整数倍の回転以外は無視され, +サポートされません. + +\item 文字列の回転とスケール変換, および, 90度の整数倍以外の画像の回転 +とPostScript以外の画像のスケール変換は, スムージングの処理を行っていません. +場合によっては結果が奇麗になりません. 但し, dviprt機能を使わないデフォルト +のモード(auto mode(p2))での印刷では, 回転あるいはスケール変換の一方のみを行った +文字列は(下記の例では, `High'の部分のみ両者が同時に使われている), +TrueTypeフォントを使う限り文字品質の劣化はありません. + +\item 取り込み画像は, その下に文字や画像があれば, それを残して描画されるのが +デフォルトですが, \verb+-gow:+ オプションをONにすると, 下のものを消し +て描かれます. このとき, EPSFは常にそのBoundingBoxでカットされます. 文字についてこれは, \verb+-cmode:+ をreplaceに設定するのに対応しています. + +\item \verb+\pagecolor+ の有効範囲は, それが定義されたページに限ります. + +\item {\tt gzip} で画像ファイルを圧縮したものも扱えます. たとえば +\begin{verbatim} +\includegraphics[height=10cm]{images/figure.ps.gz} +\end{verbatim} +ただしこのときは, {\tt gzip} あるいは, {\tt gunzip} が必要です. + +\item dviprt機能を使った印刷では, カラーに非対応で, さらに, LBPの内臓和文フォ +ントやダウンロードフォントを使った場合, スケール変換などにも非対応です. これら +のグラフィック機能を使う場合, Windowsのドライバを指定した印刷を行ってください. + +\item dviout for Windows のツールバーの File メニューからの BMP画像出力は, +カラー画像やgray scale画像の取り込み, および, カラーや白抜き文字に対応してい +ません. +\end{itemize} + +たとえば, + +\bigskip +\rotatebox{15}{15度回転}, \rotatebox[origin=c]{180}{180度回転}, +\scalebox{1}[.5]{Low}, \rotatebox[origin=c]{-15}{\scalebox{1}[2]{High}}, +\scalebox{1}[2]{\rotatebox[origin=c]{-15}{High}}, +\reflectbox{reflect} : reflect, +\scalebox{.46}[1]{石}+\scalebox{.64}[1]{皮}=% +\scalebox{.46}[1]{石}\hskip-.1zw\scalebox{.64}[1]{皮}=破, + +{\color{red}赤}, {\color{green}緑}, {\color{blue}青}, +\rotatebox[origin=c]{30}{\color{magenta}マゼンタ}, +\textcolor[rgb]{0.8,0.4,0.2}{茶色}, \textcolor[gray]{0.5}{灰色}, +\colorbox{black}{\color{white}白抜き}, +\rotatebox{15}{\fcolorbox{red}{yellow}{など}} +\bigskip + +のような結果を得るには, 次のようなコマンドを使います. + +\begin{verbatim} +\rotatebox{15}{15度回転}, \rotatebox[origin=c]{180}{180度回転}, +\scalebox{1}[.5]{Low},\rotatebox[origin=c]{-15}{\scalebox{1}[2]{High}}, +\scalebox{1}[2]{\rotatebox[origin=c]{-15}{High}}, +\reflectbox{reflect} : reflect, +\scalebox{.45}[1]{石}+\scalebox{.6}[1]{皮}=% +\scalebox{.45}[1]{石}\hskip-.1zw\scalebox{.6}[1]{皮}=破, + +{\color{red}赤}, {\color{green}緑}, {\color{blue}青}, +\rotatebox[origin=c]{30}{\color{magenta}マゼンタ}, +\textcolor[rgb]{0.8,0.4,0.2}{茶色}, \textcolor[gray]{0.6}{灰色}, +\colorbox{black}{\color{white}白抜き}, +\rotatebox{15}{\fcolorbox{red}{yellow}{など}} +\end{verbatim} + +\subsection{PostScript以外の各種画像ファイルの取り込み} +dviout for Windows Ver.3.08 以降では, EPSFのほかWindows標準のBMPや +Windows (Enhanced) Metafile (EMF/WMF), そのほかPBMの画像, さらに +DLL\footnote{Susieという画像表示プログラムのplug-inと呼ばれるDLLに +対応しています. JPEG/TIFF/PNG/PCD/PPM などをはじめとして多くのものが提供 +されています.}を用いた各種の画像ファイルの取り込みが可能です. + +\LaTeXe のgraphics packageからPostScript以外の画像ファイルを取り込むため +には dvips.def でなくて付属の dviout.def を用い, 縦横の画像のサイズ +を \verb+\includegraphics+ で指定してください. +このときは取り込み画像ファイルの拡張子を省略せずに,例えば次のように書き +ます. + +\begin{verbatim} +\documentclass{jarticle} +\usepackage[dviout]{graphicx} + : +\begin{figure} +\begin{center} +\includegraphics[width=6cm,height=4cm]{picture.bmp} +\caption{My picture} +\label{fig:picture} +\end{center} +\end{figure} +\end{verbatim} + +これにより(必要なら)スケール変換され, 指定したサイズで取り込まれますが, +クリッピングや, \verb+\resizebox+ によるサイズ変換はできません. + +なお, 付属の bmc.exe の \verb+-b+オプションで, たとえばコマンドラインから +\begin{verbatim} + bmc -b foo.jpg +\end{verbatim} +のようにして, 拡張子 \verb+.bb+ をもつファイル(この例では, +\verb+foo.bb+)を作成しておけば BoundingBox がそこに書かれているので, + 縦あるいは横のサイズの指定を省略できます. 縦横の一方のみ指定した場合は, +アスペクト比を保ったサイズ変換となります. + +縦横両方のサイズを省略するときは, \verb+-b=300+ のように出力ファイルの解 +像度を dpi の値で bmc.exe のオプションの \verb+-b=+ の後に指定し +て BoundingBox が書かれたファイルを作成しておくと, デフォルトではもと +の画像データがそのまま取り込まれます. + +上記の{\tt picture.bmp} の部分は, {\tt images/picture.bmp.gz} なども許され +ます. + +\begin{itemize} +\item +dviout for Windows 以外では, このような各種画像の取り込みはサポートさ +れていないと思われますので, dvipsなどのほかのDevice Driverを使う場合の +互換性にご注意ください. このPostScript以外の画像取り込みを除いて +dviout.def と dvips.def とは互換性がありますので, dvipsに対して dvips.def +の代わりに dviout.def を用いても支障ありません. + +\item +DVIファイルとそれが取り込む画像をまとめてUNIXのtar形式ファイルにしたものや, +付属の dviadd を使って一つのDVIファイルにしたもの(付属の sample.dvi がこの +例), あるいはそれらを gzip で圧縮したもの(よって, ファイル名の末尾は +{\tt .tar.gz} または {\tt .dvi.gz} となる)をdviout for Windowsは直接読むこ +とができます. +\end{itemize} + +\section{著作権に関する注意事項} +epsbox.styと組み合せて使用されるjdvi2kpsと整 +合性を保つために, jdvi2kpsのepsbox.c内の一部の関数をそのまま引用してい +ます. これについては, 松下電器産業(株)情報 +システム研究所に著作権がありますので, その取扱いについてはjdvi2kpsの +copyrightファイルに記された内容に従ってください. + + +\end{document} diff --git a/Master/tlpkg/dviout/GRAPHIC/PS/gssub.exe b/Master/tlpkg/dviout/GRAPHIC/PS/gssub.exe Binary files differnew file mode 100755 index 00000000000..f4cd83177eb --- /dev/null +++ b/Master/tlpkg/dviout/GRAPHIC/PS/gssub.exe diff --git a/Master/tlpkg/dviout/GRAPHIC/PS/pssample.tex b/Master/tlpkg/dviout/GRAPHIC/PS/pssample.tex new file mode 100644 index 00000000000..9484279683e --- /dev/null +++ b/Master/tlpkg/dviout/GRAPHIC/PS/pssample.tex @@ -0,0 +1,69 @@ +% Translate this file into a dvi file by LaTeX and execute dviout/prt by +% putting the following files in the directory where the dvi file exists. +% +% GhostScript should be in the search path. +% +% sample0.ps, sample1.ps, sample2.ps, sample3.ps, starbrst.ps +% myhyper.sty (myhyper.sty is contained in the package of dviout) +% tiger.ps, golfer.ps (tiger.ps, golfer.ps are contained in the package of +% GostScript) +% + +\documentstyle[a4, myhyper]{article} +\begin{document} + +\centerline{\Huge A samples : dviout/dviprt--PostScript figure} +\vskip .5cm + + +\hskip-.3cm\special{epsfile=sample0.ps vsize=4.2cm} +\vskip3cm + + +\vskip 1.5cm +\hskip 2cm +\special{epsfile=sample1.ps vsize=10cm} + + +\vskip 10cm + +\hskip.3cm\special{epsfile=sample2.ps vsize=5cm} +\vskip 5cm + +{\Large Click \href{file:..\..\sample\sample.dvi#graphic"}{here} to +jump to another file} +\vskip 5cm + +\pagebreak + +\centerline{\Huge ``% +\special{color push rgb 0 0 1}% +Golfer% +\special{color pop}% +" in Ghostscript +} + +\hskip 3.5cm +\special{epsfile=golfer.ps vsize=10cm} +\vskip 11cm + +\centerline{\Huge ``% +\special{color push rgb 0.8 0.4 0.2}% +Tiger% +\special{color pop}% +" lives in Ghostscript +} +\vskip 1.5cm + +\hskip3.6cm +\special{epsfile=tiger.ps hscale=0.4 vscale=0.36} +\pagebreak + + +\vskip 1cm +\hskip 1.5cm +\special{epsfile=sample3.ps vsize=17cm} + +\vskip 19cm +\centerline{\Large Modified by SHIMA from samples by Asayama, Mar.\ 1993} +\end{document} diff --git a/Master/tlpkg/dviout/GRAPHIC/PS/sample0.ps b/Master/tlpkg/dviout/GRAPHIC/PS/sample0.ps new file mode 100644 index 00000000000..78c5e74feb9 --- /dev/null +++ b/Master/tlpkg/dviout/GRAPHIC/PS/sample0.ps @@ -0,0 +1,9 @@ +%!PS-Adobe-3.0 EPSF-3.0
+%%BoundingBox: 50 8 670 195
+
+(starbrst.ps) run
+gsave
+/Courier-Bold findfont [ 80 0 0 200 0 0 ] makefont setfont
+50 50 moveto (dviout/dviprt) starburstshow
+grestore
+showpage
diff --git a/Master/tlpkg/dviout/GRAPHIC/PS/sample1.ps b/Master/tlpkg/dviout/GRAPHIC/PS/sample1.ps new file mode 100644 index 00000000000..f928f547328 --- /dev/null +++ b/Master/tlpkg/dviout/GRAPHIC/PS/sample1.ps @@ -0,0 +1,52 @@ +%!PS-Adobe-3.0 EPSF-3.0
+%%BoundingBox: 2 19 478 492
+
+/GNU {
+1 dict begin
+
+/R 1.0 def
+/NotUnix (GNU's not UNIX) def
+gsave
+1.2 1.2 rmoveto
+gsave
+/Courier findfont [ 0.7 0 0 0.8 0 0 ] makefont setfont
+(UNIX) dup stringwidth pop 2 div neg -0.25 rmoveto show
+grestore
+
+gsave
+0.2 setlinewidth
+1 0 0 setrgbcolor
+gsave
+currentpoint newpath R 0 370 arc stroke
+grestore
+gsave
+135 cos R mul 135 sin R mul rmoveto
+R 2 sqrt mul dup neg rlineto stroke
+grestore
+grestore
+
+gsave
+0 1 NotUnix length 1 sub {
+ gsave
+ dup 10 mul 65 sub /Rol exch def
+ /Courier findfont
+ [ 1 0 0 1 -0.3 0 ] makefont
+ [ Rol cos Rol sin neg Rol sin Rol cos 0 0 ] makefont
+ 0.25 scalefont setfont
+ Rol neg 90 add dup cos 1.15 mul exch sin 1.15 mul rmoveto
+ NotUnix exch 1 getinterval show
+ grestore
+} for
+grestore
+
+grestore
+end
+} def
+
+0 0 moveto
+gsave
+200 200 scale
+GNU
+grestore
+
+showpage
diff --git a/Master/tlpkg/dviout/GRAPHIC/PS/sample2.ps b/Master/tlpkg/dviout/GRAPHIC/PS/sample2.ps new file mode 100644 index 00000000000..de7341d17a9 --- /dev/null +++ b/Master/tlpkg/dviout/GRAPHIC/PS/sample2.ps @@ -0,0 +1,9 @@ +%!PS-Adobe-3.0 EPSF-3.0
+%%BoundingBox: 50 8 526 180
+
+(starbrst.ps) run
+gsave
+/Courier-Bold findfont [ 80 0 0 200 0 0 ] makefont setfont
+50 50 moveto (PostScript) starburstshow
+grestore
+showpage
diff --git a/Master/tlpkg/dviout/GRAPHIC/PS/sample3.ps b/Master/tlpkg/dviout/GRAPHIC/PS/sample3.ps new file mode 100644 index 00000000000..7ea6e0bfb44 --- /dev/null +++ b/Master/tlpkg/dviout/GRAPHIC/PS/sample3.ps @@ -0,0 +1,22 @@ +%!PS-Adobe-2.0 EPSF-1.2 +%%BoundingBox: 20 2 520 760
+
+gsave
+newpath
+/Courier-Bold findfont [ 320 0 0 800 0 0 ] makefont setfont
+matrix currentmatrix
+500 0 translate 90 rotate
+0 0 moveto (EPSF) true charpath clip
+setmatrix
+1 dict begin
+/showpage {} def
+gsave
+newpath
+1.2 1.2 scale
+-90 -50 translate
+(golfer.ps) runlibfile
+grestore
+end
+5 setlinewidth stroke
+grestore
+showpage
diff --git a/Master/tlpkg/dviout/GRAPHIC/PS/starbrst.ps b/Master/tlpkg/dviout/GRAPHIC/PS/starbrst.ps new file mode 100644 index 00000000000..a2665e94cdd --- /dev/null +++ b/Master/tlpkg/dviout/GRAPHIC/PS/starbrst.ps @@ -0,0 +1,30 @@ +userdict begin
+% Usage : -- starburstfill --
+% Fill current path with "Star Burst"
+/starburstfill {
+10 dict begin
+ pathbbox /uy exch def /ux exch def /ly exch def /lx exch def
+ ux lx sub /xs exch def xs dup mul
+ uy ly sub /ys exch def ys dup mul
+ add sqrt /R exch def
+ clip
+ newpath
+ lx xs 2 div add /xx exch def
+ ly ys 2 div add /yy exch def
+ 0 2 359.9 {
+ xx yy moveto
+ dup cos R mul exch sin R mul rlineto
+ } for
+ stroke
+end
+} bind def
+
+% Usage : <strings> starburstshow --
+/starburstshow {
+2 dict begin
+ dup stringwidth /yw exch def /xw exch def gsave
+ currentpoint newpath moveto
+ false charpath starburstfill grestore xw yw rmoveto
+end
+} bind def
+end
|