ruby-dcl 1.6.3.1 → 1.7.0

data/grph1_sgpack.c

@@ -3721,6 +3721,1109 @@ dcl_sgqcwd(obj)
 
 }
 
+#endif
+
+#if DCLVER >= 544
+
+static VALUE
+dcl_isgrgb(obj, ir, ig, ib)
+    VALUE obj, ir, ig, ib;
+{
+    integer i_ir;
+    integer i_ig;
+    integer i_ib;
+    integer o_rtn_val;
+    VALUE rtn_val;
+
+    if ((TYPE(ir) != T_BIGNUM) || (TYPE(ir) != T_FIXNUM)) {
+      ir = rb_funcall(ir, rb_intern("to_i"), 0);
+    }
+    if ((TYPE(ig) != T_BIGNUM) || (TYPE(ig) != T_FIXNUM)) {
+      ig = rb_funcall(ig, rb_intern("to_i"), 0);
+    }
+    if ((TYPE(ib) != T_BIGNUM) || (TYPE(ib) != T_FIXNUM)) {
+      ib = rb_funcall(ib, rb_intern("to_i"), 0);
+    }
+
+    i_ir = NUM2INT(ir);
+    i_ig = NUM2INT(ig);
+    i_ib = NUM2INT(ib);
+
+
+    o_rtn_val = isgrgb_(&i_ir, &i_ig, &i_ib);
+
+    rtn_val = INT2NUM(o_rtn_val);
+
+
+    return rtn_val;
+
+}
+
+#endif
+
+#if DCLVER >= 544
+
+static VALUE
+dcl_sgclst(obj, ccfile)
+    VALUE obj, ccfile;
+{
+    char *i_ccfile;
+
+    if (TYPE(ccfile) != T_STRING) {
+      ccfile = rb_funcall(ccfile, rb_intern("to_str"), 0);
+    }
+
+    i_ccfile = StringValuePtr(ccfile);
+
+
+    sgclst_(i_ccfile, (ftnlen)strlen(i_ccfile));
+
+    return Qnil;
+
+}
+
+#endif
+
+#if DCLVER >= 544
+
+static VALUE
+dcl_sgqcl(obj, num)
+    VALUE obj, num;
+{
+    integer i_num;
+    integer o_nr;
+    integer o_ng;
+    integer o_nb;
+    VALUE nr;
+    VALUE ng;
+    VALUE nb;
+
+    if ((TYPE(num) != T_BIGNUM) || (TYPE(num) != T_FIXNUM)) {
+      num = rb_funcall(num, rb_intern("to_i"), 0);
+    }
+
+    i_num = NUM2INT(num);
+
+
+    sgqcl_(&i_num, &o_nr, &o_ng, &o_nb);
+
+    nr = INT2NUM(o_nr);
+    ng = INT2NUM(o_ng);
+    nb = INT2NUM(o_nb);
+
+
+    return rb_ary_new3(3, nr, ng, nb);
+
+}
+
+#endif
+
+#if DCLVER >= 544
+
+static VALUE
+dcl_sgplxu(obj, n, upx, upy, itype, index, icolor)
+    VALUE obj, n, upx, upy, itype, index, icolor;
+{
+    integer i_n;
+    real *i_upx;
+    real *i_upy;
+    integer i_itype;
+    integer i_index;
+    integer i_icolor;
+
+    if ((TYPE(n) != T_BIGNUM) || (TYPE(n) != T_FIXNUM)) {
+      n = rb_funcall(n, rb_intern("to_i"), 0);
+    }
+    if (TYPE(upx) == T_FLOAT) {
+      upx = rb_Array(upx);
+    }
+    /* if ((TYPE(upx) != T_ARRAY) && 
+           (rb_obj_is_kind_of(upx, cNArray) != Qtrue)) {
+         rb_raise(rb_eTypeError, "invalid type");
+       }  -- no check since obj2c*ary will do that */
+    if (TYPE(upy) == T_FLOAT) {
+      upy = rb_Array(upy);
+    }
+    /* if ((TYPE(upy) != T_ARRAY) && 
+           (rb_obj_is_kind_of(upy, cNArray) != Qtrue)) {
+         rb_raise(rb_eTypeError, "invalid type");
+       }  -- no check since obj2c*ary will do that */
+    if ((TYPE(itype) != T_BIGNUM) || (TYPE(itype) != T_FIXNUM)) {
+      itype = rb_funcall(itype, rb_intern("to_i"), 0);
+    }
+    if ((TYPE(index) != T_BIGNUM) || (TYPE(index) != T_FIXNUM)) {
+      index = rb_funcall(index, rb_intern("to_i"), 0);
+    }
+    if ((TYPE(icolor) != T_BIGNUM) || (TYPE(icolor) != T_FIXNUM)) {
+      icolor = rb_funcall(icolor, rb_intern("to_i"), 0);
+    }
+
+    i_n = NUM2INT(n);
+    i_itype = NUM2INT(itype);
+    i_index = NUM2INT(index);
+    i_icolor = NUM2INT(icolor);
+    i_upx = dcl_obj2crealary(upx);
+    i_upy = dcl_obj2crealary(upy);
+
+
+    sgplxu_(&i_n, i_upx, i_upy, &i_itype, &i_index, &i_icolor);
+
+    dcl_freecrealary(i_upx);
+    dcl_freecrealary(i_upy);
+
+    return Qnil;
+
+}
+
+#endif
+
+#if DCLVER >= 544
+
+static VALUE
+dcl_sgplxv(obj, n, vpx, vpy, itype, index, icolor)
+    VALUE obj, n, vpx, vpy, itype, index, icolor;
+{
+    integer i_n;
+    real *i_vpx;
+    real *i_vpy;
+    integer i_itype;
+    integer i_index;
+    integer i_icolor;
+
+    if ((TYPE(n) != T_BIGNUM) || (TYPE(n) != T_FIXNUM)) {
+      n = rb_funcall(n, rb_intern("to_i"), 0);
+    }
+    if (TYPE(vpx) == T_FLOAT) {
+      vpx = rb_Array(vpx);
+    }
+    /* if ((TYPE(vpx) != T_ARRAY) && 
+           (rb_obj_is_kind_of(vpx, cNArray) != Qtrue)) {
+         rb_raise(rb_eTypeError, "invalid type");
+       }  -- no check since obj2c*ary will do that */
+    if (TYPE(vpy) == T_FLOAT) {
+      vpy = rb_Array(vpy);
+    }
+    /* if ((TYPE(vpy) != T_ARRAY) && 
+           (rb_obj_is_kind_of(vpy, cNArray) != Qtrue)) {
+         rb_raise(rb_eTypeError, "invalid type");
+       }  -- no check since obj2c*ary will do that */
+    if ((TYPE(itype) != T_BIGNUM) || (TYPE(itype) != T_FIXNUM)) {
+      itype = rb_funcall(itype, rb_intern("to_i"), 0);
+    }
+    if ((TYPE(index) != T_BIGNUM) || (TYPE(index) != T_FIXNUM)) {
+      index = rb_funcall(index, rb_intern("to_i"), 0);
+    }
+    if ((TYPE(icolor) != T_BIGNUM) || (TYPE(icolor) != T_FIXNUM)) {
+      icolor = rb_funcall(icolor, rb_intern("to_i"), 0);
+    }
+
+    i_n = NUM2INT(n);
+    i_itype = NUM2INT(itype);
+    i_index = NUM2INT(index);
+    i_icolor = NUM2INT(icolor);
+    i_vpx = dcl_obj2crealary(vpx);
+    i_vpy = dcl_obj2crealary(vpy);
+
+
+    sgplxv_(&i_n, i_vpx, i_vpy, &i_itype, &i_index, &i_icolor);
+
+    dcl_freecrealary(i_vpx);
+    dcl_freecrealary(i_vpy);
+
+    return Qnil;
+
+}
+
+#endif
+
+#if DCLVER >= 544
+
+static VALUE
+dcl_sgplxr(obj, n, rpx, rpy, itype, index, icolor)
+    VALUE obj, n, rpx, rpy, itype, index, icolor;
+{
+    integer i_n;
+    real *i_rpx;
+    real *i_rpy;
+    integer i_itype;
+    integer i_index;
+    integer i_icolor;
+
+    if ((TYPE(n) != T_BIGNUM) || (TYPE(n) != T_FIXNUM)) {
+      n = rb_funcall(n, rb_intern("to_i"), 0);
+    }
+    if (TYPE(rpx) == T_FLOAT) {
+      rpx = rb_Array(rpx);
+    }
+    /* if ((TYPE(rpx) != T_ARRAY) && 
+           (rb_obj_is_kind_of(rpx, cNArray) != Qtrue)) {
+         rb_raise(rb_eTypeError, "invalid type");
+       }  -- no check since obj2c*ary will do that */
+    if (TYPE(rpy) == T_FLOAT) {
+      rpy = rb_Array(rpy);
+    }
+    /* if ((TYPE(rpy) != T_ARRAY) && 
+           (rb_obj_is_kind_of(rpy, cNArray) != Qtrue)) {
+         rb_raise(rb_eTypeError, "invalid type");
+       }  -- no check since obj2c*ary will do that */
+    if ((TYPE(itype) != T_BIGNUM) || (TYPE(itype) != T_FIXNUM)) {
+      itype = rb_funcall(itype, rb_intern("to_i"), 0);
+    }
+    if ((TYPE(index) != T_BIGNUM) || (TYPE(index) != T_FIXNUM)) {
+      index = rb_funcall(index, rb_intern("to_i"), 0);
+    }
+    if ((TYPE(icolor) != T_BIGNUM) || (TYPE(icolor) != T_FIXNUM)) {
+      icolor = rb_funcall(icolor, rb_intern("to_i"), 0);
+    }
+
+    i_n = NUM2INT(n);
+    i_itype = NUM2INT(itype);
+    i_index = NUM2INT(index);
+    i_icolor = NUM2INT(icolor);
+    i_rpx = dcl_obj2crealary(rpx);
+    i_rpy = dcl_obj2crealary(rpy);
+
+
+    sgplxr_(&i_n, i_rpx, i_rpy, &i_itype, &i_index, &i_icolor);
+
+    dcl_freecrealary(i_rpx);
+    dcl_freecrealary(i_rpy);
+
+    return Qnil;
+
+}
+
+#endif
+
+#if DCLVER >= 544
+
+static VALUE
+dcl_sgpmxu(obj, n, upx, upy, itype, index, icolor, rsize)
+    VALUE obj, n, upx, upy, itype, index, icolor, rsize;
+{
+    integer i_n;
+    real *i_upx;
+    real *i_upy;
+    integer i_itype;
+    integer i_index;
+    integer i_icolor;
+    real i_rsize;
+
+    if ((TYPE(n) != T_BIGNUM) || (TYPE(n) != T_FIXNUM)) {
+      n = rb_funcall(n, rb_intern("to_i"), 0);
+    }
+    if (TYPE(upx) == T_FLOAT) {
+      upx = rb_Array(upx);
+    }
+    /* if ((TYPE(upx) != T_ARRAY) && 
+           (rb_obj_is_kind_of(upx, cNArray) != Qtrue)) {
+         rb_raise(rb_eTypeError, "invalid type");
+       }  -- no check since obj2c*ary will do that */
+    if (TYPE(upy) == T_FLOAT) {
+      upy = rb_Array(upy);
+    }
+    /* if ((TYPE(upy) != T_ARRAY) && 
+           (rb_obj_is_kind_of(upy, cNArray) != Qtrue)) {
+         rb_raise(rb_eTypeError, "invalid type");
+       }  -- no check since obj2c*ary will do that */
+    if ((TYPE(itype) != T_BIGNUM) || (TYPE(itype) != T_FIXNUM)) {
+      itype = rb_funcall(itype, rb_intern("to_i"), 0);
+    }
+    if ((TYPE(index) != T_BIGNUM) || (TYPE(index) != T_FIXNUM)) {
+      index = rb_funcall(index, rb_intern("to_i"), 0);
+    }
+    if ((TYPE(icolor) != T_BIGNUM) || (TYPE(icolor) != T_FIXNUM)) {
+      icolor = rb_funcall(icolor, rb_intern("to_i"), 0);
+    }
+    if (TYPE(rsize) != T_FLOAT) {
+      rsize = rb_funcall(rsize, rb_intern("to_f"), 0);
+    }
+
+    i_n = NUM2INT(n);
+    i_itype = NUM2INT(itype);
+    i_index = NUM2INT(index);
+    i_icolor = NUM2INT(icolor);
+    i_rsize = (real)NUM2DBL(rsize);
+    i_upx = dcl_obj2crealary(upx);
+    i_upy = dcl_obj2crealary(upy);
+
+
+    sgpmxu_(&i_n, i_upx, i_upy, &i_itype, &i_index, &i_icolor, &i_rsize);
+
+    dcl_freecrealary(i_upx);
+    dcl_freecrealary(i_upy);
+
+    return Qnil;
+
+}
+
+#endif
+
+#if DCLVER >= 544
+
+static VALUE
+dcl_sgpmxv(obj, n, vpx, vpy, itype, index, icolor, rsize)
+    VALUE obj, n, vpx, vpy, itype, index, icolor, rsize;
+{
+    integer i_n;
+    real *i_vpx;
+    real *i_vpy;
+    integer i_itype;
+    integer i_index;
+    integer i_icolor;
+    real i_rsize;
+
+    if ((TYPE(n) != T_BIGNUM) || (TYPE(n) != T_FIXNUM)) {
+      n = rb_funcall(n, rb_intern("to_i"), 0);
+    }
+    if (TYPE(vpx) == T_FLOAT) {
+      vpx = rb_Array(vpx);
+    }
+    /* if ((TYPE(vpx) != T_ARRAY) && 
+           (rb_obj_is_kind_of(vpx, cNArray) != Qtrue)) {
+         rb_raise(rb_eTypeError, "invalid type");
+       }  -- no check since obj2c*ary will do that */
+    if (TYPE(vpy) == T_FLOAT) {
+      vpy = rb_Array(vpy);
+    }
+    /* if ((TYPE(vpy) != T_ARRAY) && 
+           (rb_obj_is_kind_of(vpy, cNArray) != Qtrue)) {
+         rb_raise(rb_eTypeError, "invalid type");
+       }  -- no check since obj2c*ary will do that */
+    if ((TYPE(itype) != T_BIGNUM) || (TYPE(itype) != T_FIXNUM)) {
+      itype = rb_funcall(itype, rb_intern("to_i"), 0);
+    }
+    if ((TYPE(index) != T_BIGNUM) || (TYPE(index) != T_FIXNUM)) {
+      index = rb_funcall(index, rb_intern("to_i"), 0);
+    }
+    if ((TYPE(icolor) != T_BIGNUM) || (TYPE(icolor) != T_FIXNUM)) {
+      icolor = rb_funcall(icolor, rb_intern("to_i"), 0);
+    }
+    if (TYPE(rsize) != T_FLOAT) {
+      rsize = rb_funcall(rsize, rb_intern("to_f"), 0);
+    }
+
+    i_n = NUM2INT(n);
+    i_itype = NUM2INT(itype);
+    i_index = NUM2INT(index);
+    i_icolor = NUM2INT(icolor);
+    i_rsize = (real)NUM2DBL(rsize);
+    i_vpx = dcl_obj2crealary(vpx);
+    i_vpy = dcl_obj2crealary(vpy);
+
+
+    sgpmxv_(&i_n, i_vpx, i_vpy, &i_itype, &i_index, &i_icolor, &i_rsize);
+
+    dcl_freecrealary(i_vpx);
+    dcl_freecrealary(i_vpy);
+
+    return Qnil;
+
+}
+
+#endif
+
+#if DCLVER >= 544
+
+static VALUE
+dcl_sgpmxr(obj, n, rpx, rpy, itype, index, icolor, rsize)
+    VALUE obj, n, rpx, rpy, itype, index, icolor, rsize;
+{
+    integer i_n;
+    real *i_rpx;
+    real *i_rpy;
+    integer i_itype;
+    integer i_index;
+    integer i_icolor;
+    real i_rsize;
+
+    if ((TYPE(n) != T_BIGNUM) || (TYPE(n) != T_FIXNUM)) {
+      n = rb_funcall(n, rb_intern("to_i"), 0);
+    }
+    if (TYPE(rpx) == T_FLOAT) {
+      rpx = rb_Array(rpx);
+    }
+    /* if ((TYPE(rpx) != T_ARRAY) && 
+           (rb_obj_is_kind_of(rpx, cNArray) != Qtrue)) {
+         rb_raise(rb_eTypeError, "invalid type");
+       }  -- no check since obj2c*ary will do that */
+    if (TYPE(rpy) == T_FLOAT) {
+      rpy = rb_Array(rpy);
+    }
+    /* if ((TYPE(rpy) != T_ARRAY) && 
+           (rb_obj_is_kind_of(rpy, cNArray) != Qtrue)) {
+         rb_raise(rb_eTypeError, "invalid type");
+       }  -- no check since obj2c*ary will do that */
+    if ((TYPE(itype) != T_BIGNUM) || (TYPE(itype) != T_FIXNUM)) {
+      itype = rb_funcall(itype, rb_intern("to_i"), 0);
+    }
+    if ((TYPE(index) != T_BIGNUM) || (TYPE(index) != T_FIXNUM)) {
+      index = rb_funcall(index, rb_intern("to_i"), 0);
+    }
+    if ((TYPE(icolor) != T_BIGNUM) || (TYPE(icolor) != T_FIXNUM)) {
+      icolor = rb_funcall(icolor, rb_intern("to_i"), 0);
+    }
+    if (TYPE(rsize) != T_FLOAT) {
+      rsize = rb_funcall(rsize, rb_intern("to_f"), 0);
+    }
+
+    i_n = NUM2INT(n);
+    i_itype = NUM2INT(itype);
+    i_index = NUM2INT(index);
+    i_icolor = NUM2INT(icolor);
+    i_rsize = (real)NUM2DBL(rsize);
+    i_rpx = dcl_obj2crealary(rpx);
+    i_rpy = dcl_obj2crealary(rpy);
+
+
+    sgpmxr_(&i_n, i_rpx, i_rpy, &i_itype, &i_index, &i_icolor, &i_rsize);
+
+    dcl_freecrealary(i_rpx);
+    dcl_freecrealary(i_rpy);
+
+    return Qnil;
+
+}
+
+#endif
+
+#if DCLVER >= 544
+
+static VALUE
+dcl_sgtxxu(obj, ux, uy, chars, rsize, irota, icent, index, icolor)
+    VALUE obj, ux, uy, chars, rsize, irota, icent, index, icolor;
+{
+    real i_ux;
+    real i_uy;
+    char *i_chars;
+    real i_rsize;
+    integer i_irota;
+    integer i_icent;
+    integer i_index;
+    integer i_icolor;
+
+    if (TYPE(ux) != T_FLOAT) {
+      ux = rb_funcall(ux, rb_intern("to_f"), 0);
+    }
+    if (TYPE(uy) != T_FLOAT) {
+      uy = rb_funcall(uy, rb_intern("to_f"), 0);
+    }
+    if (TYPE(chars) != T_STRING) {
+      chars = rb_funcall(chars, rb_intern("to_str"), 0);
+    }
+    if (TYPE(rsize) != T_FLOAT) {
+      rsize = rb_funcall(rsize, rb_intern("to_f"), 0);
+    }
+    if ((TYPE(irota) != T_BIGNUM) || (TYPE(irota) != T_FIXNUM)) {
+      irota = rb_funcall(irota, rb_intern("to_i"), 0);
+    }
+    if ((TYPE(icent) != T_BIGNUM) || (TYPE(icent) != T_FIXNUM)) {
+      icent = rb_funcall(icent, rb_intern("to_i"), 0);
+    }
+    if ((TYPE(index) != T_BIGNUM) || (TYPE(index) != T_FIXNUM)) {
+      index = rb_funcall(index, rb_intern("to_i"), 0);
+    }
+    if ((TYPE(icolor) != T_BIGNUM) || (TYPE(icolor) != T_FIXNUM)) {
+      icolor = rb_funcall(icolor, rb_intern("to_i"), 0);
+    }
+
+    i_ux = (real)NUM2DBL(ux);
+    i_uy = (real)NUM2DBL(uy);
+    i_chars = StringValuePtr(chars);
+    i_rsize = (real)NUM2DBL(rsize);
+    i_irota = NUM2INT(irota);
+    i_icent = NUM2INT(icent);
+    i_index = NUM2INT(index);
+    i_icolor = NUM2INT(icolor);
+
+
+    sgtxxu_(&i_ux, &i_uy, i_chars, &i_rsize, &i_irota, &i_icent, &i_index, &i_icolor, (ftnlen)strlen(i_chars));
+
+    return Qnil;
+
+}
+
+#endif
+
+#if DCLVER >= 544
+
+static VALUE
+dcl_sgtxxv(obj, vx, vy, chars, rsize, irota, icent, index, icolor)
+    VALUE obj, vx, vy, chars, rsize, irota, icent, index, icolor;
+{
+    real i_vx;
+    real i_vy;
+    char *i_chars;
+    real i_rsize;
+    integer i_irota;
+    integer i_icent;
+    integer i_index;
+    integer i_icolor;
+
+    if (TYPE(vx) != T_FLOAT) {
+      vx = rb_funcall(vx, rb_intern("to_f"), 0);
+    }
+    if (TYPE(vy) != T_FLOAT) {
+      vy = rb_funcall(vy, rb_intern("to_f"), 0);
+    }
+    if (TYPE(chars) != T_STRING) {
+      chars = rb_funcall(chars, rb_intern("to_str"), 0);
+    }
+    if (TYPE(rsize) != T_FLOAT) {
+      rsize = rb_funcall(rsize, rb_intern("to_f"), 0);
+    }
+    if ((TYPE(irota) != T_BIGNUM) || (TYPE(irota) != T_FIXNUM)) {
+      irota = rb_funcall(irota, rb_intern("to_i"), 0);
+    }
+    if ((TYPE(icent) != T_BIGNUM) || (TYPE(icent) != T_FIXNUM)) {
+      icent = rb_funcall(icent, rb_intern("to_i"), 0);
+    }
+    if ((TYPE(index) != T_BIGNUM) || (TYPE(index) != T_FIXNUM)) {
+      index = rb_funcall(index, rb_intern("to_i"), 0);
+    }
+    if ((TYPE(icolor) != T_BIGNUM) || (TYPE(icolor) != T_FIXNUM)) {
+      icolor = rb_funcall(icolor, rb_intern("to_i"), 0);
+    }
+
+    i_vx = (real)NUM2DBL(vx);
+    i_vy = (real)NUM2DBL(vy);
+    i_chars = StringValuePtr(chars);
+    i_rsize = (real)NUM2DBL(rsize);
+    i_irota = NUM2INT(irota);
+    i_icent = NUM2INT(icent);
+    i_index = NUM2INT(index);
+    i_icolor = NUM2INT(icolor);
+
+
+    sgtxxv_(&i_vx, &i_vy, i_chars, &i_rsize, &i_irota, &i_icent, &i_index, &i_icolor, (ftnlen)strlen(i_chars));
+
+    return Qnil;
+
+}
+
+#endif
+
+#if DCLVER >= 544
+
+static VALUE
+dcl_sgtxxr(obj, rx, ry, chars, rsize, irota, icent, index, icolor)
+    VALUE obj, rx, ry, chars, rsize, irota, icent, index, icolor;
+{
+    real i_rx;
+    real i_ry;
+    char *i_chars;
+    real i_rsize;
+    integer i_irota;
+    integer i_icent;
+    integer i_index;
+    integer i_icolor;
+
+    if (TYPE(rx) != T_FLOAT) {
+      rx = rb_funcall(rx, rb_intern("to_f"), 0);
+    }
+    if (TYPE(ry) != T_FLOAT) {
+      ry = rb_funcall(ry, rb_intern("to_f"), 0);
+    }
+    if (TYPE(chars) != T_STRING) {
+      chars = rb_funcall(chars, rb_intern("to_str"), 0);
+    }
+    if (TYPE(rsize) != T_FLOAT) {
+      rsize = rb_funcall(rsize, rb_intern("to_f"), 0);
+    }
+    if ((TYPE(irota) != T_BIGNUM) || (TYPE(irota) != T_FIXNUM)) {
+      irota = rb_funcall(irota, rb_intern("to_i"), 0);
+    }
+    if ((TYPE(icent) != T_BIGNUM) || (TYPE(icent) != T_FIXNUM)) {
+      icent = rb_funcall(icent, rb_intern("to_i"), 0);
+    }
+    if ((TYPE(index) != T_BIGNUM) || (TYPE(index) != T_FIXNUM)) {
+      index = rb_funcall(index, rb_intern("to_i"), 0);
+    }
+    if ((TYPE(icolor) != T_BIGNUM) || (TYPE(icolor) != T_FIXNUM)) {
+      icolor = rb_funcall(icolor, rb_intern("to_i"), 0);
+    }
+
+    i_rx = (real)NUM2DBL(rx);
+    i_ry = (real)NUM2DBL(ry);
+    i_chars = StringValuePtr(chars);
+    i_rsize = (real)NUM2DBL(rsize);
+    i_irota = NUM2INT(irota);
+    i_icent = NUM2INT(icent);
+    i_index = NUM2INT(index);
+    i_icolor = NUM2INT(icolor);
+
+
+    sgtxxr_(&i_rx, &i_ry, i_chars, &i_rsize, &i_irota, &i_icent, &i_index, &i_icolor, (ftnlen)strlen(i_chars));
+
+    return Qnil;
+
+}
+
+#endif
+
+#if DCLVER >= 544
+
+static VALUE
+dcl_sgtnxu(obj, n, upx, upy, itpat, icolor)
+    VALUE obj, n, upx, upy, itpat, icolor;
+{
+    integer i_n;
+    real *i_upx;
+    real *i_upy;
+    integer i_itpat;
+    integer i_icolor;
+
+    if ((TYPE(n) != T_BIGNUM) || (TYPE(n) != T_FIXNUM)) {
+      n = rb_funcall(n, rb_intern("to_i"), 0);
+    }
+    if (TYPE(upx) == T_FLOAT) {
+      upx = rb_Array(upx);
+    }
+    /* if ((TYPE(upx) != T_ARRAY) && 
+           (rb_obj_is_kind_of(upx, cNArray) != Qtrue)) {
+         rb_raise(rb_eTypeError, "invalid type");
+       }  -- no check since obj2c*ary will do that */
+    if (TYPE(upy) == T_FLOAT) {
+      upy = rb_Array(upy);
+    }
+    /* if ((TYPE(upy) != T_ARRAY) && 
+           (rb_obj_is_kind_of(upy, cNArray) != Qtrue)) {
+         rb_raise(rb_eTypeError, "invalid type");
+       }  -- no check since obj2c*ary will do that */
+    if ((TYPE(itpat) != T_BIGNUM) || (TYPE(itpat) != T_FIXNUM)) {
+      itpat = rb_funcall(itpat, rb_intern("to_i"), 0);
+    }
+    if ((TYPE(icolor) != T_BIGNUM) || (TYPE(icolor) != T_FIXNUM)) {
+      icolor = rb_funcall(icolor, rb_intern("to_i"), 0);
+    }
+
+    i_n = NUM2INT(n);
+    i_itpat = NUM2INT(itpat);
+    i_icolor = NUM2INT(icolor);
+    i_upx = dcl_obj2crealary(upx);
+    i_upy = dcl_obj2crealary(upy);
+
+
+    sgtnxu_(&i_n, i_upx, i_upy, &i_itpat, &i_icolor);
+
+    dcl_freecrealary(i_upx);
+    dcl_freecrealary(i_upy);
+
+    return Qnil;
+
+}
+
+#endif
+
+#if DCLVER >= 544
+
+static VALUE
+dcl_sgtnxv(obj, n, vpx, vpy, itpat, icolor)
+    VALUE obj, n, vpx, vpy, itpat, icolor;
+{
+    integer i_n;
+    real *i_vpx;
+    real *i_vpy;
+    integer i_itpat;
+    integer i_icolor;
+
+    if ((TYPE(n) != T_BIGNUM) || (TYPE(n) != T_FIXNUM)) {
+      n = rb_funcall(n, rb_intern("to_i"), 0);
+    }
+    if (TYPE(vpx) == T_FLOAT) {
+      vpx = rb_Array(vpx);
+    }
+    /* if ((TYPE(vpx) != T_ARRAY) && 
+           (rb_obj_is_kind_of(vpx, cNArray) != Qtrue)) {
+         rb_raise(rb_eTypeError, "invalid type");
+       }  -- no check since obj2c*ary will do that */
+    if (TYPE(vpy) == T_FLOAT) {
+      vpy = rb_Array(vpy);
+    }
+    /* if ((TYPE(vpy) != T_ARRAY) && 
+           (rb_obj_is_kind_of(vpy, cNArray) != Qtrue)) {
+         rb_raise(rb_eTypeError, "invalid type");
+       }  -- no check since obj2c*ary will do that */
+    if ((TYPE(itpat) != T_BIGNUM) || (TYPE(itpat) != T_FIXNUM)) {
+      itpat = rb_funcall(itpat, rb_intern("to_i"), 0);
+    }
+    if ((TYPE(icolor) != T_BIGNUM) || (TYPE(icolor) != T_FIXNUM)) {
+      icolor = rb_funcall(icolor, rb_intern("to_i"), 0);
+    }
+
+    i_n = NUM2INT(n);
+    i_itpat = NUM2INT(itpat);
+    i_icolor = NUM2INT(icolor);
+    i_vpx = dcl_obj2crealary(vpx);
+    i_vpy = dcl_obj2crealary(vpy);
+
+
+    sgtnxv_(&i_n, i_vpx, i_vpy, &i_itpat, &i_icolor);
+
+    dcl_freecrealary(i_vpx);
+    dcl_freecrealary(i_vpy);
+
+    return Qnil;
+
+}
+
+#endif
+
+#if DCLVER >= 544
+
+static VALUE
+dcl_sgtnxr(obj, n, rpx, rpy, itpat, icolor)
+    VALUE obj, n, rpx, rpy, itpat, icolor;
+{
+    integer i_n;
+    real *i_rpx;
+    real *i_rpy;
+    integer i_itpat;
+    integer i_icolor;
+
+    if ((TYPE(n) != T_BIGNUM) || (TYPE(n) != T_FIXNUM)) {
+      n = rb_funcall(n, rb_intern("to_i"), 0);
+    }
+    if (TYPE(rpx) == T_FLOAT) {
+      rpx = rb_Array(rpx);
+    }
+    /* if ((TYPE(rpx) != T_ARRAY) && 
+           (rb_obj_is_kind_of(rpx, cNArray) != Qtrue)) {
+         rb_raise(rb_eTypeError, "invalid type");
+       }  -- no check since obj2c*ary will do that */
+    if (TYPE(rpy) == T_FLOAT) {
+      rpy = rb_Array(rpy);
+    }
+    /* if ((TYPE(rpy) != T_ARRAY) && 
+           (rb_obj_is_kind_of(rpy, cNArray) != Qtrue)) {
+         rb_raise(rb_eTypeError, "invalid type");
+       }  -- no check since obj2c*ary will do that */
+    if ((TYPE(itpat) != T_BIGNUM) || (TYPE(itpat) != T_FIXNUM)) {
+      itpat = rb_funcall(itpat, rb_intern("to_i"), 0);
+    }
+    if ((TYPE(icolor) != T_BIGNUM) || (TYPE(icolor) != T_FIXNUM)) {
+      icolor = rb_funcall(icolor, rb_intern("to_i"), 0);
+    }
+
+    i_n = NUM2INT(n);
+    i_itpat = NUM2INT(itpat);
+    i_icolor = NUM2INT(icolor);
+    i_rpx = dcl_obj2crealary(rpx);
+    i_rpy = dcl_obj2crealary(rpy);
+
+
+    sgtnxr_(&i_n, i_rpx, i_rpy, &i_itpat, &i_icolor);
+
+    dcl_freecrealary(i_rpx);
+    dcl_freecrealary(i_rpy);
+
+    return Qnil;
+
+}
+
+#endif
+
+#if DCLVER >= 544
+
+static VALUE
+dcl_sglnxu(obj, ux1, uy1, ux2, uy2, index, icolor)
+    VALUE obj, ux1, uy1, ux2, uy2, index, icolor;
+{
+    real i_ux1;
+    real i_uy1;
+    real i_ux2;
+    real i_uy2;
+    integer i_index;
+    integer i_icolor;
+
+    if (TYPE(ux1) != T_FLOAT) {
+      ux1 = rb_funcall(ux1, rb_intern("to_f"), 0);
+    }
+    if (TYPE(uy1) != T_FLOAT) {
+      uy1 = rb_funcall(uy1, rb_intern("to_f"), 0);
+    }
+    if (TYPE(ux2) != T_FLOAT) {
+      ux2 = rb_funcall(ux2, rb_intern("to_f"), 0);
+    }
+    if (TYPE(uy2) != T_FLOAT) {
+      uy2 = rb_funcall(uy2, rb_intern("to_f"), 0);
+    }
+    if ((TYPE(index) != T_BIGNUM) || (TYPE(index) != T_FIXNUM)) {
+      index = rb_funcall(index, rb_intern("to_i"), 0);
+    }
+    if ((TYPE(icolor) != T_BIGNUM) || (TYPE(icolor) != T_FIXNUM)) {
+      icolor = rb_funcall(icolor, rb_intern("to_i"), 0);
+    }
+
+    i_ux1 = (real)NUM2DBL(ux1);
+    i_uy1 = (real)NUM2DBL(uy1);
+    i_ux2 = (real)NUM2DBL(ux2);
+    i_uy2 = (real)NUM2DBL(uy2);
+    i_index = NUM2INT(index);
+    i_icolor = NUM2INT(icolor);
+
+
+    sglnxu_(&i_ux1, &i_uy1, &i_ux2, &i_uy2, &i_index, &i_icolor);
+
+    return Qnil;
+
+}
+
+#endif
+
+#if DCLVER >= 544
+
+static VALUE
+dcl_sglnxv(obj, vx1, vy1, vx2, vy2, index, icolor)
+    VALUE obj, vx1, vy1, vx2, vy2, index, icolor;
+{
+    real i_vx1;
+    real i_vy1;
+    real i_vx2;
+    real i_vy2;
+    integer i_index;
+    integer i_icolor;
+
+    if (TYPE(vx1) != T_FLOAT) {
+      vx1 = rb_funcall(vx1, rb_intern("to_f"), 0);
+    }
+    if (TYPE(vy1) != T_FLOAT) {
+      vy1 = rb_funcall(vy1, rb_intern("to_f"), 0);
+    }
+    if (TYPE(vx2) != T_FLOAT) {
+      vx2 = rb_funcall(vx2, rb_intern("to_f"), 0);
+    }
+    if (TYPE(vy2) != T_FLOAT) {
+      vy2 = rb_funcall(vy2, rb_intern("to_f"), 0);
+    }
+    if ((TYPE(index) != T_BIGNUM) || (TYPE(index) != T_FIXNUM)) {
+      index = rb_funcall(index, rb_intern("to_i"), 0);
+    }
+    if ((TYPE(icolor) != T_BIGNUM) || (TYPE(icolor) != T_FIXNUM)) {
+      icolor = rb_funcall(icolor, rb_intern("to_i"), 0);
+    }
+
+    i_vx1 = (real)NUM2DBL(vx1);
+    i_vy1 = (real)NUM2DBL(vy1);
+    i_vx2 = (real)NUM2DBL(vx2);
+    i_vy2 = (real)NUM2DBL(vy2);
+    i_index = NUM2INT(index);
+    i_icolor = NUM2INT(icolor);
+
+
+    sglnxv_(&i_vx1, &i_vy1, &i_vx2, &i_vy2, &i_index, &i_icolor);
+
+    return Qnil;
+
+}
+
+#endif
+
+#if DCLVER >= 544
+
+static VALUE
+dcl_sglnxr(obj, rx1, ry1, rx2, ry2, index, icolor)
+    VALUE obj, rx1, ry1, rx2, ry2, index, icolor;
+{
+    real i_rx1;
+    real i_ry1;
+    real i_rx2;
+    real i_ry2;
+    integer i_index;
+    integer i_icolor;
+
+    if (TYPE(rx1) != T_FLOAT) {
+      rx1 = rb_funcall(rx1, rb_intern("to_f"), 0);
+    }
+    if (TYPE(ry1) != T_FLOAT) {
+      ry1 = rb_funcall(ry1, rb_intern("to_f"), 0);
+    }
+    if (TYPE(rx2) != T_FLOAT) {
+      rx2 = rb_funcall(rx2, rb_intern("to_f"), 0);
+    }
+    if (TYPE(ry2) != T_FLOAT) {
+      ry2 = rb_funcall(ry2, rb_intern("to_f"), 0);
+    }
+    if ((TYPE(index) != T_BIGNUM) || (TYPE(index) != T_FIXNUM)) {
+      index = rb_funcall(index, rb_intern("to_i"), 0);
+    }
+    if ((TYPE(icolor) != T_BIGNUM) || (TYPE(icolor) != T_FIXNUM)) {
+      icolor = rb_funcall(icolor, rb_intern("to_i"), 0);
+    }
+
+    i_rx1 = (real)NUM2DBL(rx1);
+    i_ry1 = (real)NUM2DBL(ry1);
+    i_rx2 = (real)NUM2DBL(rx2);
+    i_ry2 = (real)NUM2DBL(ry2);
+    i_index = NUM2INT(index);
+    i_icolor = NUM2INT(icolor);
+
+
+    sglnxr_(&i_rx1, &i_ry1, &i_rx2, &i_ry2, &i_index, &i_icolor);
+
+    return Qnil;
+
+}
+
+#endif
+
+#if DCLVER >= 544
+
+static VALUE
+dcl_sglaxu(obj, ux1, uy1, ux2, uy2, itype, index, icolor)
+    VALUE obj, ux1, uy1, ux2, uy2, itype, index, icolor;
+{
+    real i_ux1;
+    real i_uy1;
+    real i_ux2;
+    real i_uy2;
+    integer i_itype;
+    integer i_index;
+    integer i_icolor;
+
+    if (TYPE(ux1) != T_FLOAT) {
+      ux1 = rb_funcall(ux1, rb_intern("to_f"), 0);
+    }
+    if (TYPE(uy1) != T_FLOAT) {
+      uy1 = rb_funcall(uy1, rb_intern("to_f"), 0);
+    }
+    if (TYPE(ux2) != T_FLOAT) {
+      ux2 = rb_funcall(ux2, rb_intern("to_f"), 0);
+    }
+    if (TYPE(uy2) != T_FLOAT) {
+      uy2 = rb_funcall(uy2, rb_intern("to_f"), 0);
+    }
+    if ((TYPE(itype) != T_BIGNUM) || (TYPE(itype) != T_FIXNUM)) {
+      itype = rb_funcall(itype, rb_intern("to_i"), 0);
+    }
+    if ((TYPE(index) != T_BIGNUM) || (TYPE(index) != T_FIXNUM)) {
+      index = rb_funcall(index, rb_intern("to_i"), 0);
+    }
+    if ((TYPE(icolor) != T_BIGNUM) || (TYPE(icolor) != T_FIXNUM)) {
+      icolor = rb_funcall(icolor, rb_intern("to_i"), 0);
+    }
+
+    i_ux1 = (real)NUM2DBL(ux1);
+    i_uy1 = (real)NUM2DBL(uy1);
+    i_ux2 = (real)NUM2DBL(ux2);
+    i_uy2 = (real)NUM2DBL(uy2);
+    i_itype = NUM2INT(itype);
+    i_index = NUM2INT(index);
+    i_icolor = NUM2INT(icolor);
+
+
+    sglaxu_(&i_ux1, &i_uy1, &i_ux2, &i_uy2, &i_itype, &i_index, &i_icolor);
+
+    return Qnil;
+
+}
+
+#endif
+
+#if DCLVER >= 544
+
+static VALUE
+dcl_sglaxv(obj, vx1, vy1, vx2, vy2, itype, index, icolor)
+    VALUE obj, vx1, vy1, vx2, vy2, itype, index, icolor;
+{
+    real i_vx1;
+    real i_vy1;
+    real i_vx2;
+    real i_vy2;
+    integer i_itype;
+    integer i_index;
+    integer i_icolor;
+
+    if (TYPE(vx1) != T_FLOAT) {
+      vx1 = rb_funcall(vx1, rb_intern("to_f"), 0);
+    }
+    if (TYPE(vy1) != T_FLOAT) {
+      vy1 = rb_funcall(vy1, rb_intern("to_f"), 0);
+    }
+    if (TYPE(vx2) != T_FLOAT) {
+      vx2 = rb_funcall(vx2, rb_intern("to_f"), 0);
+    }
+    if (TYPE(vy2) != T_FLOAT) {
+      vy2 = rb_funcall(vy2, rb_intern("to_f"), 0);
+    }
+    if ((TYPE(itype) != T_BIGNUM) || (TYPE(itype) != T_FIXNUM)) {
+      itype = rb_funcall(itype, rb_intern("to_i"), 0);
+    }
+    if ((TYPE(index) != T_BIGNUM) || (TYPE(index) != T_FIXNUM)) {
+      index = rb_funcall(index, rb_intern("to_i"), 0);
+    }
+    if ((TYPE(icolor) != T_BIGNUM) || (TYPE(icolor) != T_FIXNUM)) {
+      icolor = rb_funcall(icolor, rb_intern("to_i"), 0);
+    }
+
+    i_vx1 = (real)NUM2DBL(vx1);
+    i_vy1 = (real)NUM2DBL(vy1);
+    i_vx2 = (real)NUM2DBL(vx2);
+    i_vy2 = (real)NUM2DBL(vy2);
+    i_itype = NUM2INT(itype);
+    i_index = NUM2INT(index);
+    i_icolor = NUM2INT(icolor);
+
+
+    sglaxv_(&i_vx1, &i_vy1, &i_vx2, &i_vy2, &i_itype, &i_index, &i_icolor);
+
+    return Qnil;
+
+}
+
+#endif
+
+#if DCLVER >= 544
+
+static VALUE
+dcl_sglaxr(obj, rx1, ry1, rx2, ry2, itype, index, icolor)
+    VALUE obj, rx1, ry1, rx2, ry2, itype, index, icolor;
+{
+    real i_rx1;
+    real i_ry1;
+    real i_rx2;
+    real i_ry2;
+    integer i_itype;
+    integer i_index;
+    integer i_icolor;
+
+    if (TYPE(rx1) != T_FLOAT) {
+      rx1 = rb_funcall(rx1, rb_intern("to_f"), 0);
+    }
+    if (TYPE(ry1) != T_FLOAT) {
+      ry1 = rb_funcall(ry1, rb_intern("to_f"), 0);
+    }
+    if (TYPE(rx2) != T_FLOAT) {
+      rx2 = rb_funcall(rx2, rb_intern("to_f"), 0);
+    }
+    if (TYPE(ry2) != T_FLOAT) {
+      ry2 = rb_funcall(ry2, rb_intern("to_f"), 0);
+    }
+    if ((TYPE(itype) != T_BIGNUM) || (TYPE(itype) != T_FIXNUM)) {
+      itype = rb_funcall(itype, rb_intern("to_i"), 0);
+    }
+    if ((TYPE(index) != T_BIGNUM) || (TYPE(index) != T_FIXNUM)) {
+      index = rb_funcall(index, rb_intern("to_i"), 0);
+    }
+    if ((TYPE(icolor) != T_BIGNUM) || (TYPE(icolor) != T_FIXNUM)) {
+      icolor = rb_funcall(icolor, rb_intern("to_i"), 0);
+    }
+
+    i_rx1 = (real)NUM2DBL(rx1);
+    i_ry1 = (real)NUM2DBL(ry1);
+    i_rx2 = (real)NUM2DBL(rx2);
+    i_ry2 = (real)NUM2DBL(ry2);
+    i_itype = NUM2INT(itype);
+    i_index = NUM2INT(index);
+    i_icolor = NUM2INT(icolor);
+
+
+    sglaxr_(&i_rx1, &i_ry1, &i_rx2, &i_ry2, &i_itype, &i_index, &i_icolor);
+
+    return Qnil;
+
+}
+
 #endif
 void
 init_grph1_sgpack(mDCL)
