--- deliantra/Deliantra-Client/Client.xs	2006/04/14 02:03:10	1.35
+++ deliantra/Deliantra-Client/Client.xs	2006/04/14 14:55:27	1.37
@@ -393,14 +393,15 @@
 MODULE = CFClient	PACKAGE = CFClient::Texture
 
 void
-draw_quad (SV *self, double x, double y, double w = 0, double h = 0)
+draw_quad (SV *self, float x, float y, float w = 0, float h = 0)
 	PROTOTYPE: $$$;$$
 	CODE:
 {
 	HV *hv = (HV *)SvRV (self);
-	double s = SvNV (*hv_fetch (hv, "s", 1, 1));
-	double t = SvNV (*hv_fetch (hv, "t", 1, 1));
+	float s = SvNV (*hv_fetch (hv, "s", 1, 1));
+	float t = SvNV (*hv_fetch (hv, "t", 1, 1));
         int name = SvIV (*hv_fetch (hv, "name", 4, 1));
+        int wrap_mode = SvIV (*hv_fetch (hv, "wrap_mode", 9, 1));
 
         if (items < 5)
           {
@@ -409,11 +410,15 @@
           }
 
         glBindTexture (GL_TEXTURE_2D, name);
+        if (wrap_mode) {
+           glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT);
+           glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT);
+        }
         glBegin (GL_QUADS);
-        glTexCoord2d (0, 0); glVertex2d (x    , y    );
-        glTexCoord2d (0, t); glVertex2d (x    , y + h);
-        glTexCoord2d (s, t); glVertex2d (x + w, y + h);
-        glTexCoord2d (s, 0); glVertex2d (x + w, y    );
+        glTexCoord2f (0, 0); glVertex2f (x    , y    );
+        glTexCoord2f (0, t); glVertex2f (x    , y + h);
+        glTexCoord2f (s, t); glVertex2f (x + w, y + h);
+        glTexCoord2f (s, 0); glVertex2f (x + w, y    );
         glEnd ();
 }