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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
|
/*******************************************************************************
* Instrument: Demo_shape_primitives
*
* %I
* Written by: Erik B Knudsen <erkn@fysik.dtu.dk>
* Date: Feb 2018
* Origin: DTU Physics
* %INSTRUMENT_SITE: Templates
*
* Demonstration instrument of some shapes used for mcdisplay
*
* %D
* This instrument will display a cylinder, a sphere, and a box,
* when run with mcdisplay. Otherwise does nothing.
*
*
* %P
*
* %L
*
* %E
*******************************************************************************/
DEFINE INSTRUMENT Demo_shape_primitives_simple()
DECLARE
%{
%}
INITIALIZE
%{
%}
TRACE
COMPONENT origin = Progress_bar()
AT (0, 0, 0) RELATIVE ABSOLUTE
COMPONENT shape0 = Shape(radius=0.5)
AT(0,0,.5) RELATIVE PREVIOUS
COMPONENT shape1 = Shape(radius=0.5, yheight=0.5, thickness=0.0, nx=0,ny=0,nz=1)
AT(0,0,1) RELATIVE PREVIOUS
COMPONENT shape2 = Shape(xwidth=0.25, yheight=0.8,zdepth=0.1234, thickness=0, nx=0,ny=0,nz=1)
AT(0,0,1) RELATIVE PREVIOUS
COMPONENT shape3 = Shape(xwidth=0.25, yheight=0.8,zdepth=0.1234,thickness=0.0125, nx=0,ny=0,nz=1)
AT(0,0,1) RELATIVE PREVIOUS
COMPONENT shape4 = Cone(radius=0.5, yheight=0.5)
AT(0,0,1) RELATIVE PREVIOUS
COMPONENT shape5 = Shape(radius=0.5, yheight=0.5, thickness=0.25, nx=0,ny=1,nz=1)
AT(0,0,1) RELATIVE PREVIOUS
COMPONENT shape6 = Circle(radius=0.5)
AT(0,0,1) RELATIVE PREVIOUS
COMPONENT shape7 = Disc(radius=0.5)
AT(0,0,1) RELATIVE PREVIOUS
COMPONENT shape8 = Annulus(outer_radius=0.5, inner_radius=0.25)
AT(0,0,1) RELATIVE PREVIOUS
COMPONENT shape9 = Annulus(outer_radius=0.5, inner_radius=0.125)
AT(0,0,1) RELATIVE PREVIOUS
COMPONENT shape10 = Legacy_circle(radius=0.5)
AT(0,0,1) RELATIVE PREVIOUS
COMPONENT shape11 = Shape(radius=0.5)
AT(0,0,1) RELATIVE PREVIOUS
COMPONENT shape12 = Shape(radius=0.5, yheight=0.5)
AT(0,0,1) RELATIVE PREVIOUS
COMPONENT shape13 = Shape(radius=0.5, yheight=0.5, thickness=0, nx=0,ny=1,nz=0)
AT(0,0,1) RELATIVE PREVIOUS
COMPONENT shape14 = Shape(radius=0.5, yheight=0.5, thickness=0.1, nx=0,ny=1,nz=0)
AT(0,0,1) RELATIVE PREVIOUS
COMPONENT shape15 = Shape(radius=0.5, yheight=0.5, thickness=0, nx=0,ny=0,nz=1)
AT(0,0,1) RELATIVE PREVIOUS
COMPONENT shape16 = Shape(radius=0.5, yheight=0.5, thickness=0.1, nx=0,ny=0,nz=1)
AT(0,0,1) RELATIVE PREVIOUS
COMPONENT shape17 = Shape(radius=0.5, yheight=0.5, thickness=0, nx=1,ny=0,nz=0)
AT(0,0,1) RELATIVE PREVIOUS
COMPONENT shape18 = Shape(radius=0.5, yheight=0.5, thickness=0.1, nx=1,ny=0,nz=0)
AT(0,0,1) RELATIVE PREVIOUS
COMPONENT shape19 = Shape(xwidth=0.25, yheight=0.8,zdepth=0.1234, thickness=0, nx=0,ny=1,nz=0)
AT(0,0,1) RELATIVE PREVIOUS
COMPONENT shape20 = Shape(xwidth=0.25, yheight=0.8,zdepth=0.1234,thickness=0.0125, nx=0,ny=1,nz=0)
AT(0,0,1) RELATIVE PREVIOUS
COMPONENT shape21 = Shape(xwidth=0.25, yheight=0.8,zdepth=0.1234, thickness=0, nx=0,ny=0,nz=1)
AT(0,0,1) RELATIVE PREVIOUS
COMPONENT shape22 = Shape(xwidth=0.25, yheight=0.8,zdepth=0.1234,thickness=0.0125, nx=0,ny=0,nz=1)
AT(0,0,1) RELATIVE PREVIOUS
COMPONENT shape23 = Shape(xwidth=0.25, yheight=0.8,zdepth=0.1234, thickness=0, nx=1,ny=0,nz=0)
AT(0,0,1) RELATIVE PREVIOUS
COMPONENT shape24 = Shape(xwidth=0.25, yheight=0.8,zdepth=0.1234,thickness=0.0125, nx=1,ny=0,nz=0)
AT(0,0,1) RELATIVE PREVIOUS
COMPONENT Shape25 = Guide_channeled(w1=0.5, h1=1, l=2)
AT(0,0,1) RELATIVE PREVIOUS
COMPONENT shape26 = Disc(radius=0.5, nx=0,ny=0,nz=1)
AT(0,0,3) RELATIVE PREVIOUS
COMPONENT shape27 = Disc(radius=0.5, nx=0,ny=1,nz=0)
AT(0,0,1) RELATIVE PREVIOUS
COMPONENT shape28 = Disc(radius=0.5, nx=1,ny=0,nz=0)
AT(0,0,1) RELATIVE PREVIOUS
COMPONENT shape29 = Disc(radius=0.5, nx=0,ny=1,nz=1)
AT(0,0,1) RELATIVE PREVIOUS
FINALLY
%{
%}
END
|
