RosettaCodeData/Task/Superellipse/J/superellipse.j
2023-07-01 13:44:08 -04:00

7 lines
121 B
Text

selips=: 4 :0
'n a b'=. y
1 >: ((n^~a%~]) +&|/ n^~b%~]) i:x
)
require'viewmat'
viewmat 300 selips 2.5 200 200