Luxophia

1
unit LUX.Asset.VisToolkit.Cells.QUADRATIC;
2

3
interface //#################################################################### ■
4

5
uses LUX, LUX.D1, LUX.D2, LUX.D3,
6
     LUX.Asset.VisToolkit.Poin,
7
     LUX.Asset.VisToolkit.Cells;
8

9
type //$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【型】
10

11
     //$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【レコード】
12

13
     //$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【クラス】
14

15
     //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TvtkCell21
16

17
     TvtkCell21 = class( TvtkCell )
18
     private
19
     protected
20
     public
21
       constructor Create;
22
       destructor Destroy; override;
23
     end;
24

25
     //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TvtkCell22
26

27
     TvtkCell22 = class( TvtkCell )
28
     private
29
     protected
30
     public
31
       constructor Create;
32
       destructor Destroy; override;
33
     end;
34

35
     //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TvtkCell23
36

37
     TvtkCell23 = class( TvtkCell )
38
     private
39
     protected
40
     public
41
       constructor Create;
42
       destructor Destroy; override;
43
     end;
44

45
     //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TvtkCell36
46

47
     TvtkCell36 = class( TvtkCell )
48
     private
49
     protected
50
     public
51
       constructor Create;
52
       destructor Destroy; override;
53
     end;
54

55
     //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TvtkCell24
56

57
     TvtkCell24 = class( TvtkCell )
58
     private
59
     protected
60
     public
61
       constructor Create;
62
       destructor Destroy; override;
63
     end;
64

65
     //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TvtkCell25
66

67
     TvtkCell25 = class( TvtkCell )
68
     private
69
     protected
70
       ///// アクセス
71
       function GetGrids( const X_,Y_,Z_:Byte ) :TvtkPoin;
72
     public
73
       constructor Create;
74
       destructor Destroy; override;
75
       ///// プロパティ
76
       property Grids[ const X_,Y_,Z_:Byte ] :TvtkPoin read GetGrids;
77
     end;
78

79
     //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TvtkCell26
80

81
     TvtkCell26 = class( TvtkCell )
82
     private
83
     protected
84
     public
85
       constructor Create;
86
       destructor Destroy; override;
87
     end;
88

89
     //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TvtkCell27
90

91
     TvtkCell27 = class( TvtkCell )
92
     private
93
     protected
94
     public
95
       constructor Create;
96
       destructor Destroy; override;
97
     end;
98

99
     //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TvtkCell28
100

101
     TvtkCell28 = class( TvtkCell )
102
     private
103
     protected
104
     public
105
       constructor Create;
106
       destructor Destroy; override;
107
     end;
108

109
     //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TvtkCell29
110

111
     TvtkCell29 = class( TvtkCell )
112
     private
113
     protected
114
     public
115
       constructor Create;
116
       destructor Destroy; override;
117
     end;
118

119
     //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TvtkCell30
120

121
     TvtkCell30 = class( TvtkCell )
122
     private
123
     protected
124
     public
125
       constructor Create;
126
       destructor Destroy; override;
127
     end;
128

129
     //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TvtkCell31
130

131
     TvtkCell31 = class( TvtkCell )
132
     private
133
     protected
134
     public
135
       constructor Create;
136
       destructor Destroy; override;
137
     end;
138

139
     //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TvtkCell32
140

141
     TvtkCell32 = class( TvtkCell )
142
     private
143
     protected
144
     public
145
       constructor Create;
146
       destructor Destroy; override;
147
     end;
148

149
     //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TvtkCell33
150

151
     TvtkCell33 = class( TvtkCell )
152
     private
153
     protected
154
     public
155
       constructor Create;
156
       destructor Destroy; override;
157
     end;
158

159
     //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TvtkCell34
160

161
     TvtkCell34 = class( TvtkCell )
162
     private
163
     protected
164
     public
165
       constructor Create;
166
       destructor Destroy; override;
167
     end;
168

169
//const //$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【定数】
170

171
//var //$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【変数】
172

173
//$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【ルーチン】
174

175
implementation //############################################################### ■
176

177
//$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【レコード】
178

179
//$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【クラス】
180

181
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TvtkCell21
182

183
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& private
184

185
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& protected
186

187
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& public
188

189
constructor TvtkCell21.Create;
190
begin
191
     inherited;
192

193
end;
194

195
destructor TvtkCell21.Destroy;
196
begin
197

198
     inherited;
199
end;
200

201
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TvtkCell22
202

203
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& private
204

205
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& protected
206

207
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& public
208

209
constructor TvtkCell22.Create;
210
begin
211
     inherited;
212

213
end;
214

215
destructor TvtkCell22.Destroy;
216
begin
217

218
     inherited;
219
end;
220

221
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TvtkCell23
222

223
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& private
224

225
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& protected
226

227
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& public
228

229
constructor TvtkCell23.Create;
230
begin
231
     inherited;
232

233
end;
234

235
destructor TvtkCell23.Destroy;
236
begin
237

238
     inherited;
239
end;
240

241
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TvtkCell36
242

243
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& private
244

245
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& protected
246

247
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& public
248

249
constructor TvtkCell36.Create;
250
begin
251
     inherited;
252

253
end;
254

255
destructor TvtkCell36.Destroy;
256
begin
257

258
     inherited;
259
end;
260

261
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TvtkCell24
262

263
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& private
264

265
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& protected
266

267
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& public
268

269
constructor TvtkCell24.Create;
270
begin
271
     inherited;
272

273
end;
274

275
destructor TvtkCell24.Destroy;
276
begin
277

278
     inherited;
279
end;
280

