setsize 1000 500
text 0.95 0.8 'MathGL' ':RiA' -4
text 0.05 0.15 'library\n for scientific graphics' ':LiA' -2.
#rect 0.05 0.9 2 1.5 1.34 2 'w'
xtick -3:ytick -3:ztick -3
subplot 1 1 0 '^_'

stickplot 3 0 60 20:box
new y 50: fill y '-cos(pi*x-pi/4)'
new x 50: fill x '-sin(pi*x-pi/4)'
new z 50: fill z '2*x^2-1'

area x y z 'lG'
plot x y z 'B2s'

stickplot 3 1 60 20:box

new aa 50 40
modify aa '0.6*sin(2*pi*x)*sin(3*pi*y) + 0.4*cos(3*pi*(x*y))'
mirror aa 'y'
light on :alpha on
surf aa 'BbcyrR';alpha 0.8
cont aa 'y'

stickplot 3 2 60 20:box
rotate 0 20

new a 61 51 40
modify a '-2*((2*x-1)^2 + (2*y-1)^2 + (2*z-1)^4 - (2*z-1)^2 - 0.1)'

alpha on:light off
cloud a 'wyrRk'

write 'emplem.jpg'

stop
cut 0 -1 -1 1 0 1.1
surf3 a -1 'BbcyrR'
contf3 a 'x' -1
contf3 a 'y' -1
contf3 a 'z' 0
contf3 a 'z' 39
