- //Fünfeck
- procedure DrawFive;
- var i: Integer;
- begin
- glcolor3f(1,1,1);
- for i := 0 to 4 do begin
- glbegin(gl_Lines);
- glvertex3f(0,0,0);
- glvertex3f(1,0,0);
- glend;
- gltranslatef(1,0,0);
- glrotatef(72,0,0,1);
- end;
- end;
- // Dodekaeder zeichnen, wird einmal im onIdle ereignis aufgerufen
- procedure DrawDodekaeder;
- begin
- DrawFive;
- glrotatef(108,1,0,0);
- DrawFive;
- glrotatef(-108,1,0,0);
- gltranslatef(1,0,0);
- glrotatef(72,0,0,1);
- glrotatef(108,1,0,0);
- DrawFive;
- end;