ruby-dcl 1.8.1 → 1.8.2
Sign up to get free protection for your applications and to get access to all the features.
- checksums.yaml +5 -5
- data/ChangeLog +97 -14
- data/LICENSE.txt +1 -1
- data/demo/gokuraku/jump/jump2.rb +1 -1
- data/demo/grph1/sgpack/sgfont.rb +1 -1
- data/demo/grph1/sgpack/sgfonz.rb +1 -1
- data/demo/grph1/sgpack/sgpk07.rb +8 -6
- data/demo/grph1/slpack/slpk04.rb +1 -1
- data/demo/grph2/udegpk/u2df03.rb +2 -2
- data/demo/grph2/umpack/test04.rb +1 -1
- data/demo/grph2/umpack/test05r.rb +86 -0
- data/demo/grph2/uspack/uspk06.rb +1 -1
- data/demo/grph2/uspack/uspk08.rb +1 -1
- data/demo/grph2/ximage/ximg01.rb +1 -1
- data/demo/misc2/tmpack/tmpk01.rb +46 -0
- data/demo/misc2/tmpack/tmpk02.rb +58 -0
- data/demo/misc2/tmpack/tmpk03.rb +56 -0
- data/demo/rakuraku/color/color2.rb +4 -3
- data/demo/rakuraku/kihon/kihon7.rb +9 -3
- data/demo/rakuraku/kihon/kihonb.rb +11 -9
- data/demo/rakuraku/uspack/uspac1.rb +1 -1
- data/demo/rakuraku/uspack/uspac3.rb +1 -1
- data/ext/numru/dcl_cary2obj.c +1 -1
- data/ext/numru/dcl_narrayed_funcs.c +21 -21
- data/ext/numru/dcl_obj2cary.c +1 -1
- data/ext/numru/dcl_rubydcloriginal.c +0 -1
- data/ext/numru/extconf.rb +28 -9
- data/ext/numru/grph1_csgi.c +29 -3
- data/ext/numru/grph1_scpack.c +40 -41
- data/ext/numru/grph1_sgpack.c +158 -159
- data/ext/numru/grph1_slpack.c +14 -15
- data/ext/numru/grph1_stpack.c +35 -36
- data/ext/numru/grph1_swpack.c +89 -90
- data/ext/numru/grph2_grpack.c +13 -14
- data/ext/numru/grph2_ucpack.c +46 -47
- data/ext/numru/grph2_udpack.c +52 -53
- data/ext/numru/grph2_uepack.c +51 -52
- data/ext/numru/grph2_ugpack.c +40 -41
- data/ext/numru/grph2_uhpack.c +16 -17
- data/ext/numru/grph2_uipack.c +48 -49
- data/ext/numru/grph2_ulpack.c +50 -51
- data/ext/numru/grph2_umpack.c +66 -67
- data/ext/numru/grph2_uspack.c +88 -89
- data/ext/numru/grph2_uupack.c +69 -70
- data/ext/numru/grph2_uvpack.c +16 -17
- data/ext/numru/grph2_uwpack.c +21 -22
- data/ext/numru/grph2_uxpack.c +14 -15
- data/ext/numru/grph2_uypack.c +14 -15
- data/ext/numru/grph2_uzpack.c +60 -61
- data/ext/numru/init.c.default +5 -2
- data/ext/numru/math1_blklib.c +4 -5
- data/ext/numru/math1_chrlib.c +7 -8
- data/ext/numru/math1_clsplib.c +4 -5
- data/ext/numru/math1_fnclib.c +7 -8
- data/ext/numru/math1_gnmlib.c +12 -13
- data/ext/numru/math1_gt2dlib.c +9 -10
- data/ext/numru/math1_ifalib.c +9 -10
- data/ext/numru/math1_indxlib.c +15 -16
- data/ext/numru/math1_intlib.c +4 -5
- data/ext/numru/math1_lrllib.c +24 -25
- data/ext/numru/math1_maplib.c +5 -6
- data/ext/numru/math1_oslib.c +2 -3
- data/ext/numru/math1_rfalib.c +30 -31
- data/ext/numru/math1_rfblib.c +3 -4
- data/ext/numru/math1_sublib.c +4 -5
- data/ext/numru/math1_syslib.c +73 -74
- data/ext/numru/math1_vialib.c +22 -23
- data/ext/numru/math1_viblib.c +15 -16
- data/ext/numru/math1_vralib.c +22 -23
- data/ext/numru/math1_vrblib.c +15 -16
- data/ext/numru/math1_xfclib.c +3 -4
- data/ext/numru/math2_fftlib.c +19 -20
- data/ext/numru/math2_intrlib.c +2 -3
- data/ext/numru/math2_rnmlib.c +3 -4
- data/ext/numru/math2_shtlib.c +25 -26
- data/ext/numru/math2_vstlib.c +6 -7
- data/ext/numru/misc1_chnlib.c +3 -4
- data/ext/numru/misc1_datelib.c +27 -28
- data/ext/numru/misc1_fmtlib.c +1 -2
- data/ext/numru/misc1_misclib.c +2 -3
- data/ext/numru/misc1_randlib.c +4 -5
- data/ext/numru/misc1_timelib.c +11 -12
- data/ext/numru/misc2_tmpack.c +1200 -0
- data/lib/numru/dcl/dcl.rb +73 -1
- data/lib/numru/dcl/version.rb +1 -1
- data/ruby-dcl.gemspec +2 -2
- metadata +12 -4
data/ext/numru/grph1_slpack.c
CHANGED
@@ -4,7 +4,6 @@
|
|
4
4
|
|
5
5
|
#include <stdio.h>
|
6
6
|
#include "ruby.h"
|
7
|
-
#include "libtinyf2c.h"
|
8
7
|
#include "narray.h"
|
9
8
|
#include "cdcl.h"
|
10
9
|
|
@@ -89,7 +88,7 @@ dcl_slinit(obj, wxmax, wymax, fact)
|
|
89
88
|
i_fact = (real)NUM2DBL(fact);
|
90
89
|
|
91
90
|
|
92
|
-
|
91
|
+
slinit__(&i_wxmax, &i_wymax, &i_fact);
|
93
92
|
|
94
93
|
return Qnil;
|
95
94
|
|
@@ -108,7 +107,7 @@ dcl_slsize(obj, cszez)
|
|
108
107
|
i_cszez = StringValuePtr(cszez);
|
109
108
|
|
110
109
|
|
111
|
-
|
110
|
+
slsize__(i_cszez, (ftnlen)strlen(i_cszez));
|
112
111
|
|
113
112
|
return Qnil;
|
114
113
|
|
@@ -132,7 +131,7 @@ dcl_slform(obj, dxa, dya)
|
|
132
131
|
i_dya = (real)NUM2DBL(dya);
|
133
132
|
|
134
133
|
|
135
|
-
|
134
|
+
slform__(&i_dxa, &i_dya);
|
136
135
|
|
137
136
|
return Qnil;
|
138
137
|
|
@@ -161,7 +160,7 @@ dcl_sldiv(obj, cform, ix, iy)
|
|
161
160
|
i_iy = NUM2INT(iy);
|
162
161
|
|
163
162
|
|
164
|
-
|
163
|
+
sldiv__(i_cform, &i_ix, &i_iy, (ftnlen)strlen(i_cform));
|
165
164
|
|
166
165
|
return Qnil;
|
167
166
|
|
@@ -195,7 +194,7 @@ dcl_slmgn(obj, xl, xr, yb, yt)
|
|
195
194
|
i_yt = (real)NUM2DBL(yt);
|
196
195
|
|
197
196
|
|
198
|
-
|
197
|
+
slmgn__(&i_xl, &i_xr, &i_yb, &i_yt);
|
199
198
|
|
200
199
|
return Qnil;
|
201
200
|
|
@@ -219,7 +218,7 @@ dcl_slrat(obj, rx, ry)
|
|
219
218
|
i_ry = (real)NUM2DBL(ry);
|
220
219
|
|
221
220
|
|
222
|
-
|
221
|
+
slrat__(&i_rx, &i_ry);
|
223
222
|
|
224
223
|
return Qnil;
|
225
224
|
|
@@ -263,7 +262,7 @@ dcl_slsttl(obj, cttl, cside, px, py, ht, nt)
|
|
263
262
|
i_nt = NUM2INT(nt);
|
264
263
|
|
265
264
|
|
266
|
-
|
265
|
+
slsttl__(i_cttl, i_cside, &i_px, &i_py, &i_ht, &i_nt, (ftnlen)strlen(i_cttl), (ftnlen)strlen(i_cside));
|
267
266
|
|
268
267
|
return Qnil;
|
269
268
|
|
@@ -282,7 +281,7 @@ dcl_sldttl(obj, nt)
|
|
282
281
|
i_nt = NUM2INT(nt);
|
283
282
|
|
284
283
|
|
285
|
-
|
284
|
+
sldttl__(&i_nt);
|
286
285
|
|
287
286
|
return Qnil;
|
288
287
|
|
@@ -301,7 +300,7 @@ dcl_slpvpr(obj, index)
|
|
301
300
|
i_index = NUM2INT(index);
|
302
301
|
|
303
302
|
|
304
|
-
|
303
|
+
slpvpr__(&i_index);
|
305
304
|
|
306
305
|
return Qnil;
|
307
306
|
|
@@ -320,7 +319,7 @@ dcl_slpwwr(obj, index)
|
|
320
319
|
i_index = NUM2INT(index);
|
321
320
|
|
322
321
|
|
323
|
-
|
322
|
+
slpwwr__(&i_index);
|
324
323
|
|
325
324
|
return Qnil;
|
326
325
|
|
@@ -339,7 +338,7 @@ dcl_slpwvr(obj, index)
|
|
339
338
|
i_index = NUM2INT(index);
|
340
339
|
|
341
340
|
|
342
|
-
|
341
|
+
slpwvr__(&i_index);
|
343
342
|
|
344
343
|
return Qnil;
|
345
344
|
|
@@ -363,7 +362,7 @@ dcl_slpvpc(obj, index, rc)
|
|
363
362
|
i_rc = (real)NUM2DBL(rc);
|
364
363
|
|
365
364
|
|
366
|
-
|
365
|
+
slpvpc__(&i_index, &i_rc);
|
367
366
|
|
368
367
|
return Qnil;
|
369
368
|
|
@@ -387,7 +386,7 @@ dcl_slpwwc(obj, index, rc)
|
|
387
386
|
i_rc = (real)NUM2DBL(rc);
|
388
387
|
|
389
388
|
|
390
|
-
|
389
|
+
slpwwc__(&i_index, &i_rc);
|
391
390
|
|
392
391
|
return Qnil;
|
393
392
|
|
@@ -411,7 +410,7 @@ dcl_slpwvc(obj, index, rc)
|
|
411
410
|
i_rc = (real)NUM2DBL(rc);
|
412
411
|
|
413
412
|
|
414
|
-
|
413
|
+
slpwvc__(&i_index, &i_rc);
|
415
414
|
|
416
415
|
return Qnil;
|
417
416
|
|
data/ext/numru/grph1_stpack.c
CHANGED
@@ -4,7 +4,6 @@
|
|
4
4
|
|
5
5
|
#include <stdio.h>
|
6
6
|
#include "ruby.h"
|
7
|
-
#include "libtinyf2c.h"
|
8
7
|
#include "narray.h"
|
9
8
|
#include "cdcl.h"
|
10
9
|
|
@@ -73,7 +72,7 @@ dcl_stqtrf(obj)
|
|
73
72
|
logical o_lmapa;
|
74
73
|
VALUE lmapa;
|
75
74
|
|
76
|
-
|
75
|
+
stqtrf__(&o_lmapa);
|
77
76
|
|
78
77
|
lmapa = (o_lmapa == FALSE_) ? Qfalse : Qtrue;
|
79
78
|
|
@@ -91,7 +90,7 @@ dcl_ststrf(obj, lmapa)
|
|
91
90
|
i_lmapa = ((lmapa == Qnil)||(lmapa == Qfalse)) ? FALSE_ : TRUE_;
|
92
91
|
|
93
92
|
|
94
|
-
|
93
|
+
ststrf__(&i_lmapa);
|
95
94
|
|
96
95
|
return Qnil;
|
97
96
|
|
@@ -119,7 +118,7 @@ dcl_stftrn(obj, ux, uy)
|
|
119
118
|
i_uy = (real)NUM2DBL(uy);
|
120
119
|
|
121
120
|
|
122
|
-
|
121
|
+
stftrn__(&i_ux, &i_uy, &o_vx, &o_vy);
|
123
122
|
|
124
123
|
vx = rb_float_new((double)o_vx);
|
125
124
|
vy = rb_float_new((double)o_vy);
|
@@ -151,7 +150,7 @@ dcl_stitrn(obj, vx, vy)
|
|
151
150
|
i_vy = (real)NUM2DBL(vy);
|
152
151
|
|
153
152
|
|
154
|
-
|
153
|
+
stitrn__(&i_vx, &i_vy, &o_ux, &o_uy);
|
155
154
|
|
156
155
|
ux = rb_float_new((double)o_ux);
|
157
156
|
uy = rb_float_new((double)o_uy);
|
@@ -176,7 +175,7 @@ dcl_ststri(obj, itr)
|
|
176
175
|
i_itr = NUM2INT(itr);
|
177
176
|
|
178
177
|
|
179
|
-
|
178
|
+
ststri__(&i_itr);
|
180
179
|
|
181
180
|
return Qnil;
|
182
181
|
|
@@ -214,7 +213,7 @@ dcl_ststrp(obj, cxa, cya, vxoff, vyoff)
|
|
214
213
|
i_vyoff = (real)NUM2DBL(vyoff);
|
215
214
|
|
216
215
|
|
217
|
-
|
216
|
+
ststrp__(&i_cxa, &i_cya, &i_vxoff, &i_vyoff);
|
218
217
|
|
219
218
|
return Qnil;
|
220
219
|
|
@@ -255,7 +254,7 @@ dcl_ststrn(obj, itr, cxa, cya, vxoff, vyoff)
|
|
255
254
|
i_vyoff = (real)NUM2DBL(vyoff);
|
256
255
|
|
257
256
|
|
258
|
-
|
257
|
+
ststrn__(&i_itr, &i_cxa, &i_cya, &i_vxoff, &i_vyoff);
|
259
258
|
|
260
259
|
return Qnil;
|
261
260
|
|
@@ -283,7 +282,7 @@ dcl_stfrot(obj, ux, uy)
|
|
283
282
|
i_uy = (real)NUM2DBL(uy);
|
284
283
|
|
285
284
|
|
286
|
-
|
285
|
+
stfrot__(&i_ux, &i_uy, &o_tx, &o_ty);
|
287
286
|
|
288
287
|
tx = rb_float_new((double)o_tx);
|
289
288
|
ty = rb_float_new((double)o_ty);
|
@@ -315,7 +314,7 @@ dcl_stirot(obj, tx, ty)
|
|
315
314
|
i_ty = (real)NUM2DBL(ty);
|
316
315
|
|
317
316
|
|
318
|
-
|
317
|
+
stirot__(&i_tx, &i_ty, &o_ux, &o_uy);
|
319
318
|
|
320
319
|
ux = rb_float_new((double)o_ux);
|
321
320
|
uy = rb_float_new((double)o_uy);
|
@@ -348,7 +347,7 @@ dcl_stsrot(obj, theta, phi, psi)
|
|
348
347
|
i_psi = (real)NUM2DBL(psi);
|
349
348
|
|
350
349
|
|
351
|
-
|
350
|
+
stsrot__(&i_theta, &i_phi, &i_psi);
|
352
351
|
|
353
352
|
return Qnil;
|
354
353
|
|
@@ -376,7 +375,7 @@ dcl_stfrad(obj, x, y)
|
|
376
375
|
i_y = (real)NUM2DBL(y);
|
377
376
|
|
378
377
|
|
379
|
-
|
378
|
+
stfrad__(&i_x, &i_y, &o_rx, &o_ry);
|
380
379
|
|
381
380
|
rx = rb_float_new((double)o_rx);
|
382
381
|
ry = rb_float_new((double)o_ry);
|
@@ -408,7 +407,7 @@ dcl_stirad(obj, rx, ry)
|
|
408
407
|
i_ry = (real)NUM2DBL(ry);
|
409
408
|
|
410
409
|
|
411
|
-
|
410
|
+
stirad__(&i_rx, &i_ry, &o_x, &o_y);
|
412
411
|
|
413
412
|
x = rb_float_new((double)o_x);
|
414
413
|
y = rb_float_new((double)o_y);
|
@@ -429,7 +428,7 @@ dcl_stsrad(obj, lxdeg, lydeg)
|
|
429
428
|
i_lydeg = ((lydeg == Qnil)||(lydeg == Qfalse)) ? FALSE_ : TRUE_;
|
430
429
|
|
431
430
|
|
432
|
-
|
431
|
+
stsrad__(&i_lxdeg, &i_lydeg);
|
433
432
|
|
434
433
|
return Qnil;
|
435
434
|
|
@@ -459,7 +458,7 @@ dcl_stfusr(obj, xlon, ylat)
|
|
459
458
|
i_ylat = (real)NUM2DBL(ylat);
|
460
459
|
|
461
460
|
|
462
|
-
|
461
|
+
stfusr__(&i_xlon, &i_ylat, &o_xx, &o_yy);
|
463
462
|
|
464
463
|
xx = rb_float_new((double)o_xx);
|
465
464
|
yy = rb_float_new((double)o_yy);
|
@@ -493,7 +492,7 @@ dcl_stfusr(obj, ux, uy)
|
|
493
492
|
i_uy = (real)NUM2DBL(uy);
|
494
493
|
|
495
494
|
|
496
|
-
|
495
|
+
stfusr__(&i_ux, &i_uy, &o_xx, &o_yy);
|
497
496
|
|
498
497
|
xx = rb_float_new((double)o_xx);
|
499
498
|
yy = rb_float_new((double)o_yy);
|
@@ -529,7 +528,7 @@ dcl_stiusr(obj, xx, yy)
|
|
529
528
|
i_yy = (real)NUM2DBL(yy);
|
530
529
|
|
531
530
|
|
532
|
-
|
531
|
+
stiusr__(&i_xx, &i_yy, &o_xlon, &o_ylat);
|
533
532
|
|
534
533
|
xlon = rb_float_new((double)o_xlon);
|
535
534
|
ylat = rb_float_new((double)o_ylat);
|
@@ -563,7 +562,7 @@ dcl_stiusr(obj, xx, yy)
|
|
563
562
|
i_yy = (real)NUM2DBL(yy);
|
564
563
|
|
565
564
|
|
566
|
-
|
565
|
+
stiusr__(&i_xx, &i_yy, &o_ux, &o_uy);
|
567
566
|
|
568
567
|
ux = rb_float_new((double)o_ux);
|
569
568
|
uy = rb_float_new((double)o_uy);
|
@@ -579,7 +578,7 @@ static VALUE
|
|
579
578
|
dcl_stsusr(obj)
|
580
579
|
VALUE obj;
|
581
580
|
{
|
582
|
-
|
581
|
+
stsusr__();
|
583
582
|
|
584
583
|
return Qnil;
|
585
584
|
|
@@ -600,7 +599,7 @@ dcl_stnusr(obj, kproj)
|
|
600
599
|
i_kproj = NUM2INT(kproj);
|
601
600
|
|
602
601
|
|
603
|
-
|
602
|
+
stnusr__(&i_kproj);
|
604
603
|
|
605
604
|
return Qnil;
|
606
605
|
|
@@ -627,7 +626,7 @@ dcl_stcusr(obj, i)
|
|
627
626
|
o_cttl= ALLOCA_N(char, (DFLT_SIZE+1));
|
628
627
|
memset(o_cttl, '\0', DFLT_SIZE+1);
|
629
628
|
|
630
|
-
|
629
|
+
stcusr__(&i_i, o_cttl, (ftnlen)DFLT_SIZE);
|
631
630
|
|
632
631
|
cttl = rb_str_new2(o_cttl);
|
633
632
|
|
@@ -660,7 +659,7 @@ dcl_stfwtr(obj, rx, ry)
|
|
660
659
|
i_ry = (real)NUM2DBL(ry);
|
661
660
|
|
662
661
|
|
663
|
-
|
662
|
+
stfwtr__(&i_rx, &i_ry, &o_wx, &o_wy);
|
664
663
|
|
665
664
|
wx = rb_float_new((double)o_wx);
|
666
665
|
wy = rb_float_new((double)o_wy);
|
@@ -692,7 +691,7 @@ dcl_stiwtr(obj, wx, wy)
|
|
692
691
|
i_wy = (real)NUM2DBL(wy);
|
693
692
|
|
694
693
|
|
695
|
-
|
694
|
+
stiwtr__(&i_wx, &i_wy, &o_rx, &o_ry);
|
696
695
|
|
697
696
|
rx = rb_float_new((double)o_rx);
|
698
697
|
ry = rb_float_new((double)o_ry);
|
@@ -755,7 +754,7 @@ dcl_stswtr(obj, rxmin, rxmax, rymin, rymax, wxmin, wxmax, wymin, wymax, iwtrf)
|
|
755
754
|
i_iwtrf = NUM2INT(iwtrf);
|
756
755
|
|
757
756
|
|
758
|
-
|
757
|
+
stswtr__(&i_rxmin, &i_rxmax, &i_rymin, &i_rymax, &i_wxmin, &i_wxmax, &i_wymin, &i_wymax, &i_iwtrf);
|
759
758
|
|
760
759
|
return Qnil;
|
761
760
|
|
@@ -784,7 +783,7 @@ dcl_stqwtr(obj)
|
|
784
783
|
VALUE wymax;
|
785
784
|
VALUE iwtrf;
|
786
785
|
|
787
|
-
|
786
|
+
stqwtr__(&o_rxmin, &o_rxmax, &o_rymin, &o_rymax, &o_wxmin, &o_wxmax, &o_wymin, &o_wymax, &o_iwtrf);
|
788
787
|
|
789
788
|
rxmin = rb_float_new((double)o_rxmin);
|
790
789
|
rxmax = rb_float_new((double)o_rxmax);
|
@@ -829,7 +828,7 @@ dcl_stswrc(obj, wsxmn, wsxmx, wsymn, wsymx)
|
|
829
828
|
i_wsymx = (real)NUM2DBL(wsymx);
|
830
829
|
|
831
830
|
|
832
|
-
|
831
|
+
stswrc__(&i_wsxmn, &i_wsxmx, &i_wsymn, &i_wsymx);
|
833
832
|
|
834
833
|
return Qnil;
|
835
834
|
|
@@ -848,7 +847,7 @@ dcl_stqwrc(obj)
|
|
848
847
|
VALUE wsymn;
|
849
848
|
VALUE wsymx;
|
850
849
|
|
851
|
-
|
850
|
+
stqwrc__(&o_wsxmn, &o_wsxmx, &o_wsymn, &o_wsymx);
|
852
851
|
|
853
852
|
wsxmn = rb_float_new((double)o_wsxmn);
|
854
853
|
wsxmx = rb_float_new((double)o_wsxmx);
|
@@ -887,7 +886,7 @@ dcl_stfpr3(obj, x, y, z)
|
|
887
886
|
i_z = (real)NUM2DBL(z);
|
888
887
|
|
889
888
|
|
890
|
-
|
889
|
+
stfpr3__(&i_x, &i_y, &i_z, &o_rx, &o_ry);
|
891
890
|
|
892
891
|
rx = rb_float_new((double)o_rx);
|
893
892
|
ry = rb_float_new((double)o_ry);
|
@@ -955,7 +954,7 @@ dcl_stspr3(obj, xfc, yfc, zfc, theta, phi, psi, fac, zview, rxoff, ryoff)
|
|
955
954
|
i_ryoff = (real)NUM2DBL(ryoff);
|
956
955
|
|
957
956
|
|
958
|
-
|
957
|
+
stspr3__(&i_xfc, &i_yfc, &i_zfc, &i_theta, &i_phi, &i_psi, &i_fac, &i_zview, &i_rxoff, &i_ryoff);
|
959
958
|
|
960
959
|
return Qnil;
|
961
960
|
|
@@ -984,7 +983,7 @@ dcl_stspr2(obj, ix, iy, sect)
|
|
984
983
|
i_sect = (real)NUM2DBL(sect);
|
985
984
|
|
986
985
|
|
987
|
-
|
986
|
+
stspr2__(&i_ix, &i_iy, &i_sect);
|
988
987
|
|
989
988
|
return Qnil;
|
990
989
|
|
@@ -994,7 +993,7 @@ static VALUE
|
|
994
993
|
dcl_stepr2(obj)
|
995
994
|
VALUE obj;
|
996
995
|
{
|
997
|
-
|
996
|
+
stepr2__();
|
998
997
|
|
999
998
|
return Qnil;
|
1000
999
|
|
@@ -1004,7 +1003,7 @@ static VALUE
|
|
1004
1003
|
dcl_strpr2(obj)
|
1005
1004
|
VALUE obj;
|
1006
1005
|
{
|
1007
|
-
|
1006
|
+
strpr2__();
|
1008
1007
|
|
1009
1008
|
return Qnil;
|
1010
1009
|
|
@@ -1039,7 +1038,7 @@ dcl_stftr3(obj, ux, uy, uz)
|
|
1039
1038
|
i_uz = (real)NUM2DBL(uz);
|
1040
1039
|
|
1041
1040
|
|
1042
|
-
|
1041
|
+
stftr3__(&i_ux, &i_uy, &i_uz, &o_vx, &o_vy, &o_vz);
|
1043
1042
|
|
1044
1043
|
vx = rb_float_new((double)o_vx);
|
1045
1044
|
vy = rb_float_new((double)o_vy);
|
@@ -1093,7 +1092,7 @@ dcl_ststr3(obj, itr, cxa, cya, cza, vxoff, vyoff, vzoff)
|
|
1093
1092
|
i_vzoff = (real)NUM2DBL(vzoff);
|
1094
1093
|
|
1095
1094
|
|
1096
|
-
|
1095
|
+
ststr3__(&i_itr, &i_cxa, &i_cya, &i_cza, &i_vxoff, &i_vyoff, &i_vzoff);
|
1097
1096
|
|
1098
1097
|
return Qnil;
|
1099
1098
|
|
@@ -1112,7 +1111,7 @@ dcl_stsrd3(obj, lxrd, lyrd, lzrd)
|
|
1112
1111
|
i_lzrd = ((lzrd == Qnil)||(lzrd == Qfalse)) ? FALSE_ : TRUE_;
|
1113
1112
|
|
1114
1113
|
|
1115
|
-
|
1114
|
+
stsrd3__(&i_lxrd, &i_lyrd, &i_lzrd);
|
1116
1115
|
|
1117
1116
|
return Qnil;
|
1118
1117
|
|
@@ -1131,7 +1130,7 @@ dcl_stslg3(obj, lxlg, lylg, lzlg)
|
|
1131
1130
|
i_lzlg = ((lzlg == Qnil)||(lzlg == Qfalse)) ? FALSE_ : TRUE_;
|
1132
1131
|
|
1133
1132
|
|
1134
|
-
|
1133
|
+
stslg3__(&i_lxlg, &i_lylg, &i_lzlg);
|
1135
1134
|
|
1136
1135
|
return Qnil;
|
1137
1136
|
|