13 lines
494 B
Text
13 lines
494 B
Text
: d2c(*,*) 2 compress 'c dress ; # Make a complex number.
|
|
|
|
: iterate(c) [0 0](c) "dup * over +" steps reshape execute ;
|
|
|
|
: print_line(*) "#*+-. " "" split swap subscript "" join . "\n" . ;
|
|
|
|
75 iota 45 - 20 / # x coordinates
|
|
29 iota 14 - 10 / # y cordinates
|
|
'd2c outer # Make complex matrix.
|
|
|
|
10 'steps set # How many iterations?
|
|
|
|
iterate abs int 5 min 'print_line apply # Compute & print
|