Last active
March 6, 2021 14:11
-
-
Save youz/59f72f0c57fdba83a413a3e8ff5860e2 to your computer and use it in GitHub Desktop.
PostScriptでコッホ雪片 ref. https://ja.wikipedia.org/wiki/%E3%82%B3%E3%83%83%E3%83%9B%E6%9B%B2%E7%B7%9A
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| %! | |
| %%BoundingBox: 0 0 540 540 | |
| /N 4 def | |
| 0 0.4 0.8 setrgbcolor | |
| 0.5 setlinewidth | |
| /len 400 3 N exp div def | |
| /k { | |
| 1 add | |
| dup N gt { | |
| len 0 rlineto len 0 translate | |
| } { | |
| [0 60 240 240 120 120 300] { rotate dup k } forall | |
| } ifelse | |
| pop | |
| } def | |
| 50 150 moveto | |
| 3 { 0 k 120 rotate } repeat | |
| closepath stroke |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment