2 PostScript PostScript (token) 437 == 437 == PostScript PostScript 437 == PostScript (operator) 437 == == ==

Similar documents

gs-cjk project gs: Ghostscript PostScript/PDF AFPL Ghostscript GNU Ghostscript c: Chinese j: Japanese k: Korean gs-cjk: A


コンピュータグラフィックス - 第4回 色彩の表現

パズルをSugar制約ソルバーで解く

G-XML

r7.dvi

Jlspec

( )$("canvas").drawarc({strokestyle:"red", x:100, y:100, radius:20, start:0, end:360); drawline(x1:, y1:,... xn:, yn:) drawline n 2 n 3 x1: y1: xn: yn

コンパイラ

Copyright c 2008 Zhenjiang Hu, All Right Reserved.

橡ボーダーライン.PDF

1.1. jquery 1 jquery jcanvas javascript jquery JavaScript jquery $() JavaScript JavaScript jquery Googlr Chrome Eddge(Enternet Explorer) Web Web jquer

課題

6 Tgif William Chia-Wei Chang tgif 3.0 pixmap URL Tgif 6.1: Tgif

2.8 Windows PostScript Ghostscript CJK 22 4 CJK gs-cjk CJK CJK CJK..

第4回「文書清書システム」

2 1 Web Java Android Java 1.2 6) Java Java 7) 6) Java Java (Swing, JavaFX) (JDBC) 7) OS 1.3 Java Java

(CC Attribution) Lisp 2.1 (Gauche )

掲示用ヒート表 第34回 藤沢市長杯 2017

2


ProVisionaire Control V3.0セットアップガイド

from tkinter import * root = Tk() # variable teban = IntVar() teban.set(1) # def start(): canvas.create_rectangle(0, 0, 560, 560, fill= white ) for k

★結果★ 藤沢市長杯 掲示用ヒート表

16 NanoPlanner name PlanItem.changeset/2 > validate_required([:name]) name :name Ecto.Changeset validate_required/3 Ecto.Changeset "validate_"

StarLogoテキスト(4匹).PDF

簡易入力システム(よくある質問集)

課題

橡Pascal-Tの挙動を調べる

10K pdf


REALV5_A4…p_Ł\1_4A_OCF

untitled

「都市から地方への人材誘致・移住促進に関する調査」

<91498EE88CA D815B2E786C73>

〔 大 会 役 員 〕

橡本体資料+参考条文.PDF

Lecture on

SVG資料第6回目(その3) SVGとHTMLの間でデータを交換する

f(x) x S (optimal solution) f(x ) (optimal value) f(x) (1) 3 GLPK glpsol -m -d -m glpsol -h -m -d -o -y --simplex ( ) --interior --min --max --check -

第5章 システム内部設計                            

Python2 Python3 Python 2.7 Python 3.6 Python2 Python3 Python 2.7 Python3.6 Python Python Anaconda Python Anaconda Python


