File: emblem.mgl

package info (click to toggle)
mathgl 2.4.2.1-5
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 32,488 kB
  • sloc: cpp: 81,486; ansic: 3,138; pascal: 1,562; python: 37; makefile: 17; sh: 7
file content (40 lines) | stat: -rw-r--r-- 785 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
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'

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