@@ -3873,4 +4976,67 @@ VALUE mDCL;
 #if DCLVER >= 530
     rb_define_module_function(mDCL, "sgqcwd", dcl_sgqcwd, 0);
 #endif
+#if DCLVER >= 544
+    rb_define_module_function(mDCL, "isgrgb", dcl_isgrgb, 3);
+#endif
+#if DCLVER >= 544
+    rb_define_module_function(mDCL, "sgclst", dcl_sgclst, 1);
+#endif
+#if DCLVER >= 544
+    rb_define_module_function(mDCL, "sgqcl", dcl_sgqcl, 1);
+#endif
+#if DCLVER >= 544
+    rb_define_module_function(mDCL, "sgplxu", dcl_sgplxu, 6);
+#endif
+#if DCLVER >= 544
+    rb_define_module_function(mDCL, "sgplxv", dcl_sgplxv, 6);
+#endif
+#if DCLVER >= 544
+    rb_define_module_function(mDCL, "sgplxr", dcl_sgplxr, 6);
+#endif
+#if DCLVER >= 544
+    rb_define_module_function(mDCL, "sgpmxu", dcl_sgpmxu, 7);
+#endif
+#if DCLVER >= 544
+    rb_define_module_function(mDCL, "sgpmxv", dcl_sgpmxv, 7);
+#endif
+#if DCLVER >= 544
+    rb_define_module_function(mDCL, "sgpmxr", dcl_sgpmxr, 7);
+#endif
+#if DCLVER >= 544
+    rb_define_module_function(mDCL, "sgtxxu", dcl_sgtxxu, 8);
+#endif
+#if DCLVER >= 544
+    rb_define_module_function(mDCL, "sgtxxv", dcl_sgtxxv, 8);
+#endif
+#if DCLVER >= 544
+    rb_define_module_function(mDCL, "sgtxxr", dcl_sgtxxr, 8);
+#endif
+#if DCLVER >= 544
+    rb_define_module_function(mDCL, "sgtnxu", dcl_sgtnxu, 5);
+#endif
+#if DCLVER >= 544
+    rb_define_module_function(mDCL, "sgtnxv", dcl_sgtnxv, 5);
+#endif
+#if DCLVER >= 544
+    rb_define_module_function(mDCL, "sgtnxr", dcl_sgtnxr, 5);
+#endif
+#if DCLVER >= 544
+    rb_define_module_function(mDCL, "sglnxu", dcl_sglnxu, 6);
+#endif
+#if DCLVER >= 544
+    rb_define_module_function(mDCL, "sglnxv", dcl_sglnxv, 6);
+#endif
+#if DCLVER >= 544
+    rb_define_module_function(mDCL, "sglnxr", dcl_sglnxr, 6);
+#endif
+#if DCLVER >= 544
+    rb_define_module_function(mDCL, "sglaxu", dcl_sglaxu, 7);
+#endif
+#if DCLVER >= 544
+    rb_define_module_function(mDCL, "sglaxv", dcl_sglaxv, 7);
+#endif
+#if DCLVER >= 544
+    rb_define_module_function(mDCL, "sglaxr", dcl_sglaxr, 7);
+#endif
 }