Procedure: main by Fred Reddham

Description of the procedure:
While trying to draw an ellipsoid I created a really hearty heart ;-)

Source:

procedure main
color red
penup
go 150
repeat 180,oneside
rt 180
repeat 180,nextside
end

procedure oneside
penup
go 20+loop
pendown
go 0
rt 180
penup
go 20+loop
rt 181
end
procedure nextside
penup
go 20+loop
pendown
go 0
lt 180
penup
go 20+loop
lt 181
end