AQDp(Fsp frmMain.pasp(r frmMain.DFM$LF'dOpenglkfHGLRC`LfGLint`LfGLfloatA Wg glGenListsq,g glNewListr7 g GL_COMPILE6g glEndListQg glPushMatrixQg glViewport g glScissor g glClearColor8gglClear&gGL_COLOR_BUFFER_BIT6gGL_DEPTH_BUFFER_BIT6g gluLookAtdg glTranslateflʕpg glRotatef8g glCallList&g glPopMatrixQg glMaterialfvr!gGL_FRONT6gGL_AMBIENT_AND_DIFFUSE6g GL_SPECULAR6g glMaterialfV Og GL_SHININESS6gglEnable&g GL_LIGHTING 6g GL_LIGHT06g GL_DEPTH_TEST+6gGL_SCISSOR_TEST˶6g glMatrixMode&g GL_PROJECTION6gglLoadIdentityQggluPerspectivevg GL_MODELVIEW6g glDeleteListsRX#cdDialogsc&cdSysUtilskcdControlsc&gTWinControl.CreateHandle#gTWinControl.DestroyWnd#gTWinControl.GetClientOrigin#gTWinControl.GetDeviceContext#gTWinControl.ShowControl#gTWinControl.Invalidate#gTWinControl.Repaint#gTWinControl.SetBounds#gTWinControl.Update#gTControl.GetDragImages#gTControl.SetDragMode#gTControl.SetName#gTWinControl.GetHandle#gTControl.GetClientWidth#gTControl.GetClientHeight#cdExtCtrlsc&cdFormsc&fTFormH)g.TForm!gTCustomForm.AlignControls#gTCustomForm.CreateParams#gTCustomForm.CreateWindowHandle#gTCustomForm.CreateWnd#gTCustomForm.DefaultHandler#gTCustomForm.DefineProperties#gTCustomForm.DestroyWindowHandle#gTCustomForm.GetClientRect#gTCustomForm.Loaded#gTCustomForm.Notification#gTCustomForm.PaintWindow#gTCustomForm.ReadState#gTCustomForm.SetParent#gTCustomForm.ValidateRename#gTCustomForm.WndProc#gTCustomForm.Create#gTCustomForm.Destroy#gTCustomForm.SetFocus#gTCustomForm.WantChildKey#gTCustomForm.Close#cdGraphicsc&cdClassesc&f TShiftStateYgTComponent.WriteState#gTComponent.SafeCallException#gTPersistent.AssignTo#gTPersistent.Assign#cdMessageskfTWMPaint!RgWM_PAINTA+cdWindowskfHDC`Lf TPaintStructg BeginPaintn6g SwapBuffers.ΙgEndPaint.gInvalidateRectDUgGetDC)gwglCreateContext)gwglMakeCurrentrig VK_ESCAPEA+fTPixelFormatDescriptorRgPFD_DRAW_TO_WINDOWA+gPFD_SUPPORT_OPENGLA+gPFD_DOUBLEBUFFERA+gChoosePixelFormatǝPgSetPixelFormat ,gwglDeleteContext.Ιg ReleaseDCJ] PgDeleteDC.ΙcdSysInitkcdSystemkfTObject!fWord@gTObject.NewInstance#gTObject.FreeInstance#gRoundgFalsejQg@ROUNDQfInteger`LgFillChargSizeOfg @FillCharQg @FSafeDivideRQg@HandleFinallyQceDGlutzXgglutSolidTorus%c&.TfrmGL-*TfrmGLTӒ frmGLb9D'AnglegyBl f((TfrmGL.WMPaint# !Self"Msg cj'B"'B$k(TfrmGL.FormCreate# !Self!Senderc(TfrmGL.FormKeyDown#$ !Self!Sender"Key!Shift& c(x(TfrmGL.FormResize# !Self!Senderc(TfrmGL.FormDestroy# !Self!Senderc( FinalizationQ\! c(frmMain! cG]F@@v- FormCreate)- FormResizeM- FormDestroyY- FormKeyDown5-WMPaintcD@L &L (DDl@ FormCreate FormResize FormDestroy FormKeyDownTfrmGLTfrmGL@;frmMainSVjhVh@jh.@j ^[SİTPPD$DD$D PjjPD$DD$D Pjjjh>hfff?h ?hAjjh?jjjh4@jh9@jh9@jhI@jh9@jh9@jh AhAhAjjh?5PD$@D$@ PD$HD$H PD$PD$P @PD$XD$X @PD$@D$@ PD$HD$H PD$PD$P @PD$XD$X @Pjhfff?h333?h333?hAjjh?jjjh4@jh9@jh9@jhI@jhI@jh9@jh AhAhAjjh?5PD$@D$@ PD$HD$H PjD$TD$T @PD$@D$@ PD$HD$H PjD$TD$T @Pjh333?h?jhAjjh?jjjh4@jh9@jh9@jhI@jh9@jjjh AhAhAjjh?5PPTP$jjPP[?@L>L???????SV؋PPVPhhhhhhhHBhhhP h@hq h ^[Uf9u]S؋؋3ɺ(D$%TPTPP([ShhQ@jh@jD$D$|$D$ D$ l$$hN@jhjjP[SjPjjPPPP[U3Uh%d0d 3ZYYdh,]Ã-m5 vhVXdf\^`bxRz|~TZ)"M"Y$5(t   & : j  nl nl , | ("  $& (n l n l n l n l , | ("  $& (n l l n l l & v ("  $& ( (j      j $! % )j I* !* %*(266665I *M@ D*l(n"&F@ Dj YJj  ee e i  ia