Opened by Matze at 2006-05-14 23:40
User since
2005-08-29
222 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2005-08-29
222 Artikel
BenutzerIn
Wie der Titel es ja schon sagt bräuchte ich einmal Hilfe dabei, das hier:
(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
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
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};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