ruby-libgd 0.1.0

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA256:
+  metadata.gz: f566c090167c7d474884a2caed9fda37b3e378c2ad716012db964f2abd6fc1ee
+  data.tar.gz: 972e8939e822ce014cbb7005dca64ee29b39f72b55ff69229fe31c46c91f0740
+SHA512:
+  metadata.gz: 0e2e8a0ce2d911de832dae17d146bcacdefdc962aa2055b6a8757e0dc10b97775b16f3e96c88b58a227e894a42f363470d2936eccb3853e1a811be9081da603d
+  data.tar.gz: ce9b77215a9500eb52fa5d6c328dc2fb58f81f153a849be441fd481e667e0307523fbdff65e4985d36265d269eb8d8fb4d866ed11f7a418457025c327d084bee

data/ext/gd/Makefile

@@ -0,0 +1,269 @@
+
+SHELL = /bin/sh
+
+# V=0 quiet, V=1 verbose.  other values don't work.
+V = 0
+V0 = $(V:0=)
+Q1 = $(V:1=)
+Q = $(Q1:0=@)
+ECHO1 = $(V:1=@ :)
+ECHO = $(ECHO1:0=@ echo)
+NULLCMD = :
+
+#### Start of system configuration section. ####
+
+srcdir = .
+topdir = /usr/local/include/ruby-3.3.0
+hdrdir = $(topdir)
+arch_hdrdir = /usr/local/include/ruby-3.3.0/x86_64-linux
+PATH_SEPARATOR = :
+VPATH = $(srcdir):$(arch_hdrdir)/ruby:$(hdrdir)/ruby
+prefix = $(DESTDIR)/usr/local
+rubysitearchprefix = $(rubylibprefix)/$(sitearch)
+rubyarchprefix = $(rubylibprefix)/$(arch)
+rubylibprefix = $(libdir)/$(RUBY_BASE_NAME)
+exec_prefix = $(prefix)
+vendorarchhdrdir = $(vendorhdrdir)/$(sitearch)
+sitearchhdrdir = $(sitehdrdir)/$(sitearch)
+rubyarchhdrdir = $(rubyhdrdir)/$(arch)
+vendorhdrdir = $(rubyhdrdir)/vendor_ruby
+sitehdrdir = $(rubyhdrdir)/site_ruby
+rubyhdrdir = $(includedir)/$(RUBY_VERSION_NAME)
+vendorarchdir = $(vendorlibdir)/$(sitearch)
+vendorlibdir = $(vendordir)/$(ruby_version)
+vendordir = $(rubylibprefix)/vendor_ruby
+sitearchdir = $(sitelibdir)/$(sitearch)
+sitelibdir = $(sitedir)/$(ruby_version)
+sitedir = $(rubylibprefix)/site_ruby
+rubyarchdir = $(rubylibdir)/$(arch)
+rubylibdir = $(rubylibprefix)/$(ruby_version)
+sitearchincludedir = $(includedir)/$(sitearch)
+archincludedir = $(includedir)/$(arch)
+sitearchlibdir = $(libdir)/$(sitearch)
+archlibdir = $(libdir)/$(arch)
+ridir = $(datarootdir)/$(RI_BASE_NAME)
+mandir = $(datarootdir)/man
+localedir = $(datarootdir)/locale
+libdir = $(exec_prefix)/lib
+psdir = $(docdir)
+pdfdir = $(docdir)
+dvidir = $(docdir)
+htmldir = $(docdir)
+infodir = $(datarootdir)/info
+docdir = $(datarootdir)/doc/$(PACKAGE)
+oldincludedir = $(DESTDIR)/usr/include
+includedir = $(prefix)/include
+runstatedir = $(localstatedir)/run
+localstatedir = $(prefix)/var
+sharedstatedir = $(prefix)/com
+sysconfdir = $(prefix)/etc
+datadir = $(datarootdir)
+datarootdir = $(prefix)/share
+libexecdir = $(exec_prefix)/libexec
+sbindir = $(exec_prefix)/sbin
+bindir = $(exec_prefix)/bin
+archdir = $(rubyarchdir)
+
+
+CC_WRAPPER = 
+CC = gcc
+CXX = g++
+LIBRUBY = $(LIBRUBY_SO)
+LIBRUBY_A = lib$(RUBY_SO_NAME)-static.a
+LIBRUBYARG_SHARED = -Wl,-rpath,$(libdir) -L$(libdir) -l$(RUBY_SO_NAME)
+LIBRUBYARG_STATIC = -Wl,-rpath,$(libdir) -L$(libdir) -l$(RUBY_SO_NAME)-static $(MAINLIBS)
+empty =
+OUTFLAG = -o $(empty)
+COUTFLAG = -o $(empty)
+CSRCFLAG = $(empty)
+
+RUBY_EXTCONF_H = 
+cflags   = $(optflags) $(debugflags) $(warnflags)
+cxxflags = 
+optflags = -O3 -fno-fast-math
+debugflags = -ggdb3
+warnflags = -Wall -Wextra -Wdeprecated-declarations -Wdiv-by-zero -Wduplicated-cond -Wimplicit-function-declaration -Wimplicit-int -Wpointer-arith -Wwrite-strings -Wold-style-definition -Wimplicit-fallthrough=0 -Wmissing-noreturn -Wno-cast-function-type -Wno-constant-logical-operand -Wno-long-long -Wno-missing-field-initializers -Wno-overlength-strings -Wno-packed-bitfield-compat -Wno-parentheses-equality -Wno-self-assign -Wno-tautological-compare -Wno-unused-parameter -Wno-unused-value -Wsuggest-attribute=format -Wsuggest-attribute=noreturn -Wunused-variable -Wmisleading-indentation -Wundef
+cppflags = 
+CCDLFLAGS = -fPIC
+CFLAGS   = $(CCDLFLAGS) $(cflags)  -fPIC $(ARCH_FLAG)
+INCFLAGS = -I. -I$(arch_hdrdir) -I$(hdrdir)/ruby/backward -I$(hdrdir) -I$(srcdir)
+DEFS     = 
+CPPFLAGS =   $(DEFS) $(cppflags)
+CXXFLAGS = $(CCDLFLAGS)  $(ARCH_FLAG)
+ldflags  = -L. -fstack-protector-strong -rdynamic -Wl,-export-dynamic -Wl,--no-as-needed
+dldflags = -Wl,--compress-debug-sections=zlib 
+ARCH_FLAG = 
+DLDFLAGS = $(ldflags) $(dldflags) $(ARCH_FLAG)
+LDSHARED = $(CC) -shared
+LDSHAREDXX = $(CXX) -shared
+AR = gcc-ar
+EXEEXT = 
+
+RUBY_INSTALL_NAME = $(RUBY_BASE_NAME)
+RUBY_SO_NAME = ruby
+RUBYW_INSTALL_NAME = 
+RUBY_VERSION_NAME = $(RUBY_BASE_NAME)-$(ruby_version)
+RUBYW_BASE_NAME = rubyw
+RUBY_BASE_NAME = ruby
+
+arch = x86_64-linux
+sitearch = $(arch)
+ruby_version = 3.3.0
+ruby = $(bindir)/$(RUBY_BASE_NAME)
+RUBY = $(ruby)
+BUILTRUBY = $(bindir)/$(RUBY_BASE_NAME)
+ruby_headers = $(hdrdir)/ruby.h $(hdrdir)/ruby/backward.h $(hdrdir)/ruby/ruby.h $(hdrdir)/ruby/defines.h $(hdrdir)/ruby/missing.h $(hdrdir)/ruby/intern.h $(hdrdir)/ruby/st.h $(hdrdir)/ruby/subst.h $(arch_hdrdir)/ruby/config.h
+
+RM = rm -f
+RM_RF = rm -fr
+RMDIRS = rmdir --ignore-fail-on-non-empty -p
+MAKEDIRS = /usr/bin/mkdir -p
+INSTALL = /usr/bin/install -c
+INSTALL_PROG = $(INSTALL) -m 0755
+INSTALL_DATA = $(INSTALL) -m 644
+COPY = cp
+TOUCH = exit >
+
+#### End of system configuration section. ####
+
+preload = 
+libpath = . $(libdir)
+LIBPATH =  -L. -L$(libdir) -Wl,-rpath,$(libdir)
+DEFFILE = 
+
+CLEANFILES = mkmf.log
+DISTCLEANFILES = 
+DISTCLEANDIRS = 
+
+extout = 
+extout_prefix = 
+target_prefix = /gd
+LOCAL_LIBS = 
+LIBS = $(LIBRUBYARG_SHARED) -lm -lgd  -lm -lpthread  -lc
+ORIG_SRCS = arc.c blit.c char.c circle.c clip.c color.c draw_line.c ellipse.c encode.c fill.c filter.c gd.c image.c pixel.c polygon.c rectangle.c text.c transform.c version.c
+SRCS = $(ORIG_SRCS) 
+OBJS = arc.o blit.o char.o circle.o clip.o color.o draw_line.o ellipse.o encode.o fill.o filter.o gd.o image.o pixel.o polygon.o rectangle.o text.o transform.o version.o
+HDRS = $(srcdir)/clip.h $(srcdir)/ruby_gd.h
+LOCAL_HDRS = 
+TARGET = gd
+TARGET_NAME = gd
+TARGET_ENTRY = Init_$(TARGET_NAME)
+DLLIB = $(TARGET).so
+EXTSTATIC = 
+STATIC_LIB = 
+
+TIMESTAMP_DIR = .
+BINDIR        = $(bindir)
+RUBYCOMMONDIR = $(sitedir)$(target_prefix)
+RUBYLIBDIR    = $(sitelibdir)$(target_prefix)
+RUBYARCHDIR   = $(sitearchdir)$(target_prefix)
+HDRDIR        = $(sitehdrdir)$(target_prefix)
+ARCHHDRDIR    = $(sitearchhdrdir)$(target_prefix)
+TARGET_SO_DIR =
+TARGET_SO     = $(TARGET_SO_DIR)$(DLLIB)
+CLEANLIBS     = $(TARGET_SO) false
+CLEANOBJS     = $(OBJS) *.bak
+TARGET_SO_DIR_TIMESTAMP = $(TIMESTAMP_DIR)/.sitearchdir.-.gd.time
+
+all:    $(DLLIB)
+static: $(STATIC_LIB)
+.PHONY: all install static install-so install-rb
+.PHONY: clean clean-so clean-static clean-rb
+
+clean-static::
+clean-rb-default::
+clean-rb::
+clean-so::
+clean: clean-so clean-static clean-rb-default clean-rb
+		-$(Q)$(RM_RF) $(CLEANLIBS) $(CLEANOBJS) $(CLEANFILES) .*.time
+
+distclean-rb-default::
+distclean-rb::
+distclean-so::
+distclean-static::
+distclean: clean distclean-so distclean-static distclean-rb-default distclean-rb
+		-$(Q)$(RM) Makefile $(RUBY_EXTCONF_H) conftest.* mkmf.log
+		-$(Q)$(RM) core ruby$(EXEEXT) *~ $(DISTCLEANFILES)
+		-$(Q)$(RMDIRS) $(DISTCLEANDIRS) 2> /dev/null || true
+
+realclean: distclean
+install: install-so install-rb
+
+install-so: $(DLLIB) $(TARGET_SO_DIR_TIMESTAMP)
+	$(INSTALL_PROG) $(DLLIB) $(RUBYARCHDIR)
+clean-static::
+	-$(Q)$(RM) $(STATIC_LIB)
+install-rb: pre-install-rb do-install-rb install-rb-default
+install-rb-default: pre-install-rb-default do-install-rb-default
+pre-install-rb: Makefile
+pre-install-rb-default: Makefile
+do-install-rb:
+do-install-rb-default:
+pre-install-rb-default:
+	@$(NULLCMD)
+$(TARGET_SO_DIR_TIMESTAMP):
+	$(Q) $(MAKEDIRS) $(@D) $(RUBYARCHDIR)
+	$(Q) $(TOUCH) $@
+
+site-install: site-install-so site-install-rb
+site-install-so: install-so
+site-install-rb: install-rb
+
+.SUFFIXES: .c .m .cc .mm .cxx .cpp .o .S
+
+.cc.o:
+	$(ECHO) compiling $(<)
+	$(Q) $(CXX) $(INCFLAGS) $(CPPFLAGS) $(CXXFLAGS) $(COUTFLAG)$@ -c $(CSRCFLAG)$<
+
+.cc.S:
+	$(ECHO) translating $(<)
+	$(Q) $(CXX) $(INCFLAGS) $(CPPFLAGS) $(CXXFLAGS) $(COUTFLAG)$@ -S $(CSRCFLAG)$<
+
+.mm.o:
+	$(ECHO) compiling $(<)
+	$(Q) $(CXX) $(INCFLAGS) $(CPPFLAGS) $(CXXFLAGS) $(COUTFLAG)$@ -c $(CSRCFLAG)$<
+
+.mm.S:
+	$(ECHO) translating $(<)
+	$(Q) $(CXX) $(INCFLAGS) $(CPPFLAGS) $(CXXFLAGS) $(COUTFLAG)$@ -S $(CSRCFLAG)$<
+
+.cxx.o:
+	$(ECHO) compiling $(<)
+	$(Q) $(CXX) $(INCFLAGS) $(CPPFLAGS) $(CXXFLAGS) $(COUTFLAG)$@ -c $(CSRCFLAG)$<
+
+.cxx.S:
+	$(ECHO) translating $(<)
+	$(Q) $(CXX) $(INCFLAGS) $(CPPFLAGS) $(CXXFLAGS) $(COUTFLAG)$@ -S $(CSRCFLAG)$<
+
+.cpp.o:
+	$(ECHO) compiling $(<)
+	$(Q) $(CXX) $(INCFLAGS) $(CPPFLAGS) $(CXXFLAGS) $(COUTFLAG)$@ -c $(CSRCFLAG)$<
+
+.cpp.S:
+	$(ECHO) translating $(<)
+	$(Q) $(CXX) $(INCFLAGS) $(CPPFLAGS) $(CXXFLAGS) $(COUTFLAG)$@ -S $(CSRCFLAG)$<
+
+.c.o:
+	$(ECHO) compiling $(<)
+	$(Q) $(CC) $(INCFLAGS) $(CPPFLAGS) $(CFLAGS) $(COUTFLAG)$@ -c $(CSRCFLAG)$<
+
+.c.S:
+	$(ECHO) translating $(<)
+	$(Q) $(CC) $(INCFLAGS) $(CPPFLAGS) $(CFLAGS) $(COUTFLAG)$@ -S $(CSRCFLAG)$<
+
+.m.o:
+	$(ECHO) compiling $(<)
+	$(Q) $(CC) $(INCFLAGS) $(CPPFLAGS) $(CFLAGS) $(COUTFLAG)$@ -c $(CSRCFLAG)$<
+
+.m.S:
+	$(ECHO) translating $(<)
+	$(Q) $(CC) $(INCFLAGS) $(CPPFLAGS) $(CFLAGS) $(COUTFLAG)$@ -S $(CSRCFLAG)$<
+
+$(TARGET_SO): $(OBJS) Makefile
+	$(ECHO) linking shared-object gd/$(DLLIB)
+	-$(Q)$(RM) $(@)
+	$(Q) $(LDSHARED) -o $@ $(OBJS) $(LIBPATH) $(DLDFLAGS) $(LOCAL_LIBS) $(LIBS)
+
+
+
+$(OBJS): $(HDRS) $(ruby_headers)

