startshape heart background{sat 121 b 1 alpha -1}

rule heart {

rr{s 1 -1}
rr{s 1 -1 f 90 x 5}

} rule rr {

ll{r 45}
ll{r 45 s -1}
rr{x -4 y -4 r 20 s 0.8}

} rule ll {

SQUARE{}
ll {s 0.95 x 1.1 r 10}
jj{}

} rule jj {

CIRCLE{}
jj{s 0.85 x -1.1 r 10}
mm{}

} rule mm {

TRIANGLE{}
mm{s 0.8 x -1.1 r 10}

}