281
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TvtkCell25
282

283
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& private
284

285
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& protected
286

287
/////////////////////////////////////////////////////////////////////// アクセス
288

289
function TvtkCell25.GetGrids( const X_,Y_,Z_:Byte ) :TvtkPoin;
290
begin
291
     //          220---------221---------222
292
     //          /|          /|          /|
293
     //         / |         / |         / |
294
     //        /  |        /  |        /  |
295
     //      120---------121---------122  |
296
     //      /|   |      /|   |      /|   |
297
     //     / |  210----/-|--211----/-|--212
298
     //    /  |  /|    /  |  /|    /  |  /|
299
     //  020---------021---------022  | / |
300
     //   |   |/  |   |   |/  |   |   |/  |
301
     //   |  110------|--111------|--112  |
302
     //   |  /|   |   |  /|   |   |  /|   |
303
     //   | / |  200--|-/-|--201--|-/-|--202
304
     //   |/  |  /    |/  |  /    |/  |  /
305
     //  010---------011---------012  | /
306
     //   |   |/      |   |/      |   |/
307
     //   |  100------|--101------|--102
308
     //   |  /        |  /        |  /
309
     //   | /         | /         | /
310
     //   |/          |/          |/
311
     //  000---------001---------002
312

313
     case 9 * Z_ + 3 * Y_ + X_ of
314
      00: Result := Poins[ 00 ];
315
      01: Result := Poins[ 08 ];
316
      02: Result := Poins[ 01 ];
317
      03: Result := Poins[ 16 ];
318
      04: Result := nil;
319
      05: Result := Poins[ 17 ];
320
      06: Result := Poins[ 04 ];
321
      07: Result := Poins[ 12 ];
322
      08: Result := Poins[ 05 ];
323
      09: Result := Poins[ 11 ];
324
      10: Result := nil;
325
      11: Result := Poins[ 09 ];
326
      12: Result := nil;
327
      13: Result := nil;
328
      14: Result := nil;
329
      15: Result := Poins[ 15 ];
330
      16: Result := nil;
331
      17: Result := Poins[ 13 ];
332
      18: Result := Poins[ 03 ];
333
      19: Result := Poins[ 10 ];
334
      20: Result := Poins[ 02 ];
335
      21: Result := Poins[ 19 ];
336
      22: Result := nil;
337
      23: Result := Poins[ 18 ];
338
      24: Result := Poins[ 07 ];
339
      25: Result := Poins[ 14 ];
340
      26: Result := Poins[ 06 ];
341
     end;
342
end;
343

344
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& public
345

346
constructor TvtkCell25.Create;
347
begin
348
     inherited;
349

350
end;
351

352
destructor TvtkCell25.Destroy;
353
begin
354

355
     inherited;
356
end;
357

358
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TvtkCell26
359

360
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& private
361

362
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& protected
363

364
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& public
365

366
constructor TvtkCell26.Create;
367
begin
368
     inherited;
369

370
end;
371

372
destructor TvtkCell26.Destroy;
373
begin
374

375
     inherited;
376
end;
377

378
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TvtkCell27
379

380
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& private
381

382
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& protected
383

384
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& public
385

386
constructor TvtkCell27.Create;
387
begin
388
     inherited;
389

390
end;
391

392
destructor TvtkCell27.Destroy;
393
begin
394

395
     inherited;
396
end;
397

398
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TvtkCell28
399

400
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& private
401

402
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& protected
403

404
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& public
405

406
constructor TvtkCell28.Create;
407
begin
408
     inherited;
409

410
end;
411

412
destructor TvtkCell28.Destroy;
413
begin
414

415
     inherited;
416
end;
417

418
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TvtkCell29
419

420
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& private
421

422
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& protected
423

424
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& public
425

426
constructor TvtkCell29.Create;
427
begin
428
     inherited;
429

430
end;
431

432
destructor TvtkCell29.Destroy;
433
begin
434

435
     inherited;
436
end;
437

438
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TvtkCell30
439

440
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& private
441

442
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& protected
443

444
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& public
445

446
constructor TvtkCell30.Create;
447
begin
448
     inherited;
449

450
end;
451

452
destructor TvtkCell30.Destroy;
453
begin
454

455
     inherited;
456
end;
457

458
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TvtkCell31
459

460
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& private
461

462
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& protected
463

464
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& public
465

466
constructor TvtkCell31.Create;
467
begin
468
     inherited;
469

470
end;
471

472
destructor TvtkCell31.Destroy;
473
begin
474

475
     inherited;
476
end;
477

478
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TvtkCell32
479

480
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& private
481

482
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& protected
483

484
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& public
485

486
constructor TvtkCell32.Create;
487
begin
488
     inherited;
489

490
end;
491

492
destructor TvtkCell32.Destroy;
493
begin
494

495
     inherited;
496
end;
497

498
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TvtkCell33
499

500
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& private
501

502
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& protected
503

504
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& public
505

506
constructor TvtkCell33.Create;
507
begin
508
     inherited;
509

510
end;
511

512
destructor TvtkCell33.Destroy;
513
begin
514

515
     inherited;
516
end;
517

518
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TvtkCell34
519

520
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& private
521

522
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& protected
523

524
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& public
525

526
constructor TvtkCell34.Create;
527
begin
528
     inherited;
529

530
end;
531

532
destructor TvtkCell34.Destroy;
533
begin
534

535
     inherited;
536
end;
537

538
//$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【ルーチン】
539

540
//############################################################################## □
541

542
initialization //$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 初期化
543

544
finalization //$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 最終化
545

546
end. //######################################################################### ■
547