|figure a b s m n bloc|
figure:=DrGeoCanvas new.
a:=figure point: 0@0.
b:=figure point: 1@0.
s:=figure line: a to: b.
m:=figure pointOnCurve: s at: 0.
bloc:=[:p| |x y d|
	x:=p point x.
	d:=x*x*x+1.
	y:=3*x*x/d.
	x:=3*x/d.
	x@y].
n:=figure point: bloc parent: m.
figure locusOf: n when: m.