summaryrefslogtreecommitdiff
path: root/Donjon/data/candu6_iram_proc/PdevR.c2m
blob: 8cf949b0d5a11442d509371f9f46c8a4de720460 (plain)
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
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
*==============================================================*
* Procedure :  PdevR.c2m                                       *
* Purpose   :  Adjuster rods descriptions using DONJON-4       *
* Author    :  D. Sekki (07/07)                                *
*==============================================================*
PARAMETER  DEVICE INDEX ::
                        ::: LINKED_LIST DEVICE INDEX ; ;

MODULE   END: DEVINI: ;
INTEGER  mRai  mRao  mRbi  mRci  mRco  mRdi
         mNai  mNao  mNbi  mNci  mNco  mNdi :=
           5     6     7     8     9    10 
          11    12    13    14    15    16  ;

*--
* controlled adjuster rods descriptions:
*--

  DEVICE INDEX := DEVINI: INDEX :: EDIT 1 NUM-ROD 39

  ROD 1
    ROD-NAME BC01
    LEVEL 0.0   AXIS Y  FROM H+
    MAXPOS 197.1125 225.6875   325.700 440.000   202.060 251.590
    DMIX <<mRdi>> <<mNdi>>
  ENDROD
*
  ROD 2
    ROD-NAME BC02C
    LEVEL 0.0   AXIS Y  FROM H-
    MAXPOS 254.2625 282.8375   211.400 297.125   202.060 251.590
    DMIX <<mRco>> <<mNco>>
  ENDROD
*
  ROD 3
    ROD-NAME BC02B
    LEVEL 0.0   AXIS Y  FROM H+
    MAXPOS 254.2625 282.8375   297.125 468.575   202.060 251.590
    DMIX <<mRci>> <<mNci>>
  ENDROD
*
  ROD 4
    ROD-NAME BC02A
    LEVEL 0.0   AXIS Y  FROM H+
    MAXPOS 254.2625 282.8375   468.575 554.300   202.060 251.590
    DMIX <<mRco>> <<mNco>>
  ENDROD
*
  ROD 5
    ROD-NAME BC03
    LEVEL 0.0   AXIS Y  FROM H+
    MAXPOS 311.4125 339.9875   211.400 554.300   202.060 251.590
    DMIX <<mRbi>> <<mNbi>>
  ENDROD
*
  ROD 6
    ROD-NAME BC04C
    LEVEL 0.0   AXIS Y  FROM H-
    MAXPOS 368.5625 397.1375   211.400 297.125   202.060 251.590
    DMIX <<mRao>> <<mNao>>
  ENDROD
*
  ROD 7
    ROD-NAME BC04B
    LEVEL 0.0   AXIS Y  FROM H+
    MAXPOS 368.5625 397.1375   297.125 468.575   202.060 251.590
    DMIX <<mRai>> <<mNai>>
  ENDROD
*
  ROD 8
    ROD-NAME BC04A
    LEVEL 0.0   AXIS Y  FROM H+
    MAXPOS 368.5625 397.1375   468.575 554.300   202.060 251.590
    DMIX <<mRao>> <<mNao>>
  ENDROD
*
  ROD 9
    ROD-NAME BC05
    LEVEL 0.0   AXIS Y  FROM H+
    MAXPOS 425.7125 454.2875   211.400 554.300   202.060 251.590
    DMIX <<mRbi>> <<mNbi>>
  ENDROD
*
  ROD 10
    ROD-NAME BC06C
    LEVEL 0.0   AXIS Y  FROM H-
    MAXPOS 482.8625 511.4375   211.400 297.125   202.060 251.590
    DMIX <<mRco>> <<mNco>>
  ENDROD
*
  ROD 11
    ROD-NAME BC06B
    LEVEL 0.0   AXIS Y  FROM H+
    MAXPOS 482.8625 511.4375   297.125 468.575   202.060 251.590
    DMIX <<mRci>> <<mNci>>
  ENDROD
