Xmin = -5

Xmax = 5

Ymin = -4

Ymax = 6

A = [1,0]

B = [0,racineCarrée(8)]

a = 0

c = 3

​

function image(){

    peinture = blanc

    transparence = 1

    rectangle([-10,10],20,20)

    cercle([0,0],1)

    point(A)

    point(B)

    segment(A,B)

    segment([-2,2],[-2,4.1])

    segment([-2,4.1],[2,4.1])

    segment([2,2],[2,4.1])

    trait = 7

    segment([-2,B[1]],[2,B[1]])

    trait = 1

    A = [cos(a),sin(a)]

    B = [0,sin(a)+racineCarrée( sin(a)*sin(a)+c*c-1 )]

        a = a + 0.1

    }

​

image()

setInterval(function (){image()},50)