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_sgpack.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
|
|
@@ -79,7 +78,7 @@ dcl_sgopn(obj, iws)
|
|
79
78
|
i_iws = NUM2INT(iws);
|
80
79
|
|
81
80
|
|
82
|
-
|
81
|
+
sgopn__(&i_iws);
|
83
82
|
|
84
83
|
return Qnil;
|
85
84
|
|
@@ -89,7 +88,7 @@ static VALUE
|
|
89
88
|
dcl_sgfrm(obj)
|
90
89
|
VALUE obj;
|
91
90
|
{
|
92
|
-
|
91
|
+
sgfrm__();
|
93
92
|
|
94
93
|
return Qnil;
|
95
94
|
|
@@ -99,7 +98,7 @@ static VALUE
|
|
99
98
|
dcl_sgcls(obj)
|
100
99
|
VALUE obj;
|
101
100
|
{
|
102
|
-
|
101
|
+
sgcls__();
|
103
102
|
|
104
103
|
return Qnil;
|
105
104
|
|
@@ -112,7 +111,7 @@ dcl_sgpqnp(obj)
|
|
112
111
|
integer o_ncp;
|
113
112
|
VALUE ncp;
|
114
113
|
|
115
|
-
|
114
|
+
sgpqnp__(&o_ncp);
|
116
115
|
|
117
116
|
ncp = INT2NUM(o_ncp);
|
118
117
|
|
@@ -136,7 +135,7 @@ dcl_sgpqid(obj, cp)
|
|
136
135
|
i_cp = StringValuePtr(cp);
|
137
136
|
|
138
137
|
|
139
|
-
|
138
|
+
sgpqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
|
140
139
|
|
141
140
|
idx = INT2NUM(o_idx);
|
142
141
|
|
@@ -162,7 +161,7 @@ dcl_sgpqcp(obj, idx)
|
|
162
161
|
o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
|
163
162
|
memset(o_cp, '\0', DFLT_SIZE+1);
|
164
163
|
|
165
|
-
|
164
|
+
sgpqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
|
166
165
|
|
167
166
|
cp = rb_str_new2(o_cp);
|
168
167
|
|
@@ -188,7 +187,7 @@ dcl_sgpqcl(obj, idx)
|
|
188
187
|
o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
|
189
188
|
memset(o_cp, '\0', DFLT_SIZE+1);
|
190
189
|
|
191
|
-
|
190
|
+
sgpqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
|
192
191
|
|
193
192
|
cp = rb_str_new2(o_cp);
|
194
193
|
|
@@ -212,7 +211,7 @@ dcl_sgpqit(obj, idx)
|
|
212
211
|
i_idx = NUM2INT(idx);
|
213
212
|
|
214
213
|
|
215
|
-
|
214
|
+
sgpqit__(&i_idx, &o_itp);
|
216
215
|
|
217
216
|
itp = INT2NUM(o_itp);
|
218
217
|
|
@@ -236,7 +235,7 @@ dcl_sgpqvl(obj, idx)
|
|
236
235
|
i_idx = NUM2INT(idx);
|
237
236
|
|
238
237
|
|
239
|
-
|
238
|
+
sgpqvl__(&i_idx, &o_ipara);
|
240
239
|
|
241
240
|
ipara = INT2NUM(o_ipara);
|
242
241
|
|
@@ -263,7 +262,7 @@ dcl_sgpsvl(obj, idx, ipara)
|
|
263
262
|
i_ipara = NUM2INT(ipara);
|
264
263
|
|
265
264
|
|
266
|
-
|
265
|
+
sgpsvl__(&i_idx, &i_ipara);
|
267
266
|
|
268
267
|
return Qnil;
|
269
268
|
|
@@ -284,7 +283,7 @@ dcl_sgpqin(obj, cp)
|
|
284
283
|
i_cp = StringValuePtr(cp);
|
285
284
|
|
286
285
|
|
287
|
-
|
286
|
+
sgpqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
|
288
287
|
|
289
288
|
in = INT2NUM(o_in);
|
290
289
|
|
@@ -297,7 +296,7 @@ static VALUE
|
|
297
296
|
dcl_sgpwsn(obj)
|
298
297
|
VALUE obj;
|
299
298
|
{
|
300
|
-
|
299
|
+
sgpwsn__();
|
301
300
|
|
302
301
|
return Qnil;
|
303
302
|
|
@@ -331,7 +330,7 @@ dcl_sgsvpt(obj, vxmin, vxmax, vymin, vymax)
|
|
331
330
|
i_vymax = (real)NUM2DBL(vymax);
|
332
331
|
|
333
332
|
|
334
|
-
|
333
|
+
sgsvpt__(&i_vxmin, &i_vxmax, &i_vymin, &i_vymax);
|
335
334
|
|
336
335
|
return Qnil;
|
337
336
|
|
@@ -350,7 +349,7 @@ dcl_sgqvpt(obj)
|
|
350
349
|
VALUE vymin;
|
351
350
|
VALUE vymax;
|
352
351
|
|
353
|
-
|
352
|
+
sgqvpt__(&o_vxmin, &o_vxmax, &o_vymin, &o_vymax);
|
354
353
|
|
355
354
|
vxmin = rb_float_new((double)o_vxmin);
|
356
355
|
vxmax = rb_float_new((double)o_vxmax);
|
@@ -390,7 +389,7 @@ dcl_sgswnd(obj, uxmin, uxmax, uymin, uymax)
|
|
390
389
|
i_uymax = (real)NUM2DBL(uymax);
|
391
390
|
|
392
391
|
|
393
|
-
|
392
|
+
sgswnd__(&i_uxmin, &i_uxmax, &i_uymin, &i_uymax);
|
394
393
|
|
395
394
|
return Qnil;
|
396
395
|
|
@@ -409,7 +408,7 @@ dcl_sgqwnd(obj)
|
|
409
408
|
VALUE uymin;
|
410
409
|
VALUE uymax;
|
411
410
|
|
412
|
-
|
411
|
+
sgqwnd__(&o_uxmin, &o_uxmax, &o_uymin, &o_uymax);
|
413
412
|
|
414
413
|
uxmin = rb_float_new((double)o_uxmin);
|
415
414
|
uxmax = rb_float_new((double)o_uxmax);
|
@@ -444,7 +443,7 @@ dcl_sgssim(obj, simfac, vxoff, vyoff)
|
|
444
443
|
i_vyoff = (real)NUM2DBL(vyoff);
|
445
444
|
|
446
445
|
|
447
|
-
|
446
|
+
sgssim__(&i_simfac, &i_vxoff, &i_vyoff);
|
448
447
|
|
449
448
|
return Qnil;
|
450
449
|
|
@@ -461,7 +460,7 @@ dcl_sgqsim(obj)
|
|
461
460
|
VALUE vxoff;
|
462
461
|
VALUE vyoff;
|
463
462
|
|
464
|
-
|
463
|
+
sgqsim__(&o_simfac, &o_vxoff, &o_vyoff);
|
465
464
|
|
466
465
|
simfac = rb_float_new((double)o_simfac);
|
467
466
|
vxoff = rb_float_new((double)o_vxoff);
|
@@ -495,7 +494,7 @@ dcl_sgsmpl(obj, plx, ply, plrot)
|
|
495
494
|
i_plrot = (real)NUM2DBL(plrot);
|
496
495
|
|
497
496
|
|
498
|
-
|
497
|
+
sgsmpl__(&i_plx, &i_ply, &i_plrot);
|
499
498
|
|
500
499
|
return Qnil;
|
501
500
|
|
@@ -512,7 +511,7 @@ dcl_sgqmpl(obj)
|
|
512
511
|
VALUE ply;
|
513
512
|
VALUE plrot;
|
514
513
|
|
515
|
-
|
514
|
+
sgqmpl__(&o_plx, &o_ply, &o_plrot);
|
516
515
|
|
517
516
|
plx = rb_float_new((double)o_plx);
|
518
517
|
ply = rb_float_new((double)o_ply);
|
@@ -551,7 +550,7 @@ dcl_sgstxy(obj, txmin, txmax, tymin, tymax)
|
|
551
550
|
i_tymax = (real)NUM2DBL(tymax);
|
552
551
|
|
553
552
|
|
554
|
-
|
553
|
+
sgstxy__(&i_txmin, &i_txmax, &i_tymin, &i_tymax);
|
555
554
|
|
556
555
|
return Qnil;
|
557
556
|
|
@@ -570,7 +569,7 @@ dcl_sgqtxy(obj)
|
|
570
569
|
VALUE tymin;
|
571
570
|
VALUE tymax;
|
572
571
|
|
573
|
-
|
572
|
+
sgqtxy__(&o_txmin, &o_txmax, &o_tymin, &o_tymax);
|
574
573
|
|
575
574
|
txmin = rb_float_new((double)o_txmin);
|
576
575
|
txmax = rb_float_new((double)o_txmax);
|
@@ -595,7 +594,7 @@ dcl_sgstrn(obj, itr)
|
|
595
594
|
i_itr = NUM2INT(itr);
|
596
595
|
|
597
596
|
|
598
|
-
|
597
|
+
sgstrn__(&i_itr);
|
599
598
|
|
600
599
|
return Qnil;
|
601
600
|
|
@@ -608,7 +607,7 @@ dcl_sgqtrn(obj)
|
|
608
607
|
integer o_itr;
|
609
608
|
VALUE itr;
|
610
609
|
|
611
|
-
|
610
|
+
sgqtrn__(&o_itr);
|
612
611
|
|
613
612
|
itr = INT2NUM(o_itr);
|
614
613
|
|
@@ -621,7 +620,7 @@ static VALUE
|
|
621
620
|
dcl_sgstrf(obj)
|
622
621
|
VALUE obj;
|
623
622
|
{
|
624
|
-
|
623
|
+
sgstrf__();
|
625
624
|
|
626
625
|
return Qnil;
|
627
626
|
|
@@ -642,7 +641,7 @@ dcl_sgtrqf(obj, ntx)
|
|
642
641
|
i_ntx = NUM2INT(ntx);
|
643
642
|
|
644
643
|
|
645
|
-
|
644
|
+
sgtrqf__(&i_ntx, &o_ltr);
|
646
645
|
|
647
646
|
ltr = (o_ltr == FALSE_) ? Qfalse : Qtrue;
|
648
647
|
|
@@ -668,7 +667,7 @@ dcl_sgtrsl(obj, cts)
|
|
668
667
|
o_ctl= ALLOCA_N(char, (DFLT_SIZE+1));
|
669
668
|
memset(o_ctl, '\0', DFLT_SIZE+1);
|
670
669
|
|
671
|
-
|
670
|
+
sgtrsl__(i_cts, o_ctl, (ftnlen)strlen(i_cts), (ftnlen)DFLT_SIZE);
|
672
671
|
|
673
672
|
ctl = rb_str_new2(o_ctl);
|
674
673
|
|
@@ -692,7 +691,7 @@ dcl_sgtrsn(obj, cts)
|
|
692
691
|
i_cts = StringValuePtr(cts);
|
693
692
|
|
694
693
|
|
695
|
-
|
694
|
+
sgtrsn__(i_cts, &o_ntx, (ftnlen)strlen(i_cts));
|
696
695
|
|
697
696
|
ntx = INT2NUM(o_ntx);
|
698
697
|
|
@@ -718,7 +717,7 @@ dcl_sgtrls(obj, ctl)
|
|
718
717
|
o_cts= ALLOCA_N(char, (DFLT_SIZE+1));
|
719
718
|
memset(o_cts, '\0', DFLT_SIZE+1);
|
720
719
|
|
721
|
-
|
720
|
+
sgtrls__(i_ctl, o_cts, (ftnlen)strlen(i_ctl), (ftnlen)DFLT_SIZE);
|
722
721
|
|
723
722
|
cts = rb_str_new2(o_cts);
|
724
723
|
|
@@ -742,7 +741,7 @@ dcl_sgtrln(obj, ctl)
|
|
742
741
|
i_ctl = StringValuePtr(ctl);
|
743
742
|
|
744
743
|
|
745
|
-
|
744
|
+
sgtrln__(i_ctl, &o_ntx, (ftnlen)strlen(i_ctl));
|
746
745
|
|
747
746
|
ntx = INT2NUM(o_ntx);
|
748
747
|
|
@@ -768,7 +767,7 @@ dcl_sgtrns(obj, ntx)
|
|
768
767
|
o_cts= ALLOCA_N(char, (DFLT_SIZE+1));
|
769
768
|
memset(o_cts, '\0', DFLT_SIZE+1);
|
770
769
|
|
771
|
-
|
770
|
+
sgtrns__(&i_ntx, o_cts, (ftnlen)DFLT_SIZE);
|
772
771
|
|
773
772
|
cts = rb_str_new2(o_cts);
|
774
773
|
|
@@ -794,7 +793,7 @@ dcl_sgtrnl(obj, ntx)
|
|
794
793
|
o_ctl= ALLOCA_N(char, (DFLT_SIZE+1));
|
795
794
|
memset(o_ctl, '\0', DFLT_SIZE+1);
|
796
795
|
|
797
|
-
|
796
|
+
sgtrnl__(&i_ntx, o_ctl, (ftnlen)DFLT_SIZE);
|
798
797
|
|
799
798
|
ctl = rb_str_new2(o_ctl);
|
800
799
|
|
@@ -818,7 +817,7 @@ dcl_isgtrc(obj, ctr)
|
|
818
817
|
i_ctr = StringValuePtr(ctr);
|
819
818
|
|
820
819
|
|
821
|
-
o_rtn_val =
|
820
|
+
o_rtn_val = isgtrc__(i_ctr, (ftnlen)strlen(i_ctr));
|
822
821
|
|
823
822
|
rtn_val = INT2NUM(o_rtn_val);
|
824
823
|
|
@@ -858,7 +857,7 @@ dcl_sgplu(obj, n, upx, upy)
|
|
858
857
|
i_upy = dcl_obj2crealary(upy);
|
859
858
|
|
860
859
|
|
861
|
-
|
860
|
+
sgplu__(&i_n, i_upx, i_upy);
|
862
861
|
|
863
862
|
dcl_freecrealary(i_upx);
|
864
863
|
dcl_freecrealary(i_upy);
|
@@ -898,7 +897,7 @@ dcl_sgplv(obj, n, vpx, vpy)
|
|
898
897
|
i_vpy = dcl_obj2crealary(vpy);
|
899
898
|
|
900
899
|
|
901
|
-
|
900
|
+
sgplv__(&i_n, i_vpx, i_vpy);
|
902
901
|
|
903
902
|
dcl_freecrealary(i_vpx);
|
904
903
|
dcl_freecrealary(i_vpy);
|
@@ -938,7 +937,7 @@ dcl_sgplr(obj, n, rpx, rpy)
|
|
938
937
|
i_rpy = dcl_obj2crealary(rpy);
|
939
938
|
|
940
939
|
|
941
|
-
|
940
|
+
sgplr__(&i_n, i_rpx, i_rpy);
|
942
941
|
|
943
942
|
dcl_freecrealary(i_rpx);
|
944
943
|
dcl_freecrealary(i_rpy);
|
@@ -960,7 +959,7 @@ dcl_sgsplt(obj, itype)
|
|
960
959
|
i_itype = NUM2INT(itype);
|
961
960
|
|
962
961
|
|
963
|
-
|
962
|
+
sgsplt__(&i_itype);
|
964
963
|
|
965
964
|
return Qnil;
|
966
965
|
|
@@ -973,7 +972,7 @@ dcl_sgqplt(obj)
|
|
973
972
|
integer o_itype;
|
974
973
|
VALUE itype;
|
975
974
|
|
976
|
-
|
975
|
+
sgqplt__(&o_itype);
|
977
976
|
|
978
977
|
itype = INT2NUM(o_itype);
|
979
978
|
|
@@ -995,7 +994,7 @@ dcl_sgspli(obj, index)
|
|
995
994
|
i_index = NUM2INT(index);
|
996
995
|
|
997
996
|
|
998
|
-
|
997
|
+
sgspli__(&i_index);
|
999
998
|
|
1000
999
|
return Qnil;
|
1001
1000
|
|
@@ -1008,7 +1007,7 @@ dcl_sgqpli(obj)
|
|
1008
1007
|
integer o_index;
|
1009
1008
|
VALUE index;
|
1010
1009
|
|
1011
|
-
|
1010
|
+
sgqpli__(&o_index);
|
1012
1011
|
|
1013
1012
|
index = INT2NUM(o_index);
|
1014
1013
|
|
@@ -1058,7 +1057,7 @@ dcl_sgplzu(obj, n, upx, upy, itype, index)
|
|
1058
1057
|
i_upy = dcl_obj2crealary(upy);
|
1059
1058
|
|
1060
1059
|
|
1061
|
-
|
1060
|
+
sgplzu__(&i_n, i_upx, i_upy, &i_itype, &i_index);
|
1062
1061
|
|
1063
1062
|
dcl_freecrealary(i_upx);
|
1064
1063
|
dcl_freecrealary(i_upy);
|
@@ -1108,7 +1107,7 @@ dcl_sgplzv(obj, n, vpx, vpy, itype, index)
|
|
1108
1107
|
i_vpy = dcl_obj2crealary(vpy);
|
1109
1108
|
|
1110
1109
|
|
1111
|
-
|
1110
|
+
sgplzv__(&i_n, i_vpx, i_vpy, &i_itype, &i_index);
|
1112
1111
|
|
1113
1112
|
dcl_freecrealary(i_vpx);
|
1114
1113
|
dcl_freecrealary(i_vpy);
|
@@ -1158,7 +1157,7 @@ dcl_sgplzr(obj, n, rpx, rpy, itype, index)
|
|
1158
1157
|
i_rpy = dcl_obj2crealary(rpy);
|
1159
1158
|
|
1160
1159
|
|
1161
|
-
|
1160
|
+
sgplzr__(&i_n, i_rpx, i_rpy, &i_itype, &i_index);
|
1162
1161
|
|
1163
1162
|
dcl_freecrealary(i_rpx);
|
1164
1163
|
dcl_freecrealary(i_rpy);
|
@@ -1198,7 +1197,7 @@ dcl_sgpmu(obj, n, upx, upy)
|
|
1198
1197
|
i_upy = dcl_obj2crealary(upy);
|
1199
1198
|
|
1200
1199
|
|
1201
|
-
|
1200
|
+
sgpmu__(&i_n, i_upx, i_upy);
|
1202
1201
|
|
1203
1202
|
dcl_freecrealary(i_upx);
|
1204
1203
|
dcl_freecrealary(i_upy);
|
@@ -1238,7 +1237,7 @@ dcl_sgpmv(obj, n, vpx, vpy)
|
|
1238
1237
|
i_vpy = dcl_obj2crealary(vpy);
|
1239
1238
|
|
1240
1239
|
|
1241
|
-
|
1240
|
+
sgpmv__(&i_n, i_vpx, i_vpy);
|
1242
1241
|
|
1243
1242
|
dcl_freecrealary(i_vpx);
|
1244
1243
|
dcl_freecrealary(i_vpy);
|
@@ -1278,7 +1277,7 @@ dcl_sgpmr(obj, n, rpx, rpy)
|
|
1278
1277
|
i_rpy = dcl_obj2crealary(rpy);
|
1279
1278
|
|
1280
1279
|
|
1281
|
-
|
1280
|
+
sgpmr__(&i_n, i_rpx, i_rpy);
|
1282
1281
|
|
1283
1282
|
dcl_freecrealary(i_rpx);
|
1284
1283
|
dcl_freecrealary(i_rpy);
|
@@ -1300,7 +1299,7 @@ dcl_sgspmt(obj, itype)
|
|
1300
1299
|
i_itype = NUM2INT(itype);
|
1301
1300
|
|
1302
1301
|
|
1303
|
-
|
1302
|
+
sgspmt__(&i_itype);
|
1304
1303
|
|
1305
1304
|
return Qnil;
|
1306
1305
|
|
@@ -1313,7 +1312,7 @@ dcl_sgqpmt(obj)
|
|
1313
1312
|
integer o_itype;
|
1314
1313
|
VALUE itype;
|
1315
1314
|
|
1316
|
-
|
1315
|
+
sgqpmt__(&o_itype);
|
1317
1316
|
|
1318
1317
|
itype = INT2NUM(o_itype);
|
1319
1318
|
|
@@ -1335,7 +1334,7 @@ dcl_sgspmi(obj, index)
|
|
1335
1334
|
i_index = NUM2INT(index);
|
1336
1335
|
|
1337
1336
|
|
1338
|
-
|
1337
|
+
sgspmi__(&i_index);
|
1339
1338
|
|
1340
1339
|
return Qnil;
|
1341
1340
|
|
@@ -1348,7 +1347,7 @@ dcl_sgqpmi(obj)
|
|
1348
1347
|
integer o_index;
|
1349
1348
|
VALUE index;
|
1350
1349
|
|
1351
|
-
|
1350
|
+
sgqpmi__(&o_index);
|
1352
1351
|
|
1353
1352
|
index = INT2NUM(o_index);
|
1354
1353
|
|
@@ -1370,7 +1369,7 @@ dcl_sgspms(obj, rsize)
|
|
1370
1369
|
i_rsize = (real)NUM2DBL(rsize);
|
1371
1370
|
|
1372
1371
|
|
1373
|
-
|
1372
|
+
sgspms__(&i_rsize);
|
1374
1373
|
|
1375
1374
|
return Qnil;
|
1376
1375
|
|
@@ -1383,7 +1382,7 @@ dcl_sgqpms(obj)
|
|
1383
1382
|
real o_rsize;
|
1384
1383
|
VALUE rsize;
|
1385
1384
|
|
1386
|
-
|
1385
|
+
sgqpms__(&o_rsize);
|
1387
1386
|
|
1388
1387
|
rsize = rb_float_new((double)o_rsize);
|
1389
1388
|
|
@@ -1415,7 +1414,7 @@ dcl_sgtxu(obj, ux, uy, chars)
|
|
1415
1414
|
i_chars = StringValuePtr(chars);
|
1416
1415
|
|
1417
1416
|
|
1418
|
-
|
1417
|
+
sgtxu__(&i_ux, &i_uy, i_chars, (ftnlen)strlen(i_chars));
|
1419
1418
|
|
1420
1419
|
return Qnil;
|
1421
1420
|
|
@@ -1444,7 +1443,7 @@ dcl_sgtxv(obj, vx, vy, chars)
|
|
1444
1443
|
i_chars = StringValuePtr(chars);
|
1445
1444
|
|
1446
1445
|
|
1447
|
-
|
1446
|
+
sgtxv__(&i_vx, &i_vy, i_chars, (ftnlen)strlen(i_chars));
|
1448
1447
|
|
1449
1448
|
return Qnil;
|
1450
1449
|
|
@@ -1473,7 +1472,7 @@ dcl_sgtxr(obj, rx, ry, chars)
|
|
1473
1472
|
i_chars = StringValuePtr(chars);
|
1474
1473
|
|
1475
1474
|
|
1476
|
-
|
1475
|
+
sgtxr__(&i_rx, &i_ry, i_chars, (ftnlen)strlen(i_chars));
|
1477
1476
|
|
1478
1477
|
return Qnil;
|
1479
1478
|
|
@@ -1492,7 +1491,7 @@ dcl_sgstxs(obj, rsize)
|
|
1492
1491
|
i_rsize = (real)NUM2DBL(rsize);
|
1493
1492
|
|
1494
1493
|
|
1495
|
-
|
1494
|
+
sgstxs__(&i_rsize);
|
1496
1495
|
|
1497
1496
|
return Qnil;
|
1498
1497
|
|
@@ -1505,7 +1504,7 @@ dcl_sgqtxs(obj)
|
|
1505
1504
|
real o_rsize;
|
1506
1505
|
VALUE rsize;
|
1507
1506
|
|
1508
|
-
|
1507
|
+
sgqtxs__(&o_rsize);
|
1509
1508
|
|
1510
1509
|
rsize = rb_float_new((double)o_rsize);
|
1511
1510
|
|
@@ -1527,7 +1526,7 @@ dcl_sgstxr(obj, irota)
|
|
1527
1526
|
i_irota = NUM2INT(irota);
|
1528
1527
|
|
1529
1528
|
|
1530
|
-
|
1529
|
+
sgstxr__(&i_irota);
|
1531
1530
|
|
1532
1531
|
return Qnil;
|
1533
1532
|
|
@@ -1540,7 +1539,7 @@ dcl_sgqtxr(obj)
|
|
1540
1539
|
integer o_irota;
|
1541
1540
|
VALUE irota;
|
1542
1541
|
|
1543
|
-
|
1542
|
+
sgqtxr__(&o_irota);
|
1544
1543
|
|
1545
1544
|
irota = INT2NUM(o_irota);
|
1546
1545
|
|
@@ -1562,7 +1561,7 @@ dcl_sgstxc(obj, icent)
|
|
1562
1561
|
i_icent = NUM2INT(icent);
|
1563
1562
|
|
1564
1563
|
|
1565
|
-
|
1564
|
+
sgstxc__(&i_icent);
|
1566
1565
|
|
1567
1566
|
return Qnil;
|
1568
1567
|
|
@@ -1575,7 +1574,7 @@ dcl_sgqtxc(obj)
|
|
1575
1574
|
integer o_icent;
|
1576
1575
|
VALUE icent;
|
1577
1576
|
|
1578
|
-
|
1577
|
+
sgqtxc__(&o_icent);
|
1579
1578
|
|
1580
1579
|
icent = INT2NUM(o_icent);
|
1581
1580
|
|
@@ -1597,7 +1596,7 @@ dcl_sgstxi(obj, index)
|
|
1597
1596
|
i_index = NUM2INT(index);
|
1598
1597
|
|
1599
1598
|
|
1600
|
-
|
1599
|
+
sgstxi__(&i_index);
|
1601
1600
|
|
1602
1601
|
return Qnil;
|
1603
1602
|
|
@@ -1610,7 +1609,7 @@ dcl_sgqtxi(obj)
|
|
1610
1609
|
integer o_index;
|
1611
1610
|
VALUE index;
|
1612
1611
|
|
1613
|
-
|
1612
|
+
sgqtxi__(&o_index);
|
1614
1613
|
|
1615
1614
|
index = INT2NUM(o_index);
|
1616
1615
|
|
@@ -1665,7 +1664,7 @@ dcl_sgpmzu(obj, n, upx, upy, itype, index, rsize)
|
|
1665
1664
|
i_upy = dcl_obj2crealary(upy);
|
1666
1665
|
|
1667
1666
|
|
1668
|
-
|
1667
|
+
sgpmzu__(&i_n, i_upx, i_upy, &i_itype, &i_index, &i_rsize);
|
1669
1668
|
|
1670
1669
|
dcl_freecrealary(i_upx);
|
1671
1670
|
dcl_freecrealary(i_upy);
|
@@ -1720,7 +1719,7 @@ dcl_sgpmzv(obj, n, vpx, vpy, itype, index, rsize)
|
|
1720
1719
|
i_vpy = dcl_obj2crealary(vpy);
|
1721
1720
|
|
1722
1721
|
|
1723
|
-
|
1722
|
+
sgpmzv__(&i_n, i_vpx, i_vpy, &i_itype, &i_index, &i_rsize);
|
1724
1723
|
|
1725
1724
|
dcl_freecrealary(i_vpx);
|
1726
1725
|
dcl_freecrealary(i_vpy);
|
@@ -1775,7 +1774,7 @@ dcl_sgpmzr(obj, n, rpx, rpy, itype, index, rsize)
|
|
1775
1774
|
i_rpy = dcl_obj2crealary(rpy);
|
1776
1775
|
|
1777
1776
|
|
1778
|
-
|
1777
|
+
sgpmzr__(&i_n, i_rpx, i_rpy, &i_itype, &i_index, &i_rsize);
|
1779
1778
|
|
1780
1779
|
dcl_freecrealary(i_rpx);
|
1781
1780
|
dcl_freecrealary(i_rpy);
|
@@ -1827,7 +1826,7 @@ dcl_sgtxzu(obj, ux, uy, chars, rsize, irota, icent, index)
|
|
1827
1826
|
i_index = NUM2INT(index);
|
1828
1827
|
|
1829
1828
|
|
1830
|
-
|
1829
|
+
sgtxzu__(&i_ux, &i_uy, i_chars, &i_rsize, &i_irota, &i_icent, &i_index, (ftnlen)strlen(i_chars));
|
1831
1830
|
|
1832
1831
|
return Qnil;
|
1833
1832
|
|
@@ -1876,7 +1875,7 @@ dcl_sgtxzv(obj, vx, vy, chars, rsize, irota, icent, index)
|
|
1876
1875
|
i_index = NUM2INT(index);
|
1877
1876
|
|
1878
1877
|
|
1879
|
-
|
1878
|
+
sgtxzv__(&i_vx, &i_vy, i_chars, &i_rsize, &i_irota, &i_icent, &i_index, (ftnlen)strlen(i_chars));
|
1880
1879
|
|
1881
1880
|
return Qnil;
|
1882
1881
|
|
@@ -1925,7 +1924,7 @@ dcl_sgtxzr(obj, rx, ry, chars, rsize, irota, icent, index)
|
|
1925
1924
|
i_index = NUM2INT(index);
|
1926
1925
|
|
1927
1926
|
|
1928
|
-
|
1927
|
+
sgtxzr__(&i_rx, &i_ry, i_chars, &i_rsize, &i_irota, &i_icent, &i_index, (ftnlen)strlen(i_chars));
|
1929
1928
|
|
1930
1929
|
return Qnil;
|
1931
1930
|
|
@@ -1962,7 +1961,7 @@ dcl_sgtnu(obj, n, upx, upy)
|
|
1962
1961
|
i_upy = dcl_obj2crealary(upy);
|
1963
1962
|
|
1964
1963
|
|
1965
|
-
|
1964
|
+
sgtnu__(&i_n, i_upx, i_upy);
|
1966
1965
|
|
1967
1966
|
dcl_freecrealary(i_upx);
|
1968
1967
|
dcl_freecrealary(i_upy);
|
@@ -2002,7 +2001,7 @@ dcl_sgtnv(obj, n, vpx, vpy)
|
|
2002
2001
|
i_vpy = dcl_obj2crealary(vpy);
|
2003
2002
|
|
2004
2003
|
|
2005
|
-
|
2004
|
+
sgtnv__(&i_n, i_vpx, i_vpy);
|
2006
2005
|
|
2007
2006
|
dcl_freecrealary(i_vpx);
|
2008
2007
|
dcl_freecrealary(i_vpy);
|
@@ -2042,7 +2041,7 @@ dcl_sgtnr(obj, n, rpx, rpy)
|
|
2042
2041
|
i_rpy = dcl_obj2crealary(rpy);
|
2043
2042
|
|
2044
2043
|
|
2045
|
-
|
2044
|
+
sgtnr__(&i_n, i_rpx, i_rpy);
|
2046
2045
|
|
2047
2046
|
dcl_freecrealary(i_rpx);
|
2048
2047
|
dcl_freecrealary(i_rpy);
|
@@ -2064,7 +2063,7 @@ dcl_sgstnp(obj, itpat)
|
|
2064
2063
|
i_itpat = NUM2INT(itpat);
|
2065
2064
|
|
2066
2065
|
|
2067
|
-
|
2066
|
+
sgstnp__(&i_itpat);
|
2068
2067
|
|
2069
2068
|
return Qnil;
|
2070
2069
|
|
@@ -2077,7 +2076,7 @@ dcl_sgqtnp(obj)
|
|
2077
2076
|
integer o_itpat;
|
2078
2077
|
VALUE itpat;
|
2079
2078
|
|
2080
|
-
|
2079
|
+
sgqtnp__(&o_itpat);
|
2081
2080
|
|
2082
2081
|
itpat = INT2NUM(o_itpat);
|
2083
2082
|
|
@@ -2122,7 +2121,7 @@ dcl_sgtnzu(obj, n, upx, upy, itpat)
|
|
2122
2121
|
i_upy = dcl_obj2crealary(upy);
|
2123
2122
|
|
2124
2123
|
|
2125
|
-
|
2124
|
+
sgtnzu__(&i_n, i_upx, i_upy, &i_itpat);
|
2126
2125
|
|
2127
2126
|
dcl_freecrealary(i_upx);
|
2128
2127
|
dcl_freecrealary(i_upy);
|
@@ -2167,7 +2166,7 @@ dcl_sgtnzv(obj, n, vpx, vpy, itpat)
|
|
2167
2166
|
i_vpy = dcl_obj2crealary(vpy);
|
2168
2167
|
|
2169
2168
|
|
2170
|
-
|
2169
|
+
sgtnzv__(&i_n, i_vpx, i_vpy, &i_itpat);
|
2171
2170
|
|
2172
2171
|
dcl_freecrealary(i_vpx);
|
2173
2172
|
dcl_freecrealary(i_vpy);
|
@@ -2212,7 +2211,7 @@ dcl_sgtnzr(obj, n, rpx, rpy, itpat)
|
|
2212
2211
|
i_rpy = dcl_obj2crealary(rpy);
|
2213
2212
|
|
2214
2213
|
|
2215
|
-
|
2214
|
+
sgtnzr__(&i_n, i_rpx, i_rpy, &i_itpat);
|
2216
2215
|
|
2217
2216
|
dcl_freecrealary(i_rpx);
|
2218
2217
|
dcl_freecrealary(i_rpy);
|
@@ -2249,7 +2248,7 @@ dcl_sglnu(obj, ux1, uy1, ux2, uy2)
|
|
2249
2248
|
i_uy2 = (real)NUM2DBL(uy2);
|
2250
2249
|
|
2251
2250
|
|
2252
|
-
|
2251
|
+
sglnu__(&i_ux1, &i_uy1, &i_ux2, &i_uy2);
|
2253
2252
|
|
2254
2253
|
return Qnil;
|
2255
2254
|
|
@@ -2283,7 +2282,7 @@ dcl_sglnv(obj, vx1, vy1, vx2, vy2)
|
|
2283
2282
|
i_vy2 = (real)NUM2DBL(vy2);
|
2284
2283
|
|
2285
2284
|
|
2286
|
-
|
2285
|
+
sglnv__(&i_vx1, &i_vy1, &i_vx2, &i_vy2);
|
2287
2286
|
|
2288
2287
|
return Qnil;
|
2289
2288
|
|
@@ -2317,7 +2316,7 @@ dcl_sglnr(obj, rx1, ry1, rx2, ry2)
|
|
2317
2316
|
i_ry2 = (real)NUM2DBL(ry2);
|
2318
2317
|
|
2319
2318
|
|
2320
|
-
|
2319
|
+
sglnr__(&i_rx1, &i_ry1, &i_rx2, &i_ry2);
|
2321
2320
|
|
2322
2321
|
return Qnil;
|
2323
2322
|
|
@@ -2336,7 +2335,7 @@ dcl_sgslni(obj, index)
|
|
2336
2335
|
i_index = NUM2INT(index);
|
2337
2336
|
|
2338
2337
|
|
2339
|
-
|
2338
|
+
sgslni__(&i_index);
|
2340
2339
|
|
2341
2340
|
return Qnil;
|
2342
2341
|
|
@@ -2349,7 +2348,7 @@ dcl_sgqlni(obj)
|
|
2349
2348
|
integer o_index;
|
2350
2349
|
VALUE index;
|
2351
2350
|
|
2352
|
-
|
2351
|
+
sgqlni__(&o_index);
|
2353
2352
|
|
2354
2353
|
index = INT2NUM(o_index);
|
2355
2354
|
|
@@ -2391,7 +2390,7 @@ dcl_sglnzu(obj, ux1, uy1, ux2, uy2, index)
|
|
2391
2390
|
i_index = NUM2INT(index);
|
2392
2391
|
|
2393
2392
|
|
2394
|
-
|
2393
|
+
sglnzu__(&i_ux1, &i_uy1, &i_ux2, &i_uy2, &i_index);
|
2395
2394
|
|
2396
2395
|
return Qnil;
|
2397
2396
|
|
@@ -2430,7 +2429,7 @@ dcl_sglnzv(obj, vx1, vy1, vx2, vy2, index)
|
|
2430
2429
|
i_index = NUM2INT(index);
|
2431
2430
|
|
2432
2431
|
|
2433
|
-
|
2432
|
+
sglnzv__(&i_vx1, &i_vy1, &i_vx2, &i_vy2, &i_index);
|
2434
2433
|
|
2435
2434
|
return Qnil;
|
2436
2435
|
|
@@ -2469,7 +2468,7 @@ dcl_sglnzr(obj, rx1, ry1, rx2, ry2, index)
|
|
2469
2468
|
i_index = NUM2INT(index);
|
2470
2469
|
|
2471
2470
|
|
2472
|
-
|
2471
|
+
sglnzr__(&i_rx1, &i_ry1, &i_rx2, &i_ry2, &i_index);
|
2473
2472
|
|
2474
2473
|
return Qnil;
|
2475
2474
|
|
@@ -2503,7 +2502,7 @@ dcl_sglau(obj, ux1, uy1, ux2, uy2)
|
|
2503
2502
|
i_uy2 = (real)NUM2DBL(uy2);
|
2504
2503
|
|
2505
2504
|
|
2506
|
-
|
2505
|
+
sglau__(&i_ux1, &i_uy1, &i_ux2, &i_uy2);
|
2507
2506
|
|
2508
2507
|
return Qnil;
|
2509
2508
|
|
@@ -2537,7 +2536,7 @@ dcl_sglav(obj, vx1, vy1, vx2, vy2)
|
|
2537
2536
|
i_vy2 = (real)NUM2DBL(vy2);
|
2538
2537
|
|
2539
2538
|
|
2540
|
-
|
2539
|
+
sglav__(&i_vx1, &i_vy1, &i_vx2, &i_vy2);
|
2541
2540
|
|
2542
2541
|
return Qnil;
|
2543
2542
|
|
@@ -2571,7 +2570,7 @@ dcl_sglar(obj, rx1, ry1, rx2, ry2)
|
|
2571
2570
|
i_ry2 = (real)NUM2DBL(ry2);
|
2572
2571
|
|
2573
2572
|
|
2574
|
-
|
2573
|
+
sglar__(&i_rx1, &i_ry1, &i_rx2, &i_ry2);
|
2575
2574
|
|
2576
2575
|
return Qnil;
|
2577
2576
|
|
@@ -2590,7 +2589,7 @@ dcl_sgslat(obj, itype)
|
|
2590
2589
|
i_itype = NUM2INT(itype);
|
2591
2590
|
|
2592
2591
|
|
2593
|
-
|
2592
|
+
sgslat__(&i_itype);
|
2594
2593
|
|
2595
2594
|
return Qnil;
|
2596
2595
|
|
@@ -2603,7 +2602,7 @@ dcl_sgqlat(obj)
|
|
2603
2602
|
integer o_itype;
|
2604
2603
|
VALUE itype;
|
2605
2604
|
|
2606
|
-
|
2605
|
+
sgqlat__(&o_itype);
|
2607
2606
|
|
2608
2607
|
itype = INT2NUM(o_itype);
|
2609
2608
|
|
@@ -2625,7 +2624,7 @@ dcl_sgslai(obj, index)
|
|
2625
2624
|
i_index = NUM2INT(index);
|
2626
2625
|
|
2627
2626
|
|
2628
|
-
|
2627
|
+
sgslai__(&i_index);
|
2629
2628
|
|
2630
2629
|
return Qnil;
|
2631
2630
|
|
@@ -2638,7 +2637,7 @@ dcl_sgqlai(obj)
|
|
2638
2637
|
integer o_index;
|
2639
2638
|
VALUE index;
|
2640
2639
|
|
2641
|
-
|
2640
|
+
sgqlai__(&o_index);
|
2642
2641
|
|
2643
2642
|
index = INT2NUM(o_index);
|
2644
2643
|
|
@@ -2685,7 +2684,7 @@ dcl_sglazu(obj, ux1, uy1, ux2, uy2, itype, index)
|
|
2685
2684
|
i_index = NUM2INT(index);
|
2686
2685
|
|
2687
2686
|
|
2688
|
-
|
2687
|
+
sglazu__(&i_ux1, &i_uy1, &i_ux2, &i_uy2, &i_itype, &i_index);
|
2689
2688
|
|
2690
2689
|
return Qnil;
|
2691
2690
|
|
@@ -2729,7 +2728,7 @@ dcl_sglazv(obj, vx1, vy1, vx2, vy2, itype, index)
|
|
2729
2728
|
i_index = NUM2INT(index);
|
2730
2729
|
|
2731
2730
|
|
2732
|
-
|
2731
|
+
sglazv__(&i_vx1, &i_vy1, &i_vx2, &i_vy2, &i_itype, &i_index);
|
2733
2732
|
|
2734
2733
|
return Qnil;
|
2735
2734
|
|
@@ -2773,7 +2772,7 @@ dcl_sglazr(obj, rx1, ry1, rx2, ry2, itype, index)
|
|
2773
2772
|
i_index = NUM2INT(index);
|
2774
2773
|
|
2775
2774
|
|
2776
|
-
|
2775
|
+
sglazr__(&i_rx1, &i_ry1, &i_rx2, &i_ry2, &i_itype, &i_index);
|
2777
2776
|
|
2778
2777
|
return Qnil;
|
2779
2778
|
|
@@ -2792,7 +2791,7 @@ dcl_sgsplc(obj, charx)
|
|
2792
2791
|
i_charx = StringValuePtr(charx);
|
2793
2792
|
|
2794
2793
|
|
2795
|
-
|
2794
|
+
sgsplc__(i_charx, (ftnlen)strlen(i_charx));
|
2796
2795
|
|
2797
2796
|
return Qnil;
|
2798
2797
|
|
@@ -2808,7 +2807,7 @@ dcl_sgqplc(obj)
|
|
2808
2807
|
o_charx= ALLOCA_N(char, (DFLT_SIZE+1));
|
2809
2808
|
memset(o_charx, '\0', DFLT_SIZE+1);
|
2810
2809
|
|
2811
|
-
|
2810
|
+
sgqplc__(o_charx, (ftnlen)DFLT_SIZE);
|
2812
2811
|
|
2813
2812
|
charx = rb_str_new2(o_charx);
|
2814
2813
|
|
@@ -2830,7 +2829,7 @@ dcl_sgspls(obj, rsize)
|
|
2830
2829
|
i_rsize = (real)NUM2DBL(rsize);
|
2831
2830
|
|
2832
2831
|
|
2833
|
-
|
2832
|
+
sgspls__(&i_rsize);
|
2834
2833
|
|
2835
2834
|
return Qnil;
|
2836
2835
|
|
@@ -2843,7 +2842,7 @@ dcl_sgqpls(obj)
|
|
2843
2842
|
real o_rsize;
|
2844
2843
|
VALUE rsize;
|
2845
2844
|
|
2846
|
-
|
2845
|
+
sgqpls__(&o_rsize);
|
2847
2846
|
|
2848
2847
|
rsize = rb_float_new((double)o_rsize);
|
2849
2848
|
|
@@ -2856,7 +2855,7 @@ static VALUE
|
|
2856
2855
|
dcl_sgnplc(obj)
|
2857
2856
|
VALUE obj;
|
2858
2857
|
{
|
2859
|
-
|
2858
|
+
sgnplc__();
|
2860
2859
|
|
2861
2860
|
return Qnil;
|
2862
2861
|
|
@@ -2877,7 +2876,7 @@ dcl_sgiget(obj, cp)
|
|
2877
2876
|
i_cp = StringValuePtr(cp);
|
2878
2877
|
|
2879
2878
|
|
2880
|
-
|
2879
|
+
sgiget__(i_cp, &o_ipara, (ftnlen)strlen(i_cp));
|
2881
2880
|
|
2882
2881
|
ipara = INT2NUM(o_ipara);
|
2883
2882
|
|
@@ -2904,7 +2903,7 @@ dcl_sgiset(obj, cp, ipara)
|
|
2904
2903
|
i_ipara = NUM2INT(ipara);
|
2905
2904
|
|
2906
2905
|
|
2907
|
-
|
2906
|
+
sgiset__(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
|
2908
2907
|
|
2909
2908
|
return Qnil;
|
2910
2909
|
|
@@ -2928,7 +2927,7 @@ dcl_sgistx(obj, cp, ipara)
|
|
2928
2927
|
i_ipara = NUM2INT(ipara);
|
2929
2928
|
|
2930
2929
|
|
2931
|
-
|
2930
|
+
sgistx__(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
|
2932
2931
|
|
2933
2932
|
return Qnil;
|
2934
2933
|
|
@@ -2941,7 +2940,7 @@ dcl_sgiqnp(obj)
|
|
2941
2940
|
integer o_ncp;
|
2942
2941
|
VALUE ncp;
|
2943
2942
|
|
2944
|
-
|
2943
|
+
sgiqnp__(&o_ncp);
|
2945
2944
|
|
2946
2945
|
ncp = INT2NUM(o_ncp);
|
2947
2946
|
|
@@ -2965,7 +2964,7 @@ dcl_sgiqid(obj, cp)
|
|
2965
2964
|
i_cp = StringValuePtr(cp);
|
2966
2965
|
|
2967
2966
|
|
2968
|
-
|
2967
|
+
sgiqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
|
2969
2968
|
|
2970
2969
|
idx = INT2NUM(o_idx);
|
2971
2970
|
|
@@ -2991,7 +2990,7 @@ dcl_sgiqcp(obj, idx)
|
|
2991
2990
|
o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
|
2992
2991
|
memset(o_cp, '\0', DFLT_SIZE+1);
|
2993
2992
|
|
2994
|
-
|
2993
|
+
sgiqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
|
2995
2994
|
|
2996
2995
|
cp = rb_str_new2(o_cp);
|
2997
2996
|
|
@@ -3017,7 +3016,7 @@ dcl_sgiqcl(obj, idx)
|
|
3017
3016
|
o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
|
3018
3017
|
memset(o_cp, '\0', DFLT_SIZE+1);
|
3019
3018
|
|
3020
|
-
|
3019
|
+
sgiqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
|
3021
3020
|
|
3022
3021
|
cp = rb_str_new2(o_cp);
|
3023
3022
|
|
@@ -3041,7 +3040,7 @@ dcl_sgiqvl(obj, idx)
|
|
3041
3040
|
i_idx = NUM2INT(idx);
|
3042
3041
|
|
3043
3042
|
|
3044
|
-
|
3043
|
+
sgiqvl__(&i_idx, &o_ipara);
|
3045
3044
|
|
3046
3045
|
ipara = INT2NUM(o_ipara);
|
3047
3046
|
|
@@ -3068,7 +3067,7 @@ dcl_sgisvl(obj, idx, ipara)
|
|
3068
3067
|
i_ipara = NUM2INT(ipara);
|
3069
3068
|
|
3070
3069
|
|
3071
|
-
|
3070
|
+
sgisvl__(&i_idx, &i_ipara);
|
3072
3071
|
|
3073
3072
|
return Qnil;
|
3074
3073
|
|
@@ -3089,7 +3088,7 @@ dcl_sgiqin(obj, cp)
|
|
3089
3088
|
i_cp = StringValuePtr(cp);
|
3090
3089
|
|
3091
3090
|
|
3092
|
-
|
3091
|
+
sgiqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
|
3093
3092
|
|
3094
3093
|
in = INT2NUM(o_in);
|
3095
3094
|
|
@@ -3113,7 +3112,7 @@ dcl_sglget(obj, cp)
|
|
3113
3112
|
i_cp = StringValuePtr(cp);
|
3114
3113
|
|
3115
3114
|
|
3116
|
-
|
3115
|
+
sglget__(i_cp, &o_lpara, (ftnlen)strlen(i_cp));
|
3117
3116
|
|
3118
3117
|
lpara = (o_lpara == FALSE_) ? Qfalse : Qtrue;
|
3119
3118
|
|
@@ -3137,7 +3136,7 @@ dcl_sglset(obj, cp, lpara)
|
|
3137
3136
|
i_lpara = ((lpara == Qnil)||(lpara == Qfalse)) ? FALSE_ : TRUE_;
|
3138
3137
|
|
3139
3138
|
|
3140
|
-
|
3139
|
+
sglset__(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
|
3141
3140
|
|
3142
3141
|
return Qnil;
|
3143
3142
|
|
@@ -3158,7 +3157,7 @@ dcl_sglstx(obj, cp, lpara)
|
|
3158
3157
|
i_lpara = ((lpara == Qnil)||(lpara == Qfalse)) ? FALSE_ : TRUE_;
|
3159
3158
|
|
3160
3159
|
|
3161
|
-
|
3160
|
+
sglstx__(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
|
3162
3161
|
|
3163
3162
|
return Qnil;
|
3164
3163
|
|
@@ -3171,7 +3170,7 @@ dcl_sglqnp(obj)
|
|
3171
3170
|
integer o_ncp;
|
3172
3171
|
VALUE ncp;
|
3173
3172
|
|
3174
|
-
|
3173
|
+
sglqnp__(&o_ncp);
|
3175
3174
|
|
3176
3175
|
ncp = INT2NUM(o_ncp);
|
3177
3176
|
|
@@ -3195,7 +3194,7 @@ dcl_sglqid(obj, cp)
|
|
3195
3194
|
i_cp = StringValuePtr(cp);
|
3196
3195
|
|
3197
3196
|
|
3198
|
-
|
3197
|
+
sglqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
|
3199
3198
|
|
3200
3199
|
idx = INT2NUM(o_idx);
|
3201
3200
|
|
@@ -3221,7 +3220,7 @@ dcl_sglqcp(obj, idx)
|
|
3221
3220
|
o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
|
3222
3221
|
memset(o_cp, '\0', DFLT_SIZE+1);
|
3223
3222
|
|
3224
|
-
|
3223
|
+
sglqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
|
3225
3224
|
|
3226
3225
|
cp = rb_str_new2(o_cp);
|
3227
3226
|
|
@@ -3247,7 +3246,7 @@ dcl_sglqcl(obj, idx)
|
|
3247
3246
|
o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
|
3248
3247
|
memset(o_cp, '\0', DFLT_SIZE+1);
|
3249
3248
|
|
3250
|
-
|
3249
|
+
sglqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
|
3251
3250
|
|
3252
3251
|
cp = rb_str_new2(o_cp);
|
3253
3252
|
|
@@ -3271,7 +3270,7 @@ dcl_sglqvl(obj, idx)
|
|
3271
3270
|
i_idx = NUM2INT(idx);
|
3272
3271
|
|
3273
3272
|
|
3274
|
-
|
3273
|
+
sglqvl__(&i_idx, &o_lpara);
|
3275
3274
|
|
3276
3275
|
lpara = (o_lpara == FALSE_) ? Qfalse : Qtrue;
|
3277
3276
|
|
@@ -3295,7 +3294,7 @@ dcl_sglsvl(obj, idx, lpara)
|
|
3295
3294
|
i_lpara = ((lpara == Qnil)||(lpara == Qfalse)) ? FALSE_ : TRUE_;
|
3296
3295
|
|
3297
3296
|
|
3298
|
-
|
3297
|
+
sglsvl__(&i_idx, &i_lpara);
|
3299
3298
|
|
3300
3299
|
return Qnil;
|
3301
3300
|
|
@@ -3316,7 +3315,7 @@ dcl_sglqin(obj, cp)
|
|
3316
3315
|
i_cp = StringValuePtr(cp);
|
3317
3316
|
|
3318
3317
|
|
3319
|
-
|
3318
|
+
sglqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
|
3320
3319
|
|
3321
3320
|
in = INT2NUM(o_in);
|
3322
3321
|
|
@@ -3343,7 +3342,7 @@ dcl_sgoopn(obj, cprc, com)
|
|
3343
3342
|
i_com = StringValuePtr(com);
|
3344
3343
|
|
3345
3344
|
|
3346
|
-
|
3345
|
+
sgoopn__(i_cprc, i_com, (ftnlen)strlen(i_cprc), (ftnlen)strlen(i_com));
|
3347
3346
|
|
3348
3347
|
return Qnil;
|
3349
3348
|
|
@@ -3362,7 +3361,7 @@ dcl_sgocls(obj, cprc)
|
|
3362
3361
|
i_cprc = StringValuePtr(cprc);
|
3363
3362
|
|
3364
3363
|
|
3365
|
-
|
3364
|
+
sgocls__(i_cprc, (ftnlen)strlen(i_cprc));
|
3366
3365
|
|
3367
3366
|
return Qnil;
|
3368
3367
|
|
@@ -3383,7 +3382,7 @@ dcl_sgrget(obj, cp)
|
|
3383
3382
|
i_cp = StringValuePtr(cp);
|
3384
3383
|
|
3385
3384
|
|
3386
|
-
|
3385
|
+
sgrget__(i_cp, &o_rpara, (ftnlen)strlen(i_cp));
|
3387
3386
|
|
3388
3387
|
rpara = rb_float_new((double)o_rpara);
|
3389
3388
|
|
@@ -3410,7 +3409,7 @@ dcl_sgrset(obj, cp, rpara)
|
|
3410
3409
|
i_rpara = (real)NUM2DBL(rpara);
|
3411
3410
|
|
3412
3411
|
|
3413
|
-
|
3412
|
+
sgrset__(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
|
3414
3413
|
|
3415
3414
|
return Qnil;
|
3416
3415
|
|
@@ -3434,7 +3433,7 @@ dcl_sgrstx(obj, cp, rpara)
|
|
3434
3433
|
i_rpara = (real)NUM2DBL(rpara);
|
3435
3434
|
|
3436
3435
|
|
3437
|
-
|
3436
|
+
sgrstx__(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
|
3438
3437
|
|
3439
3438
|
return Qnil;
|
3440
3439
|
|
@@ -3447,7 +3446,7 @@ dcl_sgrqnp(obj)
|
|
3447
3446
|
integer o_ncp;
|
3448
3447
|
VALUE ncp;
|
3449
3448
|
|
3450
|
-
|
3449
|
+
sgrqnp__(&o_ncp);
|
3451
3450
|
|
3452
3451
|
ncp = INT2NUM(o_ncp);
|
3453
3452
|
|
@@ -3471,7 +3470,7 @@ dcl_sgrqid(obj, cp)
|
|
3471
3470
|
i_cp = StringValuePtr(cp);
|
3472
3471
|
|
3473
3472
|
|
3474
|
-
|
3473
|
+
sgrqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
|
3475
3474
|
|
3476
3475
|
idx = INT2NUM(o_idx);
|
3477
3476
|
|
@@ -3497,7 +3496,7 @@ dcl_sgrqcp(obj, idx)
|
|
3497
3496
|
o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
|
3498
3497
|
memset(o_cp, '\0', DFLT_SIZE+1);
|
3499
3498
|
|
3500
|
-
|
3499
|
+
sgrqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
|
3501
3500
|
|
3502
3501
|
cp = rb_str_new2(o_cp);
|
3503
3502
|
|
@@ -3523,7 +3522,7 @@ dcl_sgrqcl(obj, idx)
|
|
3523
3522
|
o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
|
3524
3523
|
memset(o_cp, '\0', DFLT_SIZE+1);
|
3525
3524
|
|
3526
|
-
|
3525
|
+
sgrqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
|
3527
3526
|
|
3528
3527
|
cp = rb_str_new2(o_cp);
|
3529
3528
|
|
@@ -3547,7 +3546,7 @@ dcl_sgrqvl(obj, idx)
|
|
3547
3546
|
i_idx = NUM2INT(idx);
|
3548
3547
|
|
3549
3548
|
|
3550
|
-
|
3549
|
+
sgrqvl__(&i_idx, &o_rpara);
|
3551
3550
|
|
3552
3551
|
rpara = rb_float_new((double)o_rpara);
|
3553
3552
|
|
@@ -3574,7 +3573,7 @@ dcl_sgrsvl(obj, idx, rpara)
|
|
3574
3573
|
i_rpara = (real)NUM2DBL(rpara);
|
3575
3574
|
|
3576
3575
|
|
3577
|
-
|
3576
|
+
sgrsvl__(&i_idx, &i_rpara);
|
3578
3577
|
|
3579
3578
|
return Qnil;
|
3580
3579
|
|
@@ -3595,7 +3594,7 @@ dcl_sgrqin(obj, cp)
|
|
3595
3594
|
i_cp = StringValuePtr(cp);
|
3596
3595
|
|
3597
3596
|
|
3598
|
-
|
3597
|
+
sgrqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
|
3599
3598
|
|
3600
3599
|
in = INT2NUM(o_in);
|
3601
3600
|
|
@@ -3610,7 +3609,7 @@ static VALUE
|
|
3610
3609
|
dcl_sgpcmd(obj)
|
3611
3610
|
VALUE obj;
|
3612
3611
|
{
|
3613
|
-
|
3612
|
+
sgpcmd__();
|
3614
3613
|
|
3615
3614
|
return Qnil;
|
3616
3615
|
|
@@ -3633,7 +3632,7 @@ dcl_sgscmn(obj, nc)
|
|
3633
3632
|
i_nc = NUM2INT(nc);
|
3634
3633
|
|
3635
3634
|
|
3636
|
-
|
3635
|
+
sgscmn__(&i_nc);
|
3637
3636
|
|
3638
3637
|
return Qnil;
|
3639
3638
|
|
@@ -3650,7 +3649,7 @@ dcl_sgqcmn(obj)
|
|
3650
3649
|
integer o_nmax;
|
3651
3650
|
VALUE nmax;
|
3652
3651
|
|
3653
|
-
|
3652
|
+
sgqcmn__(&o_nmax);
|
3654
3653
|
|
3655
3654
|
nmax = INT2NUM(o_nmax);
|
3656
3655
|
|
@@ -3691,7 +3690,7 @@ dcl_sgscwd(obj, cxmin, cxmax, cymin, cymax)
|
|
3691
3690
|
i_cymax = (real)NUM2DBL(cymax);
|
3692
3691
|
|
3693
3692
|
|
3694
|
-
|
3693
|
+
sgscwd__(&i_cxmin, &i_cxmax, &i_cymin, &i_cymax);
|
3695
3694
|
|
3696
3695
|
return Qnil;
|
3697
3696
|
|
@@ -3714,7 +3713,7 @@ dcl_sgqcwd(obj)
|
|
3714
3713
|
VALUE cymin;
|
3715
3714
|
VALUE cymax;
|
3716
3715
|
|
3717
|
-
|
3716
|
+
sgqcwd__(&o_cxmin, &o_cxmax, &o_cymin, &o_cymax);
|
3718
3717
|
|
3719
3718
|
cxmin = rb_float_new((double)o_cxmin);
|
3720
3719
|
cxmax = rb_float_new((double)o_cxmax);
|
@@ -3755,7 +3754,7 @@ dcl_isgrgb(obj, ir, ig, ib)
|
|
3755
3754
|
i_ib = NUM2INT(ib);
|
3756
3755
|
|
3757
3756
|
|
3758
|
-
o_rtn_val =
|
3757
|
+
o_rtn_val = isgrgb__(&i_ir, &i_ig, &i_ib);
|
3759
3758
|
|
3760
3759
|
rtn_val = INT2NUM(o_rtn_val);
|
3761
3760
|
|
@@ -3781,7 +3780,7 @@ dcl_sgclst(obj, ccfile)
|
|
3781
3780
|
i_ccfile = StringValuePtr(ccfile);
|
3782
3781
|
|
3783
3782
|
|
3784
|
-
|
3783
|
+
sgclst__(i_ccfile, (ftnlen)strlen(i_ccfile));
|
3785
3784
|
|
3786
3785
|
return Qnil;
|
3787
3786
|
|
@@ -3810,7 +3809,7 @@ dcl_sgqcl(obj, num)
|
|
3810
3809
|
i_num = NUM2INT(num);
|
3811
3810
|
|
3812
3811
|
|
3813
|
-
|
3812
|
+
sgqcl__(&i_num, &o_nr, &o_ng, &o_nb);
|
3814
3813
|
|
3815
3814
|
nr = INT2NUM(o_nr);
|
3816
3815
|
ng = INT2NUM(o_ng);
|
@@ -3871,7 +3870,7 @@ dcl_sgplxu(obj, n, upx, upy, itype, index, icolor)
|
|
3871
3870
|
i_upy = dcl_obj2crealary(upy);
|
3872
3871
|
|
3873
3872
|
|
3874
|
-
|
3873
|
+
sgplxu__(&i_n, i_upx, i_upy, &i_itype, &i_index, &i_icolor);
|
3875
3874
|
|
3876
3875
|
dcl_freecrealary(i_upx);
|
3877
3876
|
dcl_freecrealary(i_upy);
|
@@ -3930,7 +3929,7 @@ dcl_sgplxv(obj, n, vpx, vpy, itype, index, icolor)
|
|
3930
3929
|
i_vpy = dcl_obj2crealary(vpy);
|
3931
3930
|
|
3932
3931
|
|
3933
|
-
|
3932
|
+
sgplxv__(&i_n, i_vpx, i_vpy, &i_itype, &i_index, &i_icolor);
|
3934
3933
|
|
3935
3934
|
dcl_freecrealary(i_vpx);
|
3936
3935
|
dcl_freecrealary(i_vpy);
|
@@ -3989,7 +3988,7 @@ dcl_sgplxr(obj, n, rpx, rpy, itype, index, icolor)
|
|
3989
3988
|
i_rpy = dcl_obj2crealary(rpy);
|
3990
3989
|
|
3991
3990
|
|
3992
|
-
|
3991
|
+
sgplxr__(&i_n, i_rpx, i_rpy, &i_itype, &i_index, &i_icolor);
|
3993
3992
|
|
3994
3993
|
dcl_freecrealary(i_rpx);
|
3995
3994
|
dcl_freecrealary(i_rpy);
|
@@ -4053,7 +4052,7 @@ dcl_sgpmxu(obj, n, upx, upy, itype, index, icolor, rsize)
|
|
4053
4052
|
i_upy = dcl_obj2crealary(upy);
|
4054
4053
|
|
4055
4054
|
|
4056
|
-
|
4055
|
+
sgpmxu__(&i_n, i_upx, i_upy, &i_itype, &i_index, &i_icolor, &i_rsize);
|
4057
4056
|
|
4058
4057
|
dcl_freecrealary(i_upx);
|
4059
4058
|
dcl_freecrealary(i_upy);
|
@@ -4117,7 +4116,7 @@ dcl_sgpmxv(obj, n, vpx, vpy, itype, index, icolor, rsize)
|
|
4117
4116
|
i_vpy = dcl_obj2crealary(vpy);
|
4118
4117
|
|
4119
4118
|
|
4120
|
-
|
4119
|
+
sgpmxv__(&i_n, i_vpx, i_vpy, &i_itype, &i_index, &i_icolor, &i_rsize);
|
4121
4120
|
|
4122
4121
|
dcl_freecrealary(i_vpx);
|
4123
4122
|
dcl_freecrealary(i_vpy);
|
@@ -4181,7 +4180,7 @@ dcl_sgpmxr(obj, n, rpx, rpy, itype, index, icolor, rsize)
|
|
4181
4180
|
i_rpy = dcl_obj2crealary(rpy);
|
4182
4181
|
|
4183
4182
|
|
4184
|
-
|
4183
|
+
sgpmxr__(&i_n, i_rpx, i_rpy, &i_itype, &i_index, &i_icolor, &i_rsize);
|
4185
4184
|
|
4186
4185
|
dcl_freecrealary(i_rpx);
|
4187
4186
|
dcl_freecrealary(i_rpy);
|
@@ -4242,7 +4241,7 @@ dcl_sgtxxu(obj, ux, uy, chars, rsize, irota, icent, index, icolor)
|
|
4242
4241
|
i_icolor = NUM2INT(icolor);
|
4243
4242
|
|
4244
4243
|
|
4245
|
-
|
4244
|
+
sgtxxu__(&i_ux, &i_uy, i_chars, &i_rsize, &i_irota, &i_icent, &i_index, &i_icolor, (ftnlen)strlen(i_chars));
|
4246
4245
|
|
4247
4246
|
return Qnil;
|
4248
4247
|
|
@@ -4300,7 +4299,7 @@ dcl_sgtxxv(obj, vx, vy, chars, rsize, irota, icent, index, icolor)
|
|
4300
4299
|
i_icolor = NUM2INT(icolor);
|
4301
4300
|
|
4302
4301
|
|
4303
|
-
|
4302
|
+
sgtxxv__(&i_vx, &i_vy, i_chars, &i_rsize, &i_irota, &i_icent, &i_index, &i_icolor, (ftnlen)strlen(i_chars));
|
4304
4303
|
|
4305
4304
|
return Qnil;
|
4306
4305
|
|
@@ -4358,7 +4357,7 @@ dcl_sgtxxr(obj, rx, ry, chars, rsize, irota, icent, index, icolor)
|
|
4358
4357
|
i_icolor = NUM2INT(icolor);
|
4359
4358
|
|
4360
4359
|
|
4361
|
-
|
4360
|
+
sgtxxr__(&i_rx, &i_ry, i_chars, &i_rsize, &i_irota, &i_icent, &i_index, &i_icolor, (ftnlen)strlen(i_chars));
|
4362
4361
|
|
4363
4362
|
return Qnil;
|
4364
4363
|
|
@@ -4409,7 +4408,7 @@ dcl_sgtnxu(obj, n, upx, upy, itpat, icolor)
|
|
4409
4408
|
i_upy = dcl_obj2crealary(upy);
|
4410
4409
|
|
4411
4410
|
|
4412
|
-
|
4411
|
+
sgtnxu__(&i_n, i_upx, i_upy, &i_itpat, &i_icolor);
|
4413
4412
|
|
4414
4413
|
dcl_freecrealary(i_upx);
|
4415
4414
|
dcl_freecrealary(i_upy);
|
@@ -4463,7 +4462,7 @@ dcl_sgtnxv(obj, n, vpx, vpy, itpat, icolor)
|
|
4463
4462
|
i_vpy = dcl_obj2crealary(vpy);
|
4464
4463
|
|
4465
4464
|
|
4466
|
-
|
4465
|
+
sgtnxv__(&i_n, i_vpx, i_vpy, &i_itpat, &i_icolor);
|
4467
4466
|
|
4468
4467
|
dcl_freecrealary(i_vpx);
|
4469
4468
|
dcl_freecrealary(i_vpy);
|
@@ -4517,7 +4516,7 @@ dcl_sgtnxr(obj, n, rpx, rpy, itpat, icolor)
|
|
4517
4516
|
i_rpy = dcl_obj2crealary(rpy);
|
4518
4517
|
|
4519
4518
|
|
4520
|
-
|
4519
|
+
sgtnxr__(&i_n, i_rpx, i_rpy, &i_itpat, &i_icolor);
|
4521
4520
|
|
4522
4521
|
dcl_freecrealary(i_rpx);
|
4523
4522
|
dcl_freecrealary(i_rpy);
|
@@ -4568,7 +4567,7 @@ dcl_sglnxu(obj, ux1, uy1, ux2, uy2, index, icolor)
|
|
4568
4567
|
i_icolor = NUM2INT(icolor);
|
4569
4568
|
|
4570
4569
|
|
4571
|
-
|
4570
|
+
sglnxu__(&i_ux1, &i_uy1, &i_ux2, &i_uy2, &i_index, &i_icolor);
|
4572
4571
|
|
4573
4572
|
return Qnil;
|
4574
4573
|
|
@@ -4616,7 +4615,7 @@ dcl_sglnxv(obj, vx1, vy1, vx2, vy2, index, icolor)
|
|
4616
4615
|
i_icolor = NUM2INT(icolor);
|
4617
4616
|
|
4618
4617
|
|
4619
|
-
|
4618
|
+
sglnxv__(&i_vx1, &i_vy1, &i_vx2, &i_vy2, &i_index, &i_icolor);
|
4620
4619
|
|
4621
4620
|
return Qnil;
|
4622
4621
|
|
@@ -4664,7 +4663,7 @@ dcl_sglnxr(obj, rx1, ry1, rx2, ry2, index, icolor)
|
|
4664
4663
|
i_icolor = NUM2INT(icolor);
|
4665
4664
|
|
4666
4665
|
|
4667
|
-
|
4666
|
+
sglnxr__(&i_rx1, &i_ry1, &i_rx2, &i_ry2, &i_index, &i_icolor);
|
4668
4667
|
|
4669
4668
|
return Qnil;
|
4670
4669
|
|
@@ -4717,7 +4716,7 @@ dcl_sglaxu(obj, ux1, uy1, ux2, uy2, itype, index, icolor)
|
|
4717
4716
|
i_icolor = NUM2INT(icolor);
|
4718
4717
|
|
4719
4718
|
|
4720
|
-
|
4719
|
+
sglaxu__(&i_ux1, &i_uy1, &i_ux2, &i_uy2, &i_itype, &i_index, &i_icolor);
|
4721
4720
|
|
4722
4721
|
return Qnil;
|
4723
4722
|
|
@@ -4770,7 +4769,7 @@ dcl_sglaxv(obj, vx1, vy1, vx2, vy2, itype, index, icolor)
|
|
4770
4769
|
i_icolor = NUM2INT(icolor);
|
4771
4770
|
|
4772
4771
|
|
4773
|
-
|
4772
|
+
sglaxv__(&i_vx1, &i_vy1, &i_vx2, &i_vy2, &i_itype, &i_index, &i_icolor);
|
4774
4773
|
|
4775
4774
|
return Qnil;
|
4776
4775
|
|
@@ -4823,7 +4822,7 @@ dcl_sglaxr(obj, rx1, ry1, rx2, ry2, itype, index, icolor)
|
|
4823
4822
|
i_icolor = NUM2INT(icolor);
|
4824
4823
|
|
4825
4824
|
|
4826
|
-
|
4825
|
+
sglaxr__(&i_rx1, &i_ry1, &i_rx2, &i_ry2, &i_itype, &i_index, &i_icolor);
|
4827
4826
|
|
4828
4827
|
return Qnil;
|
4829
4828
|
|