… | |
… | |
391 | } |
391 | } |
392 | |
392 | |
393 | MODULE = CFClient PACKAGE = CFClient::Texture |
393 | MODULE = CFClient PACKAGE = CFClient::Texture |
394 | |
394 | |
395 | void |
395 | void |
396 | draw_quad (SV *self, double x, double y, double w = 0, double h = 0) |
396 | draw_quad (SV *self, float x, float y, float w = 0, float h = 0) |
397 | PROTOTYPE: $$$;$$ |
397 | PROTOTYPE: $$$;$$ |
398 | CODE: |
398 | CODE: |
399 | { |
399 | { |
400 | HV *hv = (HV *)SvRV (self); |
400 | HV *hv = (HV *)SvRV (self); |
401 | double s = SvNV (*hv_fetch (hv, "s", 1, 1)); |
401 | float s = SvNV (*hv_fetch (hv, "s", 1, 1)); |
402 | double t = SvNV (*hv_fetch (hv, "t", 1, 1)); |
402 | float t = SvNV (*hv_fetch (hv, "t", 1, 1)); |
403 | int name = SvIV (*hv_fetch (hv, "name", 4, 1)); |
403 | int name = SvIV (*hv_fetch (hv, "name", 4, 1)); |
404 | int wrap_mode = SvIV (*hv_fetch (hv, "wrap_mode", 9, 1)); |
404 | int wrap_mode = SvIV (*hv_fetch (hv, "wrap_mode", 9, 1)); |
405 | |
405 | |
406 | if (items < 5) |
406 | if (items < 5) |
407 | { |
407 | { |
… | |
… | |
413 | if (wrap_mode) { |
413 | if (wrap_mode) { |
414 | glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT); |
414 | glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT); |
415 | glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT); |
415 | glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT); |
416 | } |
416 | } |
417 | glBegin (GL_QUADS); |
417 | glBegin (GL_QUADS); |
418 | glTexCoord2d (0, 0); glVertex2d (x , y ); |
418 | glTexCoord2f (0, 0); glVertex2f (x , y ); |
419 | glTexCoord2d (0, t); glVertex2d (x , y + h); |
419 | glTexCoord2f (0, t); glVertex2f (x , y + h); |
420 | glTexCoord2d (s, t); glVertex2d (x + w, y + h); |
420 | glTexCoord2f (s, t); glVertex2f (x + w, y + h); |
421 | glTexCoord2d (s, 0); glVertex2d (x + w, y ); |
421 | glTexCoord2f (s, 0); glVertex2f (x + w, y ); |
422 | glEnd (); |
422 | glEnd (); |
423 | } |
423 | } |
424 | |
424 | |
425 | MODULE = CFClient PACKAGE = CFClient::Map |
425 | MODULE = CFClient PACKAGE = CFClient::Map |
426 | |
426 | |