A = Intersect(yAxis, zAxis)
c = Circle(A, 1, zAxis)
B = Point(c)
C: (0, 0, 1)
D: ((0.6 * x(B)), (0.6 * y(B)), 1)
q1, a, b, d, c_1 = Polygon(A, B, D, C)

Tool: Tool1
Input: A
Output: h, g

B: (x(A), 0)
C: (0, y(A))
g = Segment(A, C)
h = Segment(A, B)