同界角
Author: 藍邦偉  老師

同界角

O: 0.5 * (Corner[1.0] + Corner[3.0])
u = Vector((x(Corner[1.0]), y(O)), (x(Corner[3.0]), y(O)))
v = Vector((x(O), y(Corner[1.0])), (x(O), y(Corner[3.0])))
k = 0.85 (slider from 0 to 5, step 0.01)
a = CurveCartesian(x(O) + (t / 3.0 + 0.5) * cos(t * 2.0 * 3.141592653589793), y(O) + If[k > 0.0, 1.0, -1.0] * (t / 3.0 + 0.5) * sin(2.0 * t * 3.141592653589793), t, 0.0, abs(k))
b = Segment(O, (x(O) + (abs(k) / 3.0 + 0.5) * cos(2.0 * k * 3.141592653589793), y(O) + (abs(k) / 3.0 + 0.5) * sin(2.0 * k * 3.141592653589793)))
h = -2.6 (slider from -5 to 0, step 0.01)
c = CurveCartesian(x(O) + (t / 3.0 + 0.5) * cos(t * 2.0 * 3.141592653589793), y(O) + If[h > 0.0, 1.0, -1.0] * (t / 3.0 + 0.5) * sin(2.0 * t * 3.141592653589793), t, 0.0, abs(h))
f = Segment(O, (x(O) + (abs(h) / 3.0 + 0.5) * cos(2.0 * h * 3.141592653589793), y(O) + (abs(h) / 3.0 + 0.5) * sin(2.0 * h * 3.141592653589793)))