… | |
… | |
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 | |
405 | |
405 | if (items < 5) |
406 | if (items < 5) |
406 | { |
407 | { |
407 | w = SvNV (*hv_fetch (hv, "w", 1, 1)); |
408 | w = SvNV (*hv_fetch (hv, "w", 1, 1)); |
408 | h = SvNV (*hv_fetch (hv, "h", 1, 1)); |
409 | h = SvNV (*hv_fetch (hv, "h", 1, 1)); |
409 | } |
410 | } |
410 | |
411 | |
411 | glBindTexture (GL_TEXTURE_2D, name); |
412 | glBindTexture (GL_TEXTURE_2D, name); |
|
|
413 | if (wrap_mode) { |
|
|
414 | glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT); |
|
|
415 | glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT); |
|
|
416 | } |
412 | glBegin (GL_QUADS); |
417 | glBegin (GL_QUADS); |
413 | glTexCoord2d (0, 0); glVertex2d (x , y ); |
418 | glTexCoord2f (0, 0); glVertex2f (x , y ); |
414 | glTexCoord2d (0, t); glVertex2d (x , y + h); |
419 | glTexCoord2f (0, t); glVertex2f (x , y + h); |
415 | glTexCoord2d (s, t); glVertex2d (x + w, y + h); |
420 | glTexCoord2f (s, t); glVertex2f (x + w, y + h); |
416 | glTexCoord2d (s, 0); glVertex2d (x + w, y ); |
421 | glTexCoord2f (s, 0); glVertex2f (x + w, y ); |
417 | glEnd (); |
422 | glEnd (); |
418 | } |
423 | } |
419 | |
424 | |
420 | MODULE = CFClient PACKAGE = CFClient::Map |
425 | MODULE = CFClient PACKAGE = CFClient::Map |
421 | |
426 | |