| figure fonction p integrale sommets |
 
fonction := [:x | x * x ].
sommets := OrderedCollection new.
figure := DrGeoSketch new.
p := figure point: -1 @ 0.
p hide.
sommets add: p.
 
-1 to: 1 by: 0.1 do: [:x |
   p := figure point: x @ (fonction value: x).
   sommets add: p hide].

p := figure point: 1 @ 0.
sommets add: p hide.
 
integrale := figure polygon: sommets.
integrale color: Color blue.