From e8ca38d113faecd2ce71fef0cea8f17c1a5ffe4a Mon Sep 17 00:00:00 2001
From: Airsleep <green3438@gmail.com>
Date: Mon, 28 Mar 2022 13:15:21 +0900
Subject: [PATCH] =?UTF-8?q?3=EC=9B=94=2028=EC=9D=BC=20=EC=8B=A4=EC=8A=B5?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
PostScript1/box - loop.ps | 52 +++++++++++++++++++++++++++++++++++++++
1 file changed, 52 insertions(+)
create mode 100644 PostScript1/box - loop.ps
diff --git a/PostScript1/box - loop.ps b/PostScript1/box - loop.ps
new file mode 100644
index 0000000..d5ffd47
--- /dev/null
+++ b/PostScript1/box - loop.ps
@@ -0,0 +1,52 @@
+%!
+% Box Drawing Program
+
+/box {
+0 0 moveto
+100 0 lineto
+100 100 lineto
+0 100 lineto
+0 0 lineto
+stroke
+} def
+
+200 200 translate
+
+0 10 300
+ { dup 150 ne
+ { gsave rotate 100 0 translate box grestore }
+ { gsave rotate 100 0 translate 1 0 0 setrgbcolor box grestore }
+ifelse } for
+
+%0 10 300
+% { dup 150 ne
+% { gsave dup translate box grestore }
+% { gsave dup translate 1 0 0 setrgbcolor box grestore }
+%ifelse } for
+
+%0 10 300 {
+% gsave
+% dup translate box
+% grestore
+%} for
+
+%0.0 0.02 1.0 {
+% gsave
+% 300 mul dup translate box
+% grestore
+%} for
+
+%0.0 0.02 1.0 {
+% 3 rotate 0 0 setrgbcolor box
+%} for
+
+%0.0 0.02 1.0 {
+% 10 10 translate 0 0 setrgbcolor box
+%} for
+
+0 { 10 10 translate gr_color setgray box
+ 0.05 gr_color add
+ /gr_color exch def
+} repeat
+
+showpage
\ No newline at end of file
--
GitLab