Trig Reference Circle with Custom Radius

GeoGebra Commands & Parameters

1. Point(Ray[(0, 0), (1, 0)]) → L
2. Circle((0, 0), L) → c
3. Intersect(xAxis, yAxis) → A
4. Intersect(c, xAxis, 2) → B
5. Rotate(L, π / 6, A) → C
6. Rotate(L, π / 4, A) → D
7. Rotate(L, π / 3, A) → E
8. Mirror(C, yAxis) → C'
9. Mirror(D, yAxis) → D'
10. Mirror(E, yAxis) → E'
11. Mirror(E', xAxis) → E''
12. Mirror(D', xAxis) → D''
13. Mirror(C', xAxis) → C''
14. Mirror(C, xAxis) → C'_{1}
15. Mirror(D, xAxis) → D'_{1}
16. Mirror(E, xAxis) → E'_{1}
17. Intersect(c, xAxis, 1) → G
18. Intersect(c, yAxis, 1) → H
19. If(a ≟ 1, B, a ≟ 6, E', a ≟ 7, D', a ≟ 8, C', a ≟ 9, G, a ≟ 10, C'', a ≟ 2, a ≟ 11, D'', a ≟ 12, E'', a ≟ 13, H, a ≟ 14, E'_{1}, a ≟ 15, D'_{1}, C, a ≟ 16, C'_{1}, a ≟ 3, D, a ≟ 4, E, a ≟ 5, F) → P
20. Intersect(eq1, xAxis) → I
21. Polygon(A, I, P) → t1, p, a_1, i
22. Segment(A, P) → f
23. Angle(P, I, A) → α
24. Midpoint(A, P) → J
25. Segment(A, P) → j
26. Segment(A, I) → k
27. Segment(I, P) → l
28. Angle(I, A, P) → β
29. Vector(A, I) → u
30. SurdText(x(I)) → text3
31. SurdText(y(P)) → text4
32. Vector(I, P) → v
33. Angle(B, A, P) → γ
34. If(a ≟ 1, L, a ≟ 6, E', a ≟ 7, D', a ≟ 8, C', a ≟ 9, G, a ≟ 10, C'', a ≟ 2, a ≟ 11, D'', a ≟ 12, E'', a ≟ 13, H, a ≟ 14, E'_{1}, a ≟ 15, D'_{1}, C, a ≟ 16, C'_{1}, a ≟ 3, D, a ≟ 4, E, a ≟ 5, F) → K
35. Dilate(K, 2, (0, 0)) → K'