library("graphic")

q=0.*matrix(1,36)   ; do not use any facepart

q[,1] =1            ; right eye size

q[,19]=1            ; left eye size

q[,2] =2            ; right pupil size

q[,20]=2            ; left pupil size 

q[,4] =3            ; right eye slant

q[,22]=3            ; left eye slant

q[,11]=4            ; right upper hair line

q[,29]=4            ; left upper hair line

q[,12]=5            ; right lower hairline

q[,30]=5            ; left lower hairline

q[,13]=6            ; right face line

q[,14]=6            ; right darkness of hair

q[,31]=6            ; left face line

q[,32]=6            ; left darkness of hair

h=read("bank2")

h=h[91:110,]

draw=grface(h,q,5)

d=createdisplay(1,1)

axesoff()

show(d,1,1,draw)