|figure a b s m n bloc|
figure:=DrGeoCanvas new.
a:=figure point: -5@0.
b:=figure point: 5@0.
s:=figure segment: a to: b.
m:=figure pointOnCurve: s at: 0.1.
bloc:=[:p| |x y|
	x:=p point x.
	y:=0.
	(1 to: 200) do: [:k|
		y:=y+(((x *k*k) sin)/(k*k)).].
 		x@y].
n:=figure point: bloc parent: m.
figure locusOf: n when: m.