*
  ROD 12
    ROD-NAME BC06A
    LEVEL 0.0   AXIS Y  FROM H+
    MAXPOS 482.8625 511.4375   468.575 554.300   202.060 251.590
    DMIX <<mRco>> <<mNco>>
  ENDROD
*
  ROD 13
    ROD-NAME BC07
    LEVEL 0.0   AXIS Y  FROM H+
    MAXPOS 540.0125 568.5875   325.700 440.000   202.060 251.590
    DMIX <<mRdi>> <<mNdi>>
  ENDROD
*
  ROD 14
    ROD-NAME BC08
    LEVEL 0.0   AXIS Y  FROM H+
    MAXPOS 197.1125 225.6875   325.700 440.000   276.360 325.890
    DMIX <<mRdi>> <<mNdi>>
  ENDROD
*
  ROD 15
    ROD-NAME BC09C
    LEVEL 0.0   AXIS Y  FROM H-
    MAXPOS 254.2625 282.8375   211.400 297.125   276.360 325.890
    DMIX <<mRco>> <<mNco>>
  ENDROD
*
  ROD 16
    ROD-NAME BC09B
    LEVEL 0.0   AXIS Y  FROM H+
    MAXPOS 254.2625 282.8375   297.125 468.575   276.360 325.890
    DMIX <<mRci>> <<mNci>>
  ENDROD
*
  ROD 17
    ROD-NAME BC09A
    LEVEL 0.0   AXIS Y  FROM H+
    MAXPOS 254.2625 282.8375   468.575 554.300   276.360 325.890
    DMIX <<mRco>> <<mNco>>
  ENDROD
*
  ROD 18
    ROD-NAME BC10
    LEVEL 0.0   AXIS Y  FROM H+
    MAXPOS 311.4125 339.9875   211.400 554.300   276.360 325.890
    DMIX <<mRbi>> <<mNbi>>
  ENDROD
*
  ROD 19
    ROD-NAME BC11C
    LEVEL 0.0   AXIS Y  FROM H-
    MAXPOS 368.5625 397.1375   211.400 297.125   276.360 325.890
    DMIX <<mRao>> <<mNao>>
  ENDROD
*
  ROD 20
    ROD-NAME BC11B
    LEVEL 0.0   AXIS Y  FROM H+
    MAXPOS 368.5625 397.1375   297.125 468.575   276.360 325.890
    DMIX <<mRai>> <<mNai>>
  ENDROD
*
  ROD 21
    ROD-NAME BC11A
    LEVEL 0.0   AXIS Y  FROM H+
    MAXPOS 368.5625 397.1375   468.575 554.300   276.360 325.890
    DMIX <<mRao>> <<mNao>>
  ENDROD
*
  ROD 22
    ROD-NAME BC12
    LEVEL 0.0   AXIS Y  FROM H+
    MAXPOS 425.7125 454.2875   211.400 554.300   276.360 325.890
    DMIX <<mRbi>> <<mNbi>>
  ENDROD
*
  ROD 23
    ROD-NAME BC13C
    LEVEL 0.0   AXIS Y  FROM H-
    MAXPOS 482.8625 511.4375   211.400 297.125   276.360 325.890
    DMIX <<mRco>> <<mNco>>
  ENDROD
*
  ROD 24
    ROD-NAME BC13B
    LEVEL 0.0   AXIS Y  FROM H+
    MAXPOS 482.8625 511.4375   297.125 468.575   276.360 325.890
    DMIX <<mRci>> <<mNci>>
  ENDROD
*
  ROD 25
    ROD-NAME BC13A
    LEVEL 0.0   AXIS Y  FROM H+
    MAXPOS 482.8625 511.4375   468.575 554.300   276.360 325.890
    DMIX <<mRco>> <<mNco>>
  ENDROD