( ) P, P P, P (negation, NOT) P ( ) P, Q, P Q, P Q 3, P Q (logical product, AND) P Q ( ) P, Q, P Q, P Q, P Q (logical sum, OR) P Q ( ) P, Q, P Q, ( P

BRADY Worldwide, Inc. BRADY BRADY BRADY BMP 51 BRADY Worldwide, Inc. Microsoft Windows Microsoft BRADY 2011 BRADY Worldwide, Inc. All Rights Reserved

スライド 1

1.1. jquery 1 jquery jcanvas jquery javascript jquery JavaScript jquery $() JavaScript JavaScript jquery Googlr Chrome Eddge(Enternet Explorer) Web jq

TM-m30 詳細取扱説明書


11.noise.rtfd

all.dvi

untitled

netcdf

1. A0 A B A0 A : A1,...,A5 B : B1,...,B

課題

untitled

TM-m30 詳細取扱説明書

BASICとVisual Basic

ohp1.dvi

1.1. jquery 1 jquery jcanvas jquery javascript jquery JavaScript jquery $() JavaScript JavaScript jquery Googlr Chrome Eddge(Enternet Explorer) Web jq


SCM (v0201) ( ) SCM 2 SCM 3 SCM SCM 2.1 SCM SCM SCM (1) MS-DOS (2) Microsoft(R) Windows 95 (C)Copyright Microsoft Corp

2005 D Pascal CASL ( ) Pascal C 3. A A Pascal TA TA TA

2 VRML VRML.wrl VRML VRML VRML VRML Cosmo Software Cosmo Player VRML 1.4 VRML (header) (statement) VRML V2.0 VRML utf8 VRML

第32回新春波乗り大会2018

TM-m30 詳細取扱説明書

UbiquitousMetadata活用-3

Sokushu2_perl

Python Speed Learning

Kaplan-Meierプロットに付加情報を追加するマクロの作成

ohp07.dvi


(Basic Theory of Information Processing) Fortran Fortan Fortan Fortan 1

unix15-script2_09.key

JavaScript の使い方

GraphicsWithPlotFull.nb Plot[{( 1), ( ),...}, {( ), ( ), ( )}] Plot Plot Cos x Sin x, x, 5 Π, 5 Π, AxesLabel x, y x 1 Plot AxesLabel

1 シミュレーションとは何か?

5 LATEX 2ε 2010

listings-ext

B Simon (Trump ) SimonU.pas SimonP.dpr Name FormSimon Caption Position podesktopcenter uses Windows, Messages, SysUtils,

WelcomeToPS_Finish

橡点検記録(集約).PDF

11 Bootstrap Font Awesome $ cd ~/projects/modest_greeter $ npm install --save jquery popper.js tether --save package.json depen

Microsoft PowerPoint - IntroAlgDs-05-5.ppt

レポートでのデータのフィルタ


…l…b…g…‘†[…N…v…“…O…›…~…fi…OfiÁŸ_

3 SIMPLE ver 3.2: SIMPLE (SIxteen-bit MicroProcessor for Laboratory Experiment) 1 16 SIMPLE SIMPLE 2 SIMPLE 2.1 SIMPLE (main memo

プログラミングD - Java

新しいイテレーション型開発

web06.dvi

haskell.gby

<B54CB5684E31A4E9C0CBA4E5AA6BC160BEE3B27AA544A5552E706466>

Parametric Polymorphism

6 (1) app.html.eex 28 lib/nano_planner_web/templates/layout/app.html.eex 27 <footer> Oiax Inc <%= this_year() %> Oiax Inc. 29 </footer>

ruby novice ruby novice ruby novice.

å‰Łçı—訋çfl»æ³Łã†¨ã…Łã‡£ã…œã…−ã……ã…†æŁ°, ㆚ㆮ2æ¬¡è©Łä¾¡å‹ƒå›²ã•† ㅋㅪㅜã…−ã……ã…†æŁ°å‹Šã†«ã‡‹ã‡‰é•£ã†®ç¢ºç”⁄訋箊

レポートのデータへのフィルタの適用

<4D F736F F D B B83578B6594BB2D834A836F815B82D082C88C60202E646F63>

Transcription:

PostScript version 1.03 2003 1 24 Copyright c 2000 2003 Daikoku Manabu 1 PostScript 1.1 PostScript PostScript PostScript (page description language) PostScript Adobe Systems Incorporated PostScript PostScript C Pascal Lisp Ruby 1.2 Ghostscript (language precessor) (compiler) (interpreter) PostScript PostScript Ghostscript Linux Ghostscript gs Ghostscript GS> PostScript 437 == 437 Ghostscript quit 1.3 PostScript (stack) (push) (pop)

2 PostScript PostScript (token) 437 == 437 == PostScript PostScript 437 == 47 81-53 6.027 47 81-53 6.027 1.4 PostScript (operator) 437 == == == 1 437 == == 437 pstack == == pstack -603 291 522 433 pstack pstack 1.5 PostScript (arithmetic operator) add 2

PostScript 3 a b add a b sub a b mul a b div a b idiv a b mod a neg a b a b a b a b a b a b a 1: 25 43 25 43 add add 43 25 (68) == 25 43 add == 25 43 68 1 a b a b 31 27 sub 100 mul neg == 31 27 (4) 100 (400) ( 400) 1.6 PostScript (stack operator) clear pop exch 2 n j roll n j j j dup n copy n n index n 0

4 PostScript 1.7 PostScript PostScript PostScript output.ps PostScript.ps 437 == ( ) run (output.ps) run output.ps 2 2.1 PostScript PostScript (path) 2 (current path) stroke stroke stroke (current page) PostScript (1) (2) (3) stroke (4)

PostScript 5 2.2 PostScript x y PostScript x y x y PostScript (current point) moveto moveto x y moveto 2 x x y y (point) 1 72 1 0.35 200 300 moveto (200,300) lineto lineto y x (x, y) (x, y) 400 500 lineto (400,500) (400,500) lineto.ps 100 200 moveto 400 200 lineto 250 400 lineto stroke moveto moveto batsu1.ps 100 200 moveto 200 300 lineto 100 300 moveto 200 200 lineto stroke 2.3

6 PostScript moveto lineto rmoveto rlineto x y rmoveto x y x y rlineto x y batsu2.ps 100 200 moveto 100 100 rlineto -100 0 rmoveto 100-100 rlineto stroke rmoveto rmoveto 2.4 stroke 1 setlinewidth setlinewidth 1 shikaku.ps 200 200 moveto 200 0 rlineto 0 200 rlineto -200 0 rlineto 0-200 rlineto 70 setlinewidth stroke lineto rlineto closepath close.ps 200 200 moveto 200 0 rlineto 0 200 rlineto -200 0 rlineto closepath 70 setlinewidth stroke

PostScript 7 2.5 stroke setrgbcolor setrgbcolor 3 setrgbcolor color.ps 30 setlinewidth 100 660 moveto 400 0 rlineto 1 0 0 setrgbcolor stroke 100 620 moveto 400 0 rlineto 0 1 0 setrgbcolor stroke 100 580 moveto 400 0 rlineto 0 0 1 setrgbcolor stroke 100 540 moveto 400 0 rlineto 1 1 0 setrgbcolor stroke 100 500 moveto 400 0 rlineto 0 1 1 setrgbcolor stroke 100 460 moveto 400 0 rlineto 1 0 1 setrgbcolor stroke 100 420 moveto 400 0 rlineto 0 0.5 1 setrgbcolor stroke 100 380 moveto 400 0 rlineto 1 0.5 0 setrgbcolor stroke 100 340 moveto 400 0 rlineto 0.5 0.5 1 setrgbcolor stroke 100 300 moveto 400 0 rlineto 1 0.5 0.5 setrgbcolor stroke 100 260 moveto 400 0 rlineto 0.5 0 0 setrgbcolor stroke 100 220 moveto 400 0 rlineto 0 0.5 0 setrgbcolor stroke 100 180 moveto 400 0 rlineto 0 0 0.5 setrgbcolor stroke 100 140 moveto 400 0 rlineto 0.6 0.6 0.6 setrgbcolor stroke 100 100 moveto 400 0 rlineto 0.9 0.9 0.9 setrgbcolor stroke 2.6 (line cap) (batt) (round) (projecting square) 3 setlinecap 0 1 2 setlinecap 0 1 2 0 cap.ps 70 setlinewidth 0.5 1 1 setrgbcolor 150 400 moveto 450 400 lineto 0 setlinecap stroke 150 300 moveto 450 300 lineto 1 setlinecap stroke 150 200 moveto 450 200 lineto 2 setlinecap stroke 150 400 moveto 450 400 lineto 150 300 moveto 450 300 lineto 150 200 moveto 450 200 lineto 1 setlinewidth 1 0 0 setrgbcolor 0 setlinecap stroke 2.7 2 (line join) (miter) (round) (bevel) 3 setlinejoin 0 1 2 setlinecap

8 PostScript 0 1 2 0 join.ps 70 setlinewidth 0.5 1 1 setrgbcolor 150 600 moveto 400 600 lineto 300 700 lineto 0 setlinejoin stroke 150 400 moveto 400 400 lineto 300 500 lineto 1 setlinejoin stroke 150 200 moveto 400 200 lineto 300 300 lineto 2 setlinejoin stroke 150 600 moveto 400 600 lineto 300 700 lineto 150 400 moveto 400 400 lineto 300 500 lineto 150 200 moveto 400 200 lineto 300 300 lineto 1 setlinewidth 1 0 0 setrgbcolor 0 setlinecap stroke 2.8 (pattern) [... ] [30 20] 30 20 [50 10 20 10] (offset) 20 20 setdash 40 20 0 [40 20] 0 setdash dash.ps 5 setlinewidth 0 0 1 setrgbcolor 100 600 moveto 400 0 rlineto [30 20] 0 setdash stroke 100 500 moveto 400 0 rlineto [30 20] 20 setdash stroke 100 400 moveto 400 0 rlineto [50 10 20 10] 0 setdash stroke 100 300 moveto 400 0 rlineto [30] 0 setdash stroke 100 200 moveto 400 0 rlineto [30 20 10] 0 setdash stroke 100 100 moveto 400 0 rlineto [] 0 setdash stroke roudash.ps

PostScript 9 100 100 moveto 400 0 rlineto -200 500 rlineto closepath 40 setlinewidth 0 0 1 setrgbcolor [120 50] 0 setdash 1 setlinecap 1 setlinejoin stroke 3 3.1 2 arc arcn arc arcn arc arcn arc arcn 5 x y 0 200 300 100 45 315 arc (200,300) 100 45 315 arc.ps 20 setlinewidth 300 400 100 0 225 arc stroke 300 200 100 0 225 arcn stroke arc arcn arc arcn kofun.ps 20 setlinewidth 100 100 moveto 200 0 rlineto 200 350 100 315 225 arc closepath stroke 3.2

10 PostScript arcto arcto 5 x y x y 400 300 200 150 100 arcto (400,300) (400,300) (200,150) 100 arcto arcto arcto pop 4 arcto.ps 100 100 moveto 500 600 100 600 140 arcto pop pop pop pop 20 setlinewidth 0.5 1 0.5 setrgbcolor stroke 100 100 moveto 500 600 lineto 100 600 lineto 2 setlinewidth 0 0 0.5 setrgbcolor stroke 4 4.1 PostScript (Bézier curve) (control point) 4 4 1 2 3 4 1 1 2 3 4 4 curveto curveto 6 6 2 x y 3 x y 4 x y 1 1 curveto 4 bezier.ps 140 400 moveto 100 600 500 700 300 400 curveto 40 setlinewidth 0.5 1 1 setrgbcolor stroke 140 400 moveto

PostScript 11 100 600 lineto 500 700 moveto 300 400 lineto 1 setlinewidth 1 0 0 setrgbcolor stroke 140 100 moveto 100 300 300 100 500 400 curveto 40 setlinewidth 0.5 1 1 setrgbcolor stroke 140 100 moveto 100 300 lineto 300 100 moveto 500 400 lineto 1 setlinewidth 1 0 0 setrgbcolor stroke 4.2 1 3 2 2 3 1 1 2 bezbez.ps 140 600 moveto 100 700 350 700 250 600 curveto 300 500 500 400 400 600 curveto 20 setlinewidth 0.6 1 0.6 setrgbcolor stroke 140 600 moveto 100 700 lineto 350 700 moveto 250 600 lineto 1 setlinewidth 1 0 0 setrgbcolor stroke 250 600 moveto 300 500 lineto 500 400 moveto 400 600 lineto 0 0 1 setrgbcolor stroke 140 300 moveto 100 400 350 400 250 300 curveto 100 150 500 100 400 300 curveto 20 setlinewidth 0.6 1 0.6 setrgbcolor stroke 140 300 moveto 100 400 lineto 350 400 moveto 250 300 lineto 1 setlinewidth 1 0 0 setrgbcolor stroke 250 300 moveto 100 150 lineto 500 100 moveto 400 300 lineto 0 0 1 setrgbcolor stroke

12 PostScript 5 5.1 stroke stroke fill fill stroke fill fill stroke setrgbcolor fill stroke fill.ps 0.5 0.8 0 setrgbcolor 200 100 moveto 200 0 rlineto 0 100 rlineto -100 100 rlineto fill 300 500 100 90 360 arc fill 5.2 fill stroke gsave gsave (graphics state) gsave grestore grestore (graphics state stack) gsave grestore gsave.ps 10 setlinewidth 200 100 moveto 200 0 rlineto 0 100 rlineto

PostScript 13-100 100 rlineto 0.6 1 0.6 setrgbcolor gsave fill grestore 0 0 0.8 setrgbcolor stroke 300 500 100 90 360 arc 0.6 0.6 1 setrgbcolor gsave fill grestore 0.6 0.4 0 setrgbcolor stroke 5.3 (winding rule) (even-odd rule) 2 fill PostScript fill eofill eofill eofill.ps 0 0.5 1 setrgbcolor 200 300 moveto 100 0 rlineto 0 100 rlineto -100 0 rlineto 180 320 moveto 100 0 rlineto 0 100 rlineto -100 0 rlineto 220 340 moveto 100 0 rlineto 0 100 rlineto -100 0 rlineto fill 200 100 moveto 100 0 rlineto 0 100 rlineto -100 0 rlineto 180 120 moveto 100 0 rlineto 0 100 rlineto -100 0 rlineto 220 140 moveto 100 0 rlineto 0 100 rlineto -100 0 rlineto eofill

14 PostScript 6 6.1 (text) PostScript ( ) (The Art of PostScript Programming) (character code) PostScript < 16... > 16 16 <49 20 6c 6f 76 65 20 79 6f 75 2e> 16 PostScript 16 1 PostScript 6.2 PostScript Sakuranomiya text.ps 0 0.6 0.4 setrgbcolor /Times-Roman findfont 64 scalefont setfont 100 600 moveto (Sakuranomiya) show show show show show moveto rmoveto show 16 Hotarugaike

PostScript 15 chacode.ps 0.4 0 0.6 setrgbcolor /Times-Roman findfont 64 scalefont setfont 100 600 moveto <48 6f 74 61 72 75 67 61 69 6b 65> show 6.3 (font) PostScript (font dictionary) PostScript Times-Roman Helvetica Courier Symbol findfont findfont findfont (name) PostScript PostScript ( / ) /Times-Roman PostScript font.ps 0.6 0 0.4 setrgbcolor /Times-Roman findfont 64 scalefont setfont 100 600 moveto (Kawaramachi) show /Helvetica findfont 64 scalefont setfont 100 500 moveto (Takarazuka) show /Courier findfont 64 scalefont setfont 100 400 moveto (Shinkaichi) show /Symbol findfont 64 scalefont setfont 100 300 moveto (Kitasenri) show 6.4 PostScript Ryumin-Light-83pv-RKSJ-H GothicBBB-Medium-83pv-RKSJ-H

16 PostScript 16 nihongo.ps 0 0.6 0.8 setrgbcolor /Ryumin-Light-83pv-RKSJ-H findfont 64 scalefont setfont 100 600 moveto <90bc 9286 9387 93ec 95fb> show /GothicBBB-Medium-83pv-RKSJ-H findfont 64 scalefont setfont 100 400 moveto <91be 8e71 8bb4 8da1 8e73> show 6.5 1 1 scalefont scalefont scalefont scafont.ps 1 0 0.6 setrgbcolor /Times-Roman findfont 24 scalefont setfont 100 600 moveto (Kawanishinoseguchi) show /Times-Roman findfont 36 scalefont setfont 100 510 moveto (Kawanishinoseguchi) show /Times-Roman findfont 50 scalefont setfont 100 400 moveto (Kawanishinoseguchi) show 6.6 (current font) setfont setfont (1) findfont (2) scalefont (3) setfont

PostScript 17 6.7 show fill stroke charpath 1 1 charpath charpath (boolean) (true) (false) PostScript true false charpath 1 (outline font) charpath charpath.ps /Times-Roman findfont 140 scalefont setfont 0 0.4 0.8 setrgbcolor 100 500 moveto (Tenma) false charpath fill /Ryumin-Light-83pv-RKSJ-H findfont 200 scalefont setfont 100 250 moveto <9356 969e> false charpath 0.8 0.4 0 setrgbcolor fill show charpath outline.ps /Helvetica findfont 120 scalefont setfont 0 0.6 0.4 setrgbcolor 3 setlinewidth 100 500 moveto (Umeda) false charpath stroke /GothicBBB-Medium-83pv-RKSJ-H findfont 200 scalefont setfont 100 250 moveto <947e 9363> false charpath gsave 0 0 0.6 setrgbcolor 10 setlinewidth stroke grestore

18 PostScript 0.8 1 0.6 setrgbcolor fill 7 7.1 PostScript PostScript PostScript namako isoginchaku umiushi843 602kurage $@_+*-#! 4701 5.08 38e9 PostScript ( / ) /namako /isoginchaku /umiushi843 /602kurage /$@_+*-#! PostScript 7.2 (variable) (define) def /namako 3804 def namako 3804 def def 3804 namako namako == 3804 def.ps /length 200 def 100 100 moveto length 0 rlineto 0 length rlineto length neg 0 rlineto closepath 30 setlinewidth 0.2 0.8 0.6 setrgbcolor stroke

PostScript 19 7.3 (executable array) { 41 53 add 27 24 sub mul == } PostScript exec exec exec { 1234 == } exec exec 1234 7.4 (procedure) PostScript /nanasen { 7000 == nanasen nanasen 7000 procedu.ps /square { 100 100 moveto length 0 rlineto 0 length rlineto length neg 0 rlineto closepath /length 200 def square 30 setlinewidth 0.4 0.4 0.8 setrgbcolor stroke /sanbai { 3 mul sanbai sanbai 1 3

20 PostScript 400 sanbai == 1200 argume.ps /square { moveto length 0 rlineto 0 length rlineto length neg 0 rlineto closepath /length 200 def 100 100 square 230 240 square 320 380 square 180 500 square 30 setlinewidth 0 0.6 0.8 setrgbcolor stroke 7.5 PostScript (dictionary) (key) (value) PostScript (dictionary stack) PostScript (operand stack) PostScript def (current dictionary) userdict globaldict systemdict 7.6 PostScript userdict def userdict userdict

PostScript 21 userdict dict dict 1 3 dict 3 dict dict 3 dict dict begin 3 dict begin dict begin PostScript /momo 8008 def momo momo == 8008 userdict 1 dict begin /momo 7117 def momo == 7117 momo == 8008 local.ps /rect { 2 dict begin /x 300 def /y 350 def moveto x 0 rlineto 0 y rlineto

22 PostScript x neg 0 rlineto closepath /x 100 def /y 200 def x y rect x 20 add y 30 add rect x 40 add y 60 add rect x 60 add y 90 add rect x 80 add y 120 add rect 10 setlinewidth 0.6 0.8 0 setrgbcolor stroke def def exch def exch /kaki exch def kaki exch.ps /rect { 2 dict begin /height exch def /width exch def moveto width 0 rlineto 0 height rlineto width neg 0 rlineto closepath 100 200 400 50 rect 300 100 100 400 rect 200 400 250 300 rect 150 350 100 100 rect 250 550 250 50 rect 20 setlinewidth 0.4 0.8 0.6 setrgbcolor stroke 8 8.1 x y

PostScript 23 (transformation) gsave grestore gsave grestore 8.2 PostScript translate translate tx ty translate 2 tx x ty y 40 20 translate translate translate x 40 y 20 trans.ps /square { 1 dict begin /length 200 def 0 0 moveto length 0 rlineto 0 length rlineto length neg 0 rlineto closepath stroke /transsquare { gsave translate square grestore 10 setlinewidth 1 0.4 0.4 setrgbcolor 0 0 transsquare 80 120 transsquare 250 400 transsquare 8.3 PostScript x y scale scale sx sy scale

24 PostScript 2 sx x sy y 1.4 0.8 scale scale scale x 1.4 y 0.8 scale.ps /transscalearc { gsave translate scale 0 0 100 0 360 arc stroke grestore 10 setlinewidth 0 0.6 0.6 setrgbcolor 1 1 200 200 transscalearc 2.2 0.4 300 500 transscalearc 0.6 3 400 400 transscalearc 8.4 PostScript rotate rotate 1 30 rotate rotate rotate 30 rotate.ps /transrotatetext { gsave translate rotate 0 0 moveto (Shigisanguchi) show grestore /Times-Roman findfont 64 scalefont setfont 0 0.6 0.4 setrgbcolor 0 100 100 transrotatetext 30 140 190 transrotatetext -30 120 370 transrotatetext 180 460 480 transrotatetext

PostScript 25 a b eq a b ne a b gt a b lt a b ge a b le a b (equal) a b (not equal) a b (greater than) a b (less than) a b (greater equal) a b (less equal) 2: a b and a b or a b xor a not a b a b a b a 3: 9 9.1 2 (relational operator) 2 6 PostScript 8 5 gt == true 5 8 gt == false 9.2 (logical operator) 3 4 PostScript 5 8 le 7 7 eq and == true 5 8 le 7 4 eq and == false 9.3 PostScript if

26 PostScript if if if true PostScript 4 7 le { 5858 == } if 5858 7 4 le { 5858 == } if if.ps /rectwitharc { 4 dict begin /height exch def /width exch def /y exch def /x exch def x y moveto width 0 rlineto 0 height rlineto width neg 0 rlineto closepath width height eq { 3 dict begin /half width 2 div def /centerx x half add def /centery y half add def width 0 rmoveto 0 half rmoveto centerx centery half 0 360 arc } if 100 100 400 100 rectwitharc 300 250 200 200 rectwitharc 100 250 150 400 rectwitharc 300 500 150 150 rectwitharc 10 setlinewidth 0.4 0.2 0.8 setrgbcolor stroke if ifelse ifelse ifelse 2 ifelse ifelse 2 true false PostScript 3 3 eq { 7447 == } { 1818 == } ifelse 7447 3 5 eq { 7447 == } { 1818 == } ifelse 1818 ifelse.ps

PostScript 27 /pairofrect { 2 dict begin /height exch def /width exch def moveto width 0 rlineto 0 height rlineto width neg 0 rlineto closepath width height gt { width 2 div 0 rmoveto 0 height rlineto } { 0 height 2 div rmoveto width 0 rlineto } ifelse 100 100 250 150 pairofrect 400 100 100 450 pairofrect 100 300 150 250 pairofrect 100 600 400 100 pairofrect 20 setlinewidth 1 0.4 0 setrgbcolor stroke 10 10.1 1 repeat repeat repeat PostScript 7 { 4321 == } repeat 7 4321 repeat.ps /y 120 def 12 { 100 y moveto 400 0 rlineto /y y 50 add def } repeat 30 setlinewidth 0.4 0.6 0 setrgbcolor stroke /y y 50 add def def def

28 PostScript def 10.2 repeat for for for 3 for 3 for 1 2 3 PostScript 100 15 200 { == } for 100 115 130 145 160 175 190 400-30 200 { == } for 400 370 340 310 280 250 220 for.ps 120 50 670 { 100 exch moveto 400 0 rlineto } for 30 setlinewidth 0.8 0 0.4 setrgbcolor stroke 10.3 horizontalsequence x horiseq.ps /circle { 1 dict begin /radius exch def 0 0 radius 0 360 arc fill /square { 1 dict begin /length exch def 0 0 moveto

PostScript 29 length 0 rlineto 0 length rlineto length neg 0 rlineto fill /horizontalsequence { 5 dict begin /proc exch def /times exch def /step exch def /y exch def /x exch def times { gsave x y translate proc grestore /x x step add def } repeat 0.6 0.8 0 setrgbcolor 100 520 25 16 { 10 circle } horizontalsequence 120 400 60 7 { 40 circle } horizontalsequence 100 260 16 24 { 10 square } horizontalsequence 100 100 80 5 { 70 square } horizontalsequence changecolorsequence y chcolor.ps /hline { 0 0 moveto 0 rlineto stroke /changecolorsequence { 14 dict begin /proc exch def /blue exch def /green exch def /red exch def /blue exch def /green exch def /red exch def /times exch def /step exch def /y exch def /x exch def /stepblue blue blue sub times div def /stepgreen green green sub times div def /stepred red red sub times div def times { gsave x y translate red green blue setrgbcolor

30 PostScript proc grestore /blue blue stepblue add def /green green stepgreen add def /red red stepred add def /y y step add def } repeat 20 setlinewidth 100 100 27 22 0.6 1 0 0 0.6 1 { 400 hline } changecolorsequence matrix x y 2 matrix.ps /ellipse { 4 dict begin /theta exch def /sy exch def /sx exch def /radius exch def gsave theta rotate sx sy scale 0 0 radius 0 360 arc fill grestore /matrix { 8 dict begin /proc exch def /timesy exch def /timesx exch def /stepy exch def /stepx exch def /y exch def /x exch def timesy { /xx x def timesx { gsave xx y translate proc grestore /xx xx stepx add def } repeat /y y stepy add def } repeat 0.8 1 0.4 setrgbcolor 0 0 50 38 14 24 { 30 1 0.5 30 ellipse } matrix 0 0 0.6 setrgbcolor 120 300 18 22 20 14 { 10 1 0.4-60 ellipse } matrix

PostScript 31 circlesequence circle.ps /circle { 1 dict begin /radius exch def 0 0 radius 0 360 arc fill /square { 1 dict begin /length exch def 0 0 moveto length 0 rlineto 0 length rlineto length neg 0 rlineto fill /triangle { 2 dict begin /height exch def /base exch def 0 0 moveto base 0 rlineto base 2 div neg height rlineto fill /circlesequence { 6 dict begin /proc exch def /times exch def /steptheta exch def /radius exch def /y exch def /x exch def gsave x y translate times { gsave radius 0 translate proc grestore steptheta rotate } repeat grestore 0 0.8 0.6 setrgbcolor 300 450 160 22 14 { 20 circle } circlesequence 0.6 0.4 1 setrgbcolor 300 200 220 16 10 { 40 square } circlesequence

32 PostScript 1 0.8 0 setrgbcolor 300 450 200 10 32 { 40 24 triangle } circlesequence changecolorswirl swirl.ps /circle { 1 dict begin /radius exch def 0 0 radius 0 360 arc fill /changecolorswirl { 16 dict begin /proc exch def /blue exch def /green exch def /red exch def /blue exch def /green exch def /red exch def /times exch def /steptheta exch def /stepradius exch def /radius exch def /y exch def /x exch def /stepblue blue blue sub times div def /stepgreen green green sub times div def /stepred red red sub times div def gsave x y translate times { gsave radius 0 translate red green blue setrgbcolor proc grestore /blue blue stepblue add def /green green stepgreen add def /red red stepred add def /radius radius stepradius add def steptheta rotate } repeat grestore 280 360 300-3 22 84 0.6 0 0 1 0.8 1 { 50 circle } changecolorswirl