data/ext/gd/arc.c

@@ -0,0 +1,52 @@
+#include "ruby_gd.h"
+
+static VALUE gd_image_arc(VALUE self,
+    VALUE vcx, VALUE vcy,
+    VALUE vw, VALUE vh,
+    VALUE vstart, VALUE vend,
+    VALUE vcolor
+) {
+    gd_image_wrapper *wrap;
+    TypedData_Get_Struct(self, gd_image_wrapper, &gd_image_type, wrap);
+
+    int cx = NUM2INT(vcx);
+    int cy = NUM2INT(vcy);
+    int w  = NUM2INT(vw);
+    int h  = NUM2INT(vh);
+    int s  = NUM2INT(vstart);
+    int e  = NUM2INT(vend);
+
+    int c = color_to_gd(wrap->img, vcolor);
+
+    gdImageArc(wrap->img, cx, cy, w, h, s, e, c);
+
+    return self;
+}
+
+static VALUE gd_image_filled_arc(VALUE self,
+    VALUE vcx, VALUE vcy,
+    VALUE vw, VALUE vh,
+    VALUE vstart, VALUE vend,
+    VALUE vcolor
+) {
+    gd_image_wrapper *wrap;
+    TypedData_Get_Struct(self, gd_image_wrapper, &gd_image_type, wrap);
+
+    int cx = NUM2INT(vcx);
+    int cy = NUM2INT(vcy);
+    int w  = NUM2INT(vw);
+    int h  = NUM2INT(vh);
+    int s  = NUM2INT(vstart);
+    int e  = NUM2INT(vend);
+
+    int c = color_to_gd(wrap->img, vcolor);
+
+    gdImageFilledArc(wrap->img, cx, cy, w, h, s, e, c, gdArc);
+
+    return self;
+}
+
+void gd_define_arc(VALUE cGDImage) {
+    rb_define_method(cGDImage, "arc", gd_image_arc, 7);
+    rb_define_method(cGDImage, "filled_arc", gd_image_filled_arc, 7);
+}

