C-Code in Perl übersetzen (Allgemeines zu Perl)

[thread]7978[/thread]

C-Code in Perl übersetzen

Leser: 1

Matze

2006-05-14 23:40

User since
2005-08-29
222 Artikel
BenutzerIn

Wie der Titel es ja schon sagt bräuchte ich einmal Hilfe dabei, das hier:

Code: (dl )

    GLubyte fly[] = {0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
0x03, 0x80, 0x01, 0xC0, 0x06, 0xC0, 0x03, 0x60, 0x04, 0x60, 0x06, 0x20,
0x04, 0x30, 0x0C, 0x20, 0x04, 0x18, 0x18, 0x20, 0x04, 0x0C, 0x30, 0x20,
0x04, 0x06, 0x60, 0x20, 0x44, 0x03, 0xC0, 0x22, 0x44, 0x01, 0x80, 0x22,
0x44, 0x01, 0x80, 0x22, 0x44, 0x01, 0x80, 0x22, 0x44, 0x01, 0x80, 0x22,
0x44, 0x01, 0x80, 0x22, 0x44, 0x01, 0x80, 0x22, 0x66, 0x01, 0x80, 0x66,
0x33, 0x01, 0x80, 0xCC, 0x19, 0x81, 0x81, 0x98, 0x0C, 0xC1, 0x83, 0x30,
0x07, 0xe1, 0x87, 0xe0, 0x03, 0x3f, 0xfc, 0xc0, 0x03, 0x31, 0x8c, 0xc0,
0x03, 0x33, 0xcc, 0xc0, 0x06, 0x64, 0x26, 0x60, 0x0c, 0xcc, 0x33, 0x30,
0x18, 0xcc, 0x33, 0x18, 0x10, 0xc4, 0x23, 0x08, 0x10, 0x63, 0xC6, 0x08,
0x10, 0x30, 0x0c, 0x08, 0x10, 0x18, 0x18, 0x08, 0x10, 0x00, 0x00, 0x08};

(Koders.com)
in Perl zu übersetzen, da ich selbst leider kein C beherrsche.

Versucht hatte ich es mit einem Array und einer Arrayreferenz, aber
beides brachte nicht das gewünschte Ergebnis.
(Ich übergebe die Daten an eine Funktion aus OpenGL, die mit den C-Daten
zurecht kommt, aber bei meinen Versuchen leider versagt.)

MfG. Matze

Mit freundlichen Grüßen: Matze

esskar

2006-05-15 00:04

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

gib mir mal bitte die signatur der OpenGL-C-Funktion.

Matze

2006-05-15 00:06

User since
2005-08-29
222 Artikel
BenutzerIn

Ich weiß nicht was eine Signatur ist, vielleicht das hier ?:

Code: (dl )

void glPolygonStipple(const GLubyte *mask)

MfG. Matze

Mit freundlichen Grüßen: Matze

esskar

2006-05-15 00:10

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

ja.

versuch es mal irgendwie so

Code: (dl )

my @glubyte_fly = (0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
0x03, 0x80, 0x01, 0xC0, 0x06, 0xC0, 0x03, 0x60, 0x04, 0x60, 0x06, 0x20,
0x04, 0x30, 0x0C, 0x20, 0x04, 0x18, 0x18, 0x20, 0x04, 0x0C, 0x30, 0x20,
0x04, 0x06, 0x60, 0x20, 0x44, 0x03, 0xC0, 0x22, 0x44, 0x01, 0x80, 0x22,
0x44, 0x01, 0x80, 0x22, 0x44, 0x01, 0x80, 0x22, 0x44, 0x01, 0x80, 0x22,
0x44, 0x01, 0x80, 0x22, 0x44, 0x01, 0x80, 0x22, 0x66, 0x01, 0x80, 0x66,
0x33, 0x01, 0x80, 0xCC, 0x19, 0x81, 0x81, 0x98, 0x0C, 0xC1, 0x83, 0x30,
0x07, 0xe1, 0x87, 0xe0, 0x03, 0x3f, 0xfc, 0xc0, 0x03, 0x31, 0x8c, 0xc0,
0x03, 0x33, 0xcc, 0xc0, 0x06, 0x64, 0x26, 0x60, 0x0c, 0xcc, 0x33, 0x30,
0x18, 0xcc, 0x33, 0x18, 0x10, 0xc4, 0x23, 0x08, 0x10, 0x63, 0xC6, 0x08,
0x10, 0x30, 0x0c, 0x08, 0x10, 0x18, 0x18, 0x08, 0x10, 0x00, 0x00, 0x08);

glPolygonStipple(pack("C*", @glubyte_fly));