.PS
xsh = .02; ysh = -.02
define triangle X
line at $1, $2 up .10 right .06 then left .12 then down .10 right .06 $3
X
define button X
box wid $1 rad brad with .w at xbut+xsh, ybut+ysh filled black
box same $2 with .w at xbut, ybut filled white
triangle(last box .e.x - .2, last box .c.y - .05)
xbut = xbut + $1 + .1
X
textfont=setfont("H")
textsize=12
textspace=14
lineweight=0.01

A: box wid 8 ht 5 at 0.0, 2.5
line from A.nw - (0,.2) right .1 then up .1 then right .1 then up .1
line from A.ne - (0,.2) left .1 then up .1 then left .1 then up .1
line from A.sw + (0,.2) right .1 then down .1 then right .1 then down .1
line from A.se + (0,.2) left .1 then down .1 then left .1 then down .1
box wid 7.8 ht .2 at 0.0, 0.2 fill white
B: box wid 7.8 ht .3 "Picasso 1.0" with .n at A.n - (0,.1) fill .8
box wid .2 ht .2 at B.w + (.3+xsh,0+ysh) fill black
box same at B.w + (.3,0) fill .8
triangle(last box .c.x, last box .c.y-0.05)
P: box wid 7.6 ht 3.6 at -0.1, 2.4

boxht=0.25; brad = 0.12; ybut = P.n.y+0.2; xbut = P.w.x
button(.9, "File   ")
button(.9, "View   ")
button(.9, "Edit   ")
button(1.3, "Properties   ")
button(.9, "Draw   ")
button(1.3, "Transform   ")
down
boxwid=0.18
box ht .1 at P.ne + (.15,-.05)
lineweight=0.03
line 1 edge .5; E: line 1.4; line 1 edge .5
lineweight=0.01
box ht .1
S: box ht .6 at E filled white
right
fillcolor=0
line .18 at S.w - (0,.1)
T: triangle(S.n.x, S.n.y - .15,fill)
Ctr: line at T noedge
reflect T about Ctr
line .18 at S.w + (0,.1)
triangle(S.s.x, S.s.y + .05,fill)
.PE