data/ext/gd/blit.c

@@ -0,0 +1,37 @@
+/**
+  - [ ] imagecopy — Copy part of an image
+  - [ ] imagecopymerge — Copy and merge part of an image
+  - [ ] imagecopymergegray — Copy and merge part of an image with gray scale
+  - [ ] imagecopyresampled — Copy and resize part of an image with resampling
+  - [ ] imagecopyresized — Copy and resize part of an image
+*/
+#include "ruby_gd.h"
+
+static VALUE gd_image_copy_merge(
+  VALUE self, VALUE src,
+  VALUE dx, VALUE dy,
+  VALUE sx, VALUE sy,
+  VALUE w, VALUE h,
+  VALUE pct
+) {
+  gd_image_wrapper *dst_wrap;
+  gd_image_wrapper *src_wrap;
+
+  TypedData_Get_Struct(self, gd_image_wrapper, &gd_image_type, dst_wrap);
+  TypedData_Get_Struct(src,  gd_image_wrapper, &gd_image_type, src_wrap);
+
+  gdImageCopyMerge(
+    dst_wrap->img,
+    src_wrap->img,
+    NUM2INT(dx), NUM2INT(dy),
+    NUM2INT(sx), NUM2INT(sy),
+    NUM2INT(w),  NUM2INT(h),
+    NUM2INT(pct)
+  );
+
+  return self;
+}
+
+void gd_define_blit(VALUE cGDImage) {
+  rb_define_method(cGDImage, "copy_merge", gd_image_copy_merge, 8);
+}

