restart;
with(geometry);
with(plots);
_EnvHorizomtalName = 'x';
_EnvVerticalName = 'y';
_local(D);
line(delta, y = 1/3*x - 2, [x, y]);
line(deltap, y = (-1)/4*x + 1, [x, y]);
line(D, y = 3*x - 5, [x, y]);
point(S, 3, 0);
omega := Pi/3;
intersection(P, delta, D);
intersection(Pp, deltap, D);
projection(H, S, delta);
projection(K, S, deltap);
projection(M, S, D);
circle(c1, [H, K, M], 'centername' = O1);
display*[textplot*([[coordinates(S)[], "S"], [coordinates(P)[], "P"], [coordinates(H)[], "H"], [coordinates(K)[], "K"], [coordinates(M)[], "M"]], font = [times, bold, 16], align = [above, right]), draw*([delta(color = blue), deltap(color = blue), D(color = red), c1(color = black), S(color = black, symbol = solidcircle, symbolsize = 16), P(color = black, symbol = solidcircle, symbolsize = 16)], scaling = constrained, axes = none, view = [-15 .. 15, -15 .. 15])];
[ /[ [9 -13 ]
plots:-display [plots:-textplot |[[3, 0, "S"], [-, ---, "P"],
[ \[ [8 8 ]
[33 -9 ] [52 4 ] [9 2 ]]
[--, --, "H"], [--, --, "K"], [-, -, "M"]],
[10 10 ] [17 17 ] [5 5 ]]
\
font = [times, bold, 16], align = [above, right]|, geometry:-d\
/
raw ([delta(color = blue), deltap(color = blue),
D(color = red), c1(color = black),
S(color = black, symbol = solidcircle, symbolsize = 16),
P(color = black, symbol = solidcircle, symbolsize = 16)],
scaling = constrained, axes = none, view = [-15 .. 15, -15 .. 15])];
display*[textplot*([[3, 0, "S"], [9/8, -13/8, "P"], [33/10, -9/10, "H"], [52/17, 4/17, "K"], [9/5, 2/5, "M"]], font = [times, bold, 16], align = [above, right]), draw*([delta(color = blue), deltap(color = blue), D(color = red), c1(color = black), S(color = black, symbol = solidcircle, symbolsize = 16), P(color = black, symbol = solidcircle, symbolsize = 16)], scaling = constrained, axes = none, view = [-15 .. 15, -15 .. 15])]
Why the program will not run; Thank tou.