fpcsrc/tests/webtbs/tw13596.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14

{ %norun }
{ %recompile }

{$inline on}

program BothScreens3D;

uses
  tw13596a;

begin
  gluPerspective(70, 256.0 / 192.0, 0.1, 100);
end.