data/ext/gd/char.c

@@ -0,0 +1,6 @@
+/**
+    - [ ] imagechar — Draw a character horizontally
+    - [ ] imagecharup — Draw a character vertically
+*/
+
+

data/ext/gd/circle.c

@@ -0,0 +1,39 @@
+#include "ruby_gd.h"
+
+static VALUE gd_image_circle(VALUE self, VALUE cx, VALUE cy, VALUE r, VALUE color) {
+  gd_image_wrapper *wrap;
+  TypedData_Get_Struct(self, gd_image_wrapper, &gd_image_type, wrap);
+
+  int red = NUM2INT(rb_ary_entry(color, 0));
+  int green = NUM2INT(rb_ary_entry(color, 1));
+  int blue = NUM2INT(rb_ary_entry(color, 2));
+  int c = gdImageColorAllocate(wrap->img, red, green, blue);
+
+  gdImageArc(wrap->img,
+             NUM2INT(cx), NUM2INT(cy),
+             NUM2INT(r)*2, NUM2INT(r)*2,
+             0, 360,
+             c);
+  return Qnil;
+}
+
+static VALUE gd_image_filled_circle(VALUE self, VALUE cx, VALUE cy, VALUE r, VALUE color) {
+  gd_image_wrapper *wrap;
+  TypedData_Get_Struct(self, gd_image_wrapper, &gd_image_type, wrap);
+
+  int red = NUM2INT(rb_ary_entry(color, 0));
+  int green = NUM2INT(rb_ary_entry(color, 1));
+  int blue = NUM2INT(rb_ary_entry(color, 2));
+  int c = gdImageColorAllocate(wrap->img, red, green, blue);
+
+  gdImageFilledEllipse(wrap->img,
+                       NUM2INT(cx), NUM2INT(cy),
+                       NUM2INT(r)*2, NUM2INT(r)*2,
+                       c);
+  return Qnil;
+}
+
+void gd_define_circle(VALUE cGDImage) {
+  rb_define_method(cGDImage, "circle", gd_image_circle, 4);
+  rb_define_method(cGDImage, "filled_circle", gd_image_filled_circle, 4);
+}

