VBA, 587 560 байт
Sub S(a,b,c,d,e,f)
Set v=ActiveSheet.Shapes.AddShape(a,b,c,d,e)
v.Fill.ForeColor.RGB=f
v.Line.Visible=0
If a=5 Then v.Adjustments(1)=.5
End Sub
Sub U():p=91.5:w=-1
S 1,0,0,500,450,w
S 9,0,0,500,450,0
S 9,38.5,13.5,423,423,w
S 1,36,120,29,210,0
S 1,65,80,26.5,290,0
S 1,435,120,29,105,0
S 1,408.5,80,26.5,145,0
q=212.25:S 1,9,q,480,19,0
S 5,p,205.75,317,13,w
S 1,405,231.25,95,131.5,w
r=14.5:S 1,p,70.5,r,30,0
q=85:S 9,p,59.6,q,q,w
S 1,p,349.5,r,30,0
S 9,p,305.4,q,q,w
S 1,395,70.5,r,30,0
S 9,323.5,59.6,q,q,w
q=231.25:S 1,p,q,6.5,6.5,0
S 9,p,q,13,13,w
End Sub
Вызвать макрос U. В основном много фигурных рисунков. Форма 1 представляет собой прямоугольник, 5 представляет собой прямоугольник с закругленными углами и 9 представляет собой овал. Выход 500 в ширину и 450 в высоту.
Изменить : добавили скругленный прямоугольник (с регулировкой, чтобы превратить концы в полукруга), чтобы получить закругленные углы в верхней части стержня с одним рисованием формы.
0,085
,0,013
и0,025
измерения?0,846
Предназначена ли диагональ в середине для прохождения через эпицентр эллипса, образованного внешними1
и0,9
?