30 lines
1.2 KiB
Plaintext
30 lines
1.2 KiB
Plaintext
From [bennedich](https://discourse.julialang.org/t/love-in-245-characters-code-golf/20771)
|
||
|
||
```
|
||
0:2e-3:2π .|>d->(P=
|
||
fill(5<<11,64 ,25);z=8cis(
|
||
d)sin(.46d);P[ 64,:].=10;for
|
||
r=0:98,c=0 :5^3 x,y=@.mod(2-
|
||
$reim((.016c-r/49im-1-im)z),
|
||
4)-2;4-x^2>√2(y+.5-√√x^2)^
|
||
2&&(P[c÷2+1,r÷4+1]|=Int(
|
||
")*,h08H¨"[4&4c+1+r&
|
||
3])-40)end;print(
|
||
"\e[H\e[1;31m",
|
||
join(Char.(
|
||
P)))
|
||
);
|
||
```
|
||
|
||
|
||
|
||
[New York Times](https://www.nytimes.com/2019/02/14/science/math-algorithm-valentine.html)
|
||
|
||
Süss — German for “sweet” — is an interactive widget that allows you to tweak the algebra and customize the heart to your souls’s delight. It was created for Valentine’s Day by Imaginary, a nonprofit organization in Berlin that designs open-source mathematics programs and exhibitions.
|
||
|
||
You can stretch and squeeze the heart by moving the two left-most sliders, which change the “a” and “b” parameters; the right-most slider zooms in and out. Better yet, canoodle directly with Süss’s equation and engage in the dialectical interplay between algebra and geometry. (Change that final z³ to a z² to see the heart in its underwear.)
|
||
|
||
```
|
||
(x^2+((1+b)*y)^2+z^2-1)^3-x^2*z^3-a*y^2*z^3
|
||
```
|