OpenGL: Difference between revisions

{{task|3D}}

 

 

=={{header|AutoHotkey}}==

Gui, +LastFound +Resize

hDC := DllCall("GetDC", "uInt", WinExist())

DllCall("ReleaseDC", "uInt", hDC)

DllCall("FreeLibrary", "uInt", hOpenGL32)

 

=={{header|C}}==

In this example, we use [[:Category:GLUT|GLUT]] to create a window and handle the main loop in a portable way. Windowing systems like MS Windows and X11 have their own platform-specific ways of handling these things.

 

 

void paint(void)

{

 

 

 

 

}

 

void reshape(int width, int height)

{

}

 

int main(int argc, char *argv[])

{

 

 

 

 

=={{header|C sharp|C#}}==

C# example using the [http://www.opentk.com/ OpenTK] library, which is multiplatform and provides C# OpenGL bindings for .Net and Mono. This code creates its own window and draws the triangle into it.

 

using OpenTK.Graphics;

namespace OpenGLTest

}

}

 

=={{header|Clojure}}==

 

In this example, we use [http://github.com/ztellman/penumbra Penumbra], which is an idiomatic wrapper for OpenGL.

(require '[penumbra.app :as app])

 

(color 0 0 1) (vertex 0 30)))

 

 

=={{header|D}}==

{{libheader|dglut}}

opengl_sample.d:

import dglut.core, dglut.window, dglut.opengl;

 

}

loop;

=={{header|Factor}}==

Translated from C

ui.gadgets ui.render ;

IN: rosettacode.opengl

[ triangle-gadget new "Triangle" open-window ] with-ui ;

MAIN: triangle-window

 

=={{header|Forth}}==

{{libheader|Theseus}}

triangle.fs:

 

triangle.m:

\ automatic generated code

\ do not edit

$1 0 ?DO stop LOOP bye ;

script? [IF] main [THEN]

 

=={{header|Haskell}}==

import Graphics.UI.GLUT

 

main = do

getArgsAndInitialize

displayCallback $= display

corner r g b x y = do color (Color3 r g b :: Color3 GLfloat)

 

=={{header|J}}==

 

(coinsert[require) 'jzopengl'

 

)

 

 

Note: OpenGL's initial state is well defined by the OpenGL standard.

 

=={{header|MAXScript}}==

The choice of OpenGL or D3D in MAX is a user configuration setting. All MAXScript code is platform independent.

setMesh newMesh vertices:#([-100, -100, 0], [100, -100, 0], [-100, 100, 0]) faces:#([1, 2, 3])

defaultVCFaces newMesh

viewport.setType #view_top

max tool maximize

 

=={{header|OCaml}}==

{{libheader|glMLite}}

open Glut

 

 

glutMainLoop();

 

=={{header|Perl}}==

 

sub triangle {

glpFlush;

 

 

use SDL::Event;

use SDL::OpenGL;

$app->loop ({

SDL_QUIT() => sub { exit; },

 

=={{header|PicoLisp}}==

This is for the 64-bit version.

 

(glutInit)

(mouseFunc '((Btn State X Y) (bye)))

 

 

=={{header|PureBasic}}==

 

 

XIncludeFile "OpenGL.pbi"

pfd.PIXELFORMATDESCRIPTOR

Wend

 

 

=={{header|Python}}==

 

from OpenGL.GL import *

glutReshapeFunc(reshape)

 

=={{header|R}}==

{{libheader|rgl}}

x <- c(-1, -1, 1)

y <- c(0, -1, -1)

M <- cbind(x,y,z)

rgl.bg(color="gray15")

 

=={{header|Ruby}}==

{{libheader|ruby-opengl}}

 

require 'gl'

require 'glut'

glutReshapeFunc(reshape)

 

 

=={{header|Tcl}}==

{{libheader|tcl3d}}

package require tcl3d

 

togl .surface -width 640 -height 480 -double true -depth true \

-displayproc paintShape -reshapeproc resizedWin

 

{{omit from|TI-83 BASIC}} {{omit from|TI-89 BASIC}} <!-- Does not have OpenGL. Does have 3D display, but without shading. -->

{{omit from|M4}}