summaryrefslogtreecommitdiff
path: root/graphics/ayam/files/patch-ayam.c
blob: d7fb5b6b0542f0de6cd6fd07a8b0d49ecba3345a (plain) (blame)
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
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
--- ayam.c.orig	2007-09-21 13:30:36.000000000 +0200
+++ ayam.c	2007-12-17 19:12:10.000000000 +0100
@@ -598,227 +598,227 @@
 
   /* aycsg.cpp */
 #ifdef AYCSGWRAPPED
-  Tcl_CreateCommand(interp, "aycsgInit", aycsg_inittcmd,
-		     (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "aycsgInit", (Tcl_CmdProc *)aycsg_inittcmd,
+		     NULL, NULL);
 #endif
 
   /* clear.c */
-  Tcl_CreateCommand(interp, "newScene", ay_clear_scenetcmd,
-		     (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "newScene", (Tcl_CmdProc *)ay_clear_scenetcmd,
+		     NULL, NULL);
 
   /* clevel.c */
-  Tcl_CreateCommand(interp, "goTop", ay_clevel_gotoptcmd,
-		     (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "goTop", (Tcl_CmdProc *)ay_clevel_gotoptcmd,
+		     NULL, NULL);
 
-  Tcl_CreateCommand(interp, "goUp", ay_clevel_gouptcmd,
-		     (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "goUp", (Tcl_CmdProc *)ay_clevel_gouptcmd,
+		     NULL, NULL);
 
-  Tcl_CreateCommand(interp, "goDown", ay_clevel_godowntcmd,
-		     (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "goDown", (Tcl_CmdProc *)ay_clevel_godowntcmd,
+		     NULL, NULL);
 
-  Tcl_CreateCommand(interp, "getLevel", ay_clevel_gettcmd,
-		     (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "getLevel", (Tcl_CmdProc *)ay_clevel_gettcmd,
+		     NULL, NULL);
 
   /* clipb.c */
-  Tcl_CreateCommand(interp, "copOb", ay_clipb_copytcmd,
-		     (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "copOb", (Tcl_CmdProc *)ay_clipb_copytcmd,
+		     NULL, NULL);
 
-  Tcl_CreateCommand(interp, "cutOb", ay_clipb_cuttcmd,
-		     (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "cutOb", (Tcl_CmdProc *)ay_clipb_cuttcmd,
+		     NULL, NULL);
 
-  Tcl_CreateCommand(interp, "pasOb", ay_clipb_pastetcmd,
-		     (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "pasOb", (Tcl_CmdProc *)ay_clipb_pastetcmd,
+		     NULL, NULL);
 
-  Tcl_CreateCommand(interp, "cmovOb", ay_clipb_movetcmd,
-		     (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "cmovOb", (Tcl_CmdProc *)ay_clipb_movetcmd,
+		     NULL, NULL);
 
-  Tcl_CreateCommand(interp, "repOb", ay_clipb_replacetcmd,
-		     (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "repOb", (Tcl_CmdProc *)ay_clipb_replacetcmd,
+		     NULL, NULL);
 
   /* conv.c */
-  Tcl_CreateCommand(interp, "convOb", ay_convert_forcetcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "convOb", (Tcl_CmdProc *)ay_convert_forcetcmd,
+		    NULL, NULL);
 
   /* draw.c */
 
   /* error.c */
-  Tcl_CreateCommand(interp, "ayError", ay_error_tcmd,
-		     (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "ayError", (Tcl_CmdProc *)ay_error_tcmd,
+		     NULL, NULL);
 
-  Tcl_CreateCommand(interp, "getGLErr", ay_error_getglerrortcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "getGLErr", (Tcl_CmdProc *)ay_error_getglerrortcmd,
+		    NULL, NULL);
 
   /* instt.c */
-  Tcl_CreateCommand(interp, "resolveIn", ay_instt_resolvetcmd,
-		     (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "resolveIn", (Tcl_CmdProc *)ay_instt_resolvetcmd,
+		     NULL, NULL);
 
-  Tcl_CreateCommand(interp, "getMaster", ay_instt_getmastertcmd,
-		     (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "getMaster", (Tcl_CmdProc *)ay_instt_getmastertcmd,
+		     NULL, NULL);
 
   /* notify.c */
-  Tcl_CreateCommand(interp, "forceNot", ay_notify_forcetcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "forceNot", (Tcl_CmdProc *)ay_notify_forcetcmd,
+		    NULL, NULL);
 
   /* object.c */
-  Tcl_CreateCommand(interp, "crtOb", ay_object_createtcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "crtOb", (Tcl_CmdProc *)ay_object_createtcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "delOb", ay_object_deletetcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "delOb", (Tcl_CmdProc *)ay_object_deletetcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "nameOb", ay_object_setnametcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "nameOb", (Tcl_CmdProc *)ay_object_setnametcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "hasChild", ay_object_haschildtcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "hasChild", (Tcl_CmdProc *)ay_object_haschildtcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "getType", ay_object_gettypetcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "getType", (Tcl_CmdProc *)ay_object_gettypetcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "getName", ay_object_getnametcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "getName", (Tcl_CmdProc *)ay_object_getnametcmd,
+		    NULL, NULL);
 
   /* pomesht.c */
-  Tcl_CreateCommand(interp, "mergePo", ay_pomesht_mergetcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
-  Tcl_CreateCommand(interp, "optiPo", ay_pomesht_optimizetcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
-  Tcl_CreateCommand(interp, "splitPo", ay_pomesht_splittcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "mergePo", (Tcl_CmdProc *)ay_pomesht_mergetcmd,
+		    NULL, NULL);
+  Tcl_CreateCommand(interp, "optiPo", (Tcl_CmdProc *)ay_pomesht_optimizetcmd,
+		    NULL, NULL);
+  Tcl_CreateCommand(interp, "splitPo", (Tcl_CmdProc *)ay_pomesht_splittcmd,
+		    NULL, NULL);
 
   /* prop.c */
-  Tcl_CreateCommand(interp, "setProp", ay_prop_settcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "setProp", (Tcl_CmdProc *)ay_prop_settcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "getProp", ay_prop_gettcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "getProp", (Tcl_CmdProc *)ay_prop_gettcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "setTrafo", ay_prop_settrafotcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "setTrafo", (Tcl_CmdProc *)ay_prop_settrafotcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "getTrafo", ay_prop_gettrafotcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "getTrafo", (Tcl_CmdProc *)ay_prop_gettrafotcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "setAttr", ay_prop_setattrtcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "setAttr", (Tcl_CmdProc *)ay_prop_setattrtcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "getAttr", ay_prop_getattrtcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "getAttr", (Tcl_CmdProc *)ay_prop_getattrtcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "setMat", ay_prop_setmattcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "setMat", (Tcl_CmdProc *)ay_prop_setmattcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "getMat", ay_prop_getmattcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "getMat", (Tcl_CmdProc *)ay_prop_getmattcmd,
+		    NULL, NULL);
 
   /* prefs.c */
-  Tcl_CreateCommand(interp, "setPrefs", ay_prefs_settcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "setPrefs", (Tcl_CmdProc *)ay_prefs_settcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "getPrefs", ay_prefs_gettcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "getPrefs", (Tcl_CmdProc *)ay_prefs_gettcmd,
+		    NULL, NULL);
 
   /* read.c */
-  Tcl_CreateCommand(interp, "replaceScene", ay_read_replacetcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "replaceScene", (Tcl_CmdProc *)ay_read_replacetcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "insertScene", ay_read_inserttcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "insertScene", (Tcl_CmdProc *)ay_read_inserttcmd,
+		    NULL, NULL);
 
 
   /* sel.c */
-  Tcl_CreateCommand(interp, "selOb", ay_sel_setfromlbtcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "selOb", (Tcl_CmdProc *)ay_sel_setfromlbtcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "getSel", ay_sel_getseltcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "getSel", (Tcl_CmdProc *)ay_sel_getseltcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "hSL", ay_sel_hsltcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "hSL", (Tcl_CmdProc *)ay_sel_hsltcmd,
+		    NULL, NULL);
 
 
   /* shader.c */
-  Tcl_CreateCommand(interp, "shaderScanSLC", ay_shader_scanslctcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "shaderScanSLC", (Tcl_CmdProc *)ay_shader_scanslctcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "shaderScanSLX", ay_shader_scanslxtcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "shaderScanSLX", (Tcl_CmdProc *)ay_shader_scanslxtcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "shaderSet", ay_shader_settcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "shaderSet", (Tcl_CmdProc *)ay_shader_settcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "shaderGet", ay_shader_gettcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "shaderGet", (Tcl_CmdProc *)ay_shader_gettcmd,
+		    NULL, NULL);
 
   /* tags.c */
-  Tcl_CreateCommand(interp, "tagIsTemp", ay_tags_istemptcmd,
-		      (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
-  Tcl_CreateCommand(interp, "setTags", ay_tags_settcmd,
-		      (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
-  Tcl_CreateCommand(interp, "addTag", ay_tags_addtcmd,
-		      (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
-  Tcl_CreateCommand(interp, "getTags", ay_tags_gettcmd,
-		      (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
-  Tcl_CreateCommand(interp, "delTags", ay_tags_deletetcmd,
-		      (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "tagIsTemp", (Tcl_CmdProc *)ay_tags_istemptcmd,
+		      NULL, NULL);
+  Tcl_CreateCommand(interp, "setTags", (Tcl_CmdProc *)ay_tags_settcmd,
+		      NULL, NULL);
+  Tcl_CreateCommand(interp, "addTag", (Tcl_CmdProc *)ay_tags_addtcmd,
+		      NULL, NULL);
+  Tcl_CreateCommand(interp, "getTags", (Tcl_CmdProc *)ay_tags_gettcmd,
+		      NULL, NULL);
+  Tcl_CreateCommand(interp, "delTags", (Tcl_CmdProc *)ay_tags_deletetcmd,
+		      NULL, NULL);
 
   /* tcmd.c */
-  Tcl_CreateCommand(interp, "revert", ay_tcmd_reverttcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "revert", (Tcl_CmdProc *)ay_tcmd_reverttcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "show", ay_tcmd_showtcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "show", (Tcl_CmdProc *)ay_tcmd_showtcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "hide", ay_tcmd_hidetcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "hide", (Tcl_CmdProc *)ay_tcmd_hidetcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "getVersion", ay_tcmd_getvertcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "getVersion", (Tcl_CmdProc *)ay_tcmd_getvertcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "getPnt", ay_tcmd_getpointtcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "getPnt", (Tcl_CmdProc *)ay_tcmd_getpointtcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "setPnt", ay_tcmd_setpointtcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "setPnt", (Tcl_CmdProc *)ay_tcmd_setpointtcmd,
+		    NULL, NULL);
 
 #ifdef AYENABLEWAIT
-  Tcl_CreateCommand(interp, "waitPid", ay_tcmd_waitpidtcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "waitPid", (Tcl_CmdProc *)ay_tcmd_waitpidtcmd,
+		    NULL, NULL);
 #endif /* AYENABLEWAIT */
 
 #ifdef AYENABLEFEXIT
-  Tcl_CreateCommand(interp, "fastExit", ay_tcmd_fastexittcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "fastExit", (Tcl_CmdProc *)ay_tcmd_fastexittcmd,
+		    NULL, NULL);
 #endif /* AYENABLEFEXIT */
 
-  Tcl_CreateCommand(interp, "withOb", ay_tcmd_withobtcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "withOb", (Tcl_CmdProc *)ay_tcmd_withobtcmd,
+		    NULL, NULL);
 
   /* tmp.c */
-  Tcl_CreateCommand(interp, "tmpGet", ay_tmp_gettcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "tmpGet", (Tcl_CmdProc *)ay_tmp_gettcmd,
+		    NULL, NULL);
 
   /* trafo.c */
-  Tcl_CreateCommand(interp, "delegTrafo", ay_trafo_delegatetcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "delegTrafo", (Tcl_CmdProc *)ay_trafo_delegatetcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "movOb", ay_trafo_movobtcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "movOb", (Tcl_CmdProc *)ay_trafo_movobtcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "movSel", ay_trafo_movseltcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "movSel", (Tcl_CmdProc *)ay_trafo_movseltcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "scalOb", ay_trafo_scalobtcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "scalOb", (Tcl_CmdProc *)ay_trafo_scalobtcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "scalSel", ay_trafo_scalseltcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "scalSel", (Tcl_CmdProc *)ay_trafo_scalseltcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "rotOb", ay_trafo_rotobtcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "rotOb", (Tcl_CmdProc *)ay_trafo_rotobtcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "rotSel", ay_trafo_rotseltcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "rotSel", (Tcl_CmdProc *)ay_trafo_rotseltcmd,
+		    NULL, NULL);
 
   /* oact.c */
   Togl_CreateCommand("moveoac", ay_oact_movetcb);
@@ -842,8 +842,8 @@
   /* objsel.c */
   Togl_CreateCommand("processObjSel", ay_objsel_processcb);
 
-  Tcl_CreateCommand(interp, "getNameFromNode", ay_objsel_getnmfrmndtcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "getNameFromNode", (Tcl_CmdProc *)ay_objsel_getnmfrmndtcmd,
+		    NULL, NULL);
 
   /* pact.c */
   Togl_CreateCommand("selpac", ay_pact_seltcb);
@@ -864,25 +864,25 @@
 
   Togl_CreateCommand("wrpac", ay_pact_wrtcb);
 
-  Tcl_CreateCommand(interp, "centerPnts", ay_pact_centertcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "centerPnts", (Tcl_CmdProc *)ay_pact_centertcmd,
+		    NULL, NULL);
 
   Togl_CreateCommand("snapac", ay_pact_snaptogridcb);
 
 
   /* selp.c */
-  Tcl_CreateCommand(interp, "selPoints", ay_selp_selalltcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "selPoints", (Tcl_CmdProc *)ay_selp_selalltcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "applyTrafo", ay_selp_applytrafotcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "applyTrafo", (Tcl_CmdProc *)ay_selp_applytrafotcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "invSelPoints", ay_selp_inverttcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "invSelPoints", (Tcl_CmdProc *)ay_selp_inverttcmd,
+		    NULL, NULL);
 
   /* undo.c */
-  Tcl_CreateCommand(interp, "undo", ay_undo_undotcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "undo", (Tcl_CmdProc *)ay_undo_undotcmd,
+		    NULL, NULL);
 
   /* vact.c */
   Togl_CreateCommand("movevac", ay_vact_movetcb);
@@ -913,150 +913,150 @@
   /* w32t.c */
 #ifdef WIN32
   Tcl_CreateCommand(interp, "w32kill", ay_w32t_w32killtcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+		    NULL, NULL);
 #endif
 
   /* wrib.c */
   Togl_CreateCommand("wrib", ay_wrib_cb);
 
-  Tcl_CreateCommand(interp, "wrib", ay_wrib_tcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "wrib", (Tcl_CmdProc *)ay_wrib_tcmd,
+		    NULL, NULL);
 
   /* write.c */
-  Tcl_CreateCommand(interp, "saveScene", ay_write_scenetcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "saveScene", (Tcl_CmdProc *)ay_write_scenetcmd,
+		    NULL, NULL);
 
 
   /* contrib/tree.c */
   /*
   Tcl_CreateCommand(interp, "treeInit", ay_tree_inittcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+		    NULL, NULL);
   */
   /* NURBS */
 
   /* nurbs/nct.c */
-  Tcl_CreateCommand(interp, "refineNC", ay_nct_refinetcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "refineNC", (Tcl_CmdProc *)ay_nct_refinetcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "coarsenNC", ay_nct_coarsentcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "coarsenNC", (Tcl_CmdProc *)ay_nct_coarsentcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "clampNC", ay_nct_clamptcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "clampNC", (Tcl_CmdProc *)ay_nct_clamptcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "elevateNC", ay_nct_elevatetcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "elevateNC", (Tcl_CmdProc *)ay_nct_elevatetcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "insknNC", ay_nct_insertkntcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "insknNC", (Tcl_CmdProc *)ay_nct_insertkntcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "remknNC", ay_nct_removekntcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "remknNC", (Tcl_CmdProc *)ay_nct_removekntcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "collMP", ay_nct_collapsetcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "collMP", (Tcl_CmdProc *)ay_nct_collapsetcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "explMP", ay_nct_explodetcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "explMP", (Tcl_CmdProc *)ay_nct_explodetcmd,
+		    NULL, NULL);
 
   Togl_CreateCommand("finduac", ay_nct_finducb);
 
-  Tcl_CreateCommand(interp, "splitNC", ay_nct_splittcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "splitNC", (Tcl_CmdProc *)ay_nct_splittcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "concatNC", ay_nct_concattcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "concatNC", (Tcl_CmdProc *)ay_nct_concattcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "crtNCircle", ay_nct_crtncircletcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "crtNCircle", (Tcl_CmdProc *)ay_nct_crtncircletcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "crtNRect", ay_nct_crtrecttcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "crtNRect", (Tcl_CmdProc *)ay_nct_crtrecttcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "crtClosedBS", ay_nct_crtclosedbsptcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "crtClosedBS", (Tcl_CmdProc *)ay_nct_crtclosedbsptcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "rescaleKnNC", ay_nct_rescaleknvnctcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "rescaleKnNC", (Tcl_CmdProc *)ay_nct_rescaleknvnctcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "curvPlot", ay_nct_curvplottcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "curvPlot", (Tcl_CmdProc *)ay_nct_curvplottcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "shiftClosedBS", ay_nct_shiftcbstcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "shiftClosedBS", (Tcl_CmdProc *)ay_nct_shiftcbstcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "toXYNC", ay_nct_toxytcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "toXYNC", (Tcl_CmdProc *)ay_nct_toxytcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "makeCompNC", ay_nct_makecomptcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "makeCompNC", (Tcl_CmdProc *)ay_nct_makecomptcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "centerNC", ay_nct_centertcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "centerNC", (Tcl_CmdProc *)ay_nct_centertcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "trimNC", ay_nct_trimtcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "trimNC", (Tcl_CmdProc *)ay_nct_trimtcmd,
+		    NULL, NULL);
 
   /* nurbs/npt.c */
-  Tcl_CreateCommand(interp, "crtNSphere", ay_npt_crtnspheretcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "crtNSphere", (Tcl_CmdProc *)ay_npt_crtnspheretcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "crtNSphere2", ay_npt_crtnsphere2tcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "crtNSphere2", (Tcl_CmdProc *)ay_npt_crtnsphere2tcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "splitNP", ay_npt_splittocurvestcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "splitNP", (Tcl_CmdProc *)ay_npt_splittocurvestcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "buildNP", ay_npt_buildfromcurvestcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "buildNP", (Tcl_CmdProc *)ay_npt_buildfromcurvestcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "topoly", ay_tess_npatchtcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "topoly", (Tcl_CmdProc *)ay_tess_npatchtcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "elevateNPU", ay_npt_elevateutcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "elevateNPU", (Tcl_CmdProc *)ay_npt_elevateutcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "elevateNPV", ay_npt_elevatevtcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "elevateNPV", (Tcl_CmdProc *)ay_npt_elevatevtcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "swapUV", ay_npt_swapuvtcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "swapUV", (Tcl_CmdProc *)ay_npt_swapuvtcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "revertU", ay_npt_revertutcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "revertU", (Tcl_CmdProc *)ay_npt_revertutcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "revertV", ay_npt_revertvtcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "revertV", (Tcl_CmdProc *)ay_npt_revertvtcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "closeNPU", ay_npt_closeutcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "closeNPU", (Tcl_CmdProc *)ay_npt_closeutcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "closeNPV", ay_npt_closevtcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "closeNPV", (Tcl_CmdProc *)ay_npt_closevtcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "clampNPU", ay_npt_clamputcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "clampNPU", (Tcl_CmdProc *)ay_npt_clamputcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "clampNPV", ay_npt_clampvtcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "clampNPV", (Tcl_CmdProc *)ay_npt_clampvtcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "rescaleKnNP", ay_npt_rescaleknvnptcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "rescaleKnNP", (Tcl_CmdProc *)ay_npt_rescaleknvnptcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "insknNPU", ay_npt_insertknutcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "insknNPU", (Tcl_CmdProc *)ay_npt_insertknutcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "insknNPV", ay_npt_insertknvtcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "insknNPV", (Tcl_CmdProc *)ay_npt_insertknvtcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "splitNPU", ay_npt_splitutcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "splitNPU", (Tcl_CmdProc *)ay_npt_splitutcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "splitNPV", ay_npt_splitvtcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "splitNPV", (Tcl_CmdProc *)ay_npt_splitvtcmd,
+		    NULL, NULL);
 
-  Tcl_CreateCommand(interp, "extrNP", ay_npt_extractnptcmd,
-		    (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+  Tcl_CreateCommand(interp, "extrNP", (Tcl_CmdProc *)ay_npt_extractnptcmd,
+		    NULL, NULL);
 
 /* inform Tcl-context about compile time configuration: */