VBA, 587 560 byte
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
Richiamare la macro U. Fondamentalmente molto disegno di forma. La forma 1 è un rettangolo, 5 un rettangolo arrotondato e 9 è un ovale. L'output è 500 larghezza per 450 altezza.
Modifica : aggiunto il rettangolo arrotondato (con regolazione per trasformare le estremità in semicerchi) per produrre gli angoli raggiati sulla parte superiore della barra con un disegno a forma.
0,085
,0,013
e0,025
di misura? La0,846
diagonale al centro è destinata a passare attraverso l'epicentro dell'ellisse formata dall'esterno1
e0,9
?