| … | |
… | |
| 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 | |
