📄 fract.fs
字号:
\ tag: forth fractal example\ \ Copyright (C) 2002, 2003 Volker Poplawski <volker@poplawski.de>\ Stefan Reinauer\ This example even fits in a signature ;-)\ hex 4666 dup negate do i 4000 dup 2* negate do 2a 0 dup 2dup 1e 0 do\ 2swap * d >>a 4 pick + -rot - j + dup dup * e >>a rot dup dup * e >>a \ rot swap 2dup + 10000 > if 3drop 2drop 20 0 dup 2dup leave then loop \ 2drop 2drop type 268 +loop cr drop 5de +loop: fract4666 dup negatedo i 4000 dup 2* negate do 2a 0 dup 2dup 1e 0 do 2swap * d >>a 4 pick + -rot - j + dup dup * e >>a rot dup dup * e >>a rot swap 2dup + 10000 > if 3drop 2drop 20 0 dup 2dup leave then loop 2drop 2drop emit 268 +loop cr drop5de +loop;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -