- procedure TestLatLon;
- var
- a : integer;
- p : TVertex3F;
- lat, lon : real;
- begin
- lat := -90;
- lon := 0;
- glBegin(GL_POINTS);
- For a := 0 to 18 do
- begin
- lat := DegToRad(Lat);
- lon := DegToRad(Lon);
- p[0] := r*sin(lon)*cos(lat);
- p[1] := r*sin(lon)*sin(lat);
- p[2] := r*cos(lon);
- glVertex3F(p[0],p[1],p[2]);
- lat := lat + 10;
- end;
- glEnd;
- end;