Cylindre
Author: Daniel Mentrard
Date: Janvier 2008

Deplace le point C et observe le cylindre se dessiner

Rayon

r = 11.1 (slider from 0 to 15, step 0.1)
B = Point(yAxis)
Triangle = 150 (slider from 0 to 300, step 1)
W: 2.0 * Triangle
h_2 = Line(B, xAxis)
d: x^(2.0) / 16.0 + (y + 6.0)^(2.0) / 4.0 = r / 10.0
E, H = Intersect(d, h_2)
Hauteur = 8.7 (slider from -10 to 12, step 0.1)
S: (x(B), y(B) + Hauteur)
a = Segment(S, E)
b = Segment(S, H)
C = Rotate(H, Triangle / 2.0, B)
c = Line(B, C)
D, F = Intersect(d, c)
poly1, f, a_1, b_1 = Polygon(S, B, F)
axe = Line(S, B)