data/ext/gd/clip.c

@@ -0,0 +1,92 @@
+#include "clip.h"
+#include <math.h>
+
+/* Cohen–Sutherland outcodes */
+#define CS_LEFT   1
+#define CS_RIGHT  2
+#define CS_BOTTOM 4
+#define CS_TOP    8
+
+/**
+ - [ ] imagegetclip — Get the clipping rectangle
+ - [ ] imagesetclip — Set the clipping rectangle
+*/
+
+static int cs_outcode(int x, int y, int xmin, int ymin, int xmax, int ymax)
+{
+  int code = 0;
+  if (x < xmin) code |= CS_LEFT;
+  else if (x > xmax) code |= CS_RIGHT;
+
+  if (y < ymin) code |= CS_TOP;
+  else if (y > ymax) code |= CS_BOTTOM;
+
+  return code;
+}
+
+/*
+ * Clips a line segment to rectangle [xmin..xmax] × [ymin..ymax].
+ * On success, updates (*x1,*y1,*x2,*y2) to clipped endpoints and returns 1.
+ * If outside (no intersection), returns 0.
+ */
+int gd_clip_line_to_rect(int *x1, int *y1, int *x2, int *y2,
+                     int xmin, int ymin, int xmax, int ymax)
+{
+  int x1i = *x1, y1i = *y1, x2i = *x2, y2i = *y2;
+  int out1 = cs_outcode(x1i, y1i, xmin, ymin, xmax, ymax);
+  int out2 = cs_outcode(x2i, y2i, xmin, ymin, xmax, ymax);
+
+  while (1) {
+    if ((out1 | out2) == 0) {
+      /* Trivially accept */
+      *x1 = x1i; *y1 = y1i; *x2 = x2i; *y2 = y2i;
+      return 1;
+    }
+    if ((out1 & out2) != 0) {
+      /* Trivially reject */
+      return 0;
+    }
+
+    /* At least one endpoint is outside; choose it */
+    int out = out1 ? out1 : out2;
+
+    /* Intersection point (use double to avoid integer rounding traps) */
+    double x = 0.0, y = 0.0;
+    double dx = (double)(x2i - x1i);
+    double dy = (double)(y2i - y1i);
+
+    if (out & CS_TOP) {
+      /* y = ymin */
+      if (dy == 0.0) return 0; /* horizontal line outside */
+      x = x1i + dx * ( (double)(ymin - y1i) / dy );
+      y = (double)ymin;
+    } else if (out & CS_BOTTOM) {
+      /* y = ymax */
+      if (dy == 0.0) return 0;
+      x = x1i + dx * ( (double)(ymax - y1i) / dy );
+      y = (double)ymax;
+    } else if (out & CS_RIGHT) {
+      /* x = xmax */
+      if (dx == 0.0) return 0; /* vertical line outside */
+      y = y1i + dy * ( (double)(xmax - x1i) / dx );
+      x = (double)xmax;
+    } else { /* CS_LEFT */
+      /* x = xmin */
+      if (dx == 0.0) return 0;
+      y = y1i + dy * ( (double)(xmin - x1i) / dx );
+      x = (double)xmin;
+    }
+
+    /* Round to nearest int (you can also use floor/ceil if prefieres) */
+    int xi = (int)lround(x);
+    int yi = (int)lround(y);
+
+    if (out == out1) {
+      x1i = xi; y1i = yi;
+      out1 = cs_outcode(x1i, y1i, xmin, ymin, xmax, ymax);
+    } else {
+      x2i = xi; y2i = yi;
+      out2 = cs_outcode(x2i, y2i, xmin, ymin, xmax, ymax);
+    }
+  }
+}