*
  ROD 26
    ROD-NAME BC14
    LEVEL 0.0   AXIS Y  FROM H+
    MAXPOS 540.0125 568.5875   325.700 440.000   276.360 325.890
    DMIX <<mRdi>> <<mNdi>>
  ENDROD
*
  ROD 27
    ROD-NAME BC15
    LEVEL 0.0   AXIS Y  FROM H+
    MAXPOS 197.1125 225.6875   325.700 440.000   350.650 400.180
    DMIX <<mRdi>> <<mNdi>>
  ENDROD
*
  ROD 28
    ROD-NAME BC16C
    LEVEL 0.0   AXIS Y  FROM H-
    MAXPOS 254.2625 282.8375   211.400 297.125   350.650 400.180
    DMIX <<mRco>> <<mNco>>
  ENDROD
*
  ROD 29
    ROD-NAME BC16B
    LEVEL 0.0   AXIS Y  FROM H+
    MAXPOS 254.2625 282.8375   297.125 468.575   350.650 400.180
    DMIX <<mRci>> <<mNci>>
  ENDROD
*
  ROD 30
    ROD-NAME BC16A
    LEVEL 0.0   AXIS Y  FROM H+
    MAXPOS 254.2625 282.8375   468.575 554.300   350.650 400.180
    DMIX <<mRco>> <<mNco>>
  ENDROD
*
  ROD 31
    ROD-NAME BC17
    LEVEL 0.0   AXIS Y  FROM H+
    MAXPOS 311.4125 339.9875   211.400 554.300   350.650 400.180
    DMIX <<mRbi>> <<mNbi>>
  ENDROD
*
  ROD 32
    ROD-NAME BC18C
    LEVEL 0.0   AXIS Y  FROM H-
    MAXPOS 368.5625 397.1375   211.400 297.125   350.650 400.180
    DMIX <<mRao>> <<mNao>>
  ENDROD
*
  ROD 33
    ROD-NAME BC18B
    LEVEL 0.0   AXIS Y  FROM H+
    MAXPOS 368.5625 397.1375   297.125 468.575   350.650 400.180
    DMIX <<mRai>> <<mNai>>
  ENDROD
*
  ROD 34
    ROD-NAME BC18A
    LEVEL 0.0   AXIS Y  FROM H+
    MAXPOS 368.5625 397.1375   468.575 554.300   350.650 400.180
    DMIX <<mRao>> <<mNao>>
  ENDROD
*
  ROD 35
    ROD-NAME BC19
    LEVEL 0.0   AXIS Y  FROM H+
    MAXPOS 425.7125 454.2875   211.400 554.300   350.650 400.180
    DMIX <<mRbi>> <<mNbi>>
  ENDROD
*
  ROD 36
    ROD-NAME BC20C
    LEVEL 0.0   AXIS Y  FROM H-
    MAXPOS 482.8625 511.4375   211.400 297.125   350.650 400.180
    DMIX <<mRco>> <<mNco>>
  ENDROD
*
  ROD 37
    ROD-NAME BC20B
    LEVEL 0.0   AXIS Y  FROM H+
    MAXPOS 482.8625 511.4375   297.125 468.575   350.650 400.180
    DMIX <<mRci>> <<mNci>>
  ENDROD
*
  ROD 38
    ROD-NAME BC20A
    LEVEL 0.0   AXIS Y  FROM H+
    MAXPOS 482.8625 511.4375   468.575 554.300   350.650 400.180
    DMIX <<mRco>> <<mNco>>
  ENDROD
*
  ROD 39
    ROD-NAME BC21
    LEVEL 0.0   AXIS Y  FROM H+
    MAXPOS 540.0125 568.5875   325.700 440.000   350.650 400.180
    DMIX <<mRdi>> <<mNdi>>
  ENDROD

*--
* create rod-devices groups:
*--

  CREATE ROD-GR 1  GROUP-ID 1  ALL ;

END: ;
QUIT .