data/ext/gd/clip.h

@@ -0,0 +1,7 @@
+#ifndef RUBY_LIBGD_CLIP_H
+#define RUBY_LIBGD_CLIP_H
+
+int gd_clip_line_to_rect(int *x1, int *y1, int *x2, int *y2,
+                         int xmin, int ymin, int xmax, int ymax);
+
+#endif

data/ext/gd/color.c

@@ -0,0 +1,53 @@
+#include "ruby_gd.h"
+
+int color_to_gd(gdImagePtr im, VALUE color) {
+    Check_Type(color, T_ARRAY);
+    if (RARRAY_LEN(color) < 3)
+        rb_raise(rb_eArgError, "color must be [r,g,b] or [r,g,b,a]");
+
+    int r = NUM2INT(rb_ary_entry(color, 0));
+    int g = NUM2INT(rb_ary_entry(color, 1));
+    int b = NUM2INT(rb_ary_entry(color, 2));
+
+    if (gdImageTrueColor(im)) {
+        if (RARRAY_LEN(color) >= 4) {
+            int a = NUM2INT(rb_ary_entry(color, 3));
+            return gdTrueColorAlpha(r,g,b,a);
+        }
+        return gdTrueColor(r,g,b);
+    }
+
+    return gdImageColorAllocate(im, r,g,b);
+}
+
+static VALUE gd_color_rgb(VALUE self, VALUE r, VALUE g, VALUE b) {
+  VALUE ary = rb_ary_new_capa(3);
+  rb_ary_push(ary, r);
+  rb_ary_push(ary, g);
+  rb_ary_push(ary, b);
+  return ary;
+}
+
+static VALUE gd_color_rgba(VALUE self, VALUE vr, VALUE vg, VALUE vb, VALUE va) {
+    int r = NUM2INT(vr);
+    int g = NUM2INT(vg);
+    int b = NUM2INT(vb);
+    int a = NUM2INT(va);
+
+    if (a < 0) a = 0;
+    if (a > 127) a = 127;   // GD usa 0=opaco, 127=transparente
+
+    VALUE ary = rb_ary_new2(4);
+    rb_ary_push(ary, INT2NUM(r));
+    rb_ary_push(ary, INT2NUM(g));
+    rb_ary_push(ary, INT2NUM(b));
+    rb_ary_push(ary, INT2NUM(a));
+
+    return ary;
+}
+
+void gd_define_color(VALUE mGD) {
+  VALUE mGDColor = rb_define_module_under(mGD, "Color");
+  rb_define_singleton_method(mGDColor, "rgb", gd_color_rgb, 3);
+  rb_define_singleton_method(mGDColor, "rgba", gd_color_rgba, 4);
+}

data/ext/gd/draw_line.c

@@ -0,0 +1,53 @@
+#include <math.h>
+#include "ruby_gd.h"
+#include "clip.h"
+
+static VALUE gd_image_line(VALUE self, VALUE x1, VALUE y1, VALUE x2, VALUE y2, VALUE color) {
+  gd_image_wrapper *wrap;
+  TypedData_Get_Struct(self, gd_image_wrapper, &gd_image_type, wrap);
+
+  int ix1 = NUM2INT(x1);
+  int iy1 = NUM2INT(y1);
+  int ix2 = NUM2INT(x2);
+  int iy2 = NUM2INT(y2);
+
+  int ox1 = ix1;
+  int oy1 = iy1;
+  int ox2 = ix2;
+  int oy2 = iy2;
+
+  int w = wrap->img->sx;
+  int h = wrap->img->sy;
+
+  /* Clip to image bounds */
+  int xmin = 0;
+  int ymin = 0;
+  int xmax = w - 1;
+  int ymax = h - 1;
+
+  if (!gd_clip_line_to_rect(&ix1, &iy1, &ix2, &iy2, xmin, ymin, xmax, ymax)) {
+    rb_warn("Line is completely outside image bounds");
+    return Qnil;
+  }
+
+  if (ix1 != ox1 || iy1 != oy1 || ix2 != ox2 || iy2 != oy2) {
+    rb_warn("Line coordinates clipped to image bounds");
+  }
+
+  if (TYPE(color) != T_ARRAY || RARRAY_LEN(color) != 3) {
+    rb_raise(rb_eArgError, "color must be [r,g,b]");
+  }
+
+  int r = NUM2INT(rb_ary_entry(color, 0));
+  int g = NUM2INT(rb_ary_entry(color, 1));
+  int b = NUM2INT(rb_ary_entry(color, 2));
+
+  int c = gdImageColorAllocate(wrap->img, r, g, b);
+  gdImageLine(wrap->img, NUM2INT(x1), NUM2INT(y1), NUM2INT(x2), NUM2INT(y2), c);
+
+  return Qnil;
+}
+
+void gd_define_line(VALUE cGDImage) {
+  rb_define_method(cGDImage, "line", gd_image_line, 5);
+}

data/ext/gd/ellipse.c

@@ -0,0 +1,4 @@
+/**
+    - [ ] imageellipse — Draw an ellipse
+    - [ ] imagefilledellipse — Draw a filled ellipse
+ */