Frohes Fest,
hier mal mit einem kleinen Code :
Code
proc DrawGLScene
oGL("Clear")
oGL("Origin", 0, 0, -12)
oGL("Color", 0.0, 0.5, 1.0, 1)
oGL("Move", -7, -4, 0)
oGL("Print", font&, "Allen Frohe Weihnachten !")
' Der Mond
oGL("Origin", 3, 2.0, -6)
oGL("Color", 1, 1, 0, 1)
oGL("PartialDisk", 0, 0.2, 50, 360, 200)
' Tannenbaum
oGL("Origin", -1.5, 0, -6.0)
oGL("Color", 0.0, 1.0, 0.0, 1.0)
oGL("Triangle", 1, 1)
oGL("Origin", -1.5, 0.5, -6.0)
oGL("Triangle", 1, 1)
oGL("Origin", -1.5, 1.0, -6.0)
oGL("Triangle", 1, 1)
oGL("Origin", -1.5, 1.5, -6.0)
oGL("Triangle", 1, 1)
ogL("Move", -1.5, -1.5, -6.0)
oGL("Color", 0.6, 0.3, 0.0, 1.0)
ogL("Cylinder", 0.3, 0.3, 6, 10)
oGL("Origin", 1.5, -1.0, -6.0)
' Schneemann
' 3 Rollen
oGL("Color", 1.0, 1.0, 1.0, 1.0)
oGL("Disk", 0, 0.5, 100)
oGL("Origin", 1.5, 0.0, -6.0)
oGL("Disk", 0, 0.5, 100)
oGL("Origin", 1.5, 1.0, -6.0)
oGL("Disk", 0, 0.5, 100)
' zwei Augen
oGL("Color", 0.0, 0.0, 0.0, 1.0)
oGL("Origin", 1.7, 1.1, -6.0)
oGL("Disk", 0, 0.05, 100)
oGL("Origin", 1.3, 1.1, -6.0)
oGL("Disk", 0, 0.05, 100)
' eine Nase
oGL("Color", 0.8, 0.5, 0.0, 1.0)
oGL("Origin", 1.5, 1.0, -6.0)
oGL("Triangle", 0.3, 0.3)
' einen Mund
oGL("Color", 1.0, 0.0, 0.0, 1.0)
oGL("Origin", 1.5, 0.8, -6.0)
oGL("PartialDisk", 0, 0.2, 100, 90, 180)
' zwei Ohren + 2 Arme
oGL("Color", 1.0, 1.0, 1.0, 1.0)
oGL("Origin", 1.0, 0.95, -6.0)
oGL("PartialDisk", 0, 0.2, 100, 160, 210)
oGL("Origin", 2.0, 0.95, -6.0)
oGL("PartialDisk", 0, 0.2, 100, 345, 210)
oGL("Origin", 1.05, 0.03, -6.0)
oGL("PartialDisk", 0, 0.3, 100, 160, 210)
oGL("Origin", 2.0, 0.03, -6.0)
oGL("PartialDisk", 0, 0.3, 100, 345, 210)
oGL("Color", 0.0, 0.0, 0.0, 1.0)
oGL("Origin", 1.0, 0.03, -6.0)
oGL("PartialDisk", 0, 0.1, 100, 160, 210)
oGL("Origin", 1.95, 0.03, -6.0)
oGL("PartialDisk", 0, 0.1, 100, 345, 210)
' 4 Knöpfe
oGL("Color", 0.0, 0.0, 0.0, 1.0)
oGL("Origin", 1.5, 0.3, -6.0)
oGL("Disk", 0, 0.05, 165, 210)
oGL("Origin", 1.5, 0.1, -6.0)
oGL("Disk", 0, 0.05, 165, 210)
oGL("Origin", 1.5, -0.1, -6.0)
oGL("Disk", 0, 0.05, 165, 210)
oGL("Origin", 1.5, -0.3, -6.0)
oGL("Disk", 0, 0.05, 165, 210)
oGL("Show")
endproc
declare ende%, rot!, font&, hfont&
WindowTitle "Wieder mal Weihnachten !"
window 640, 480
CLS 0
oGL("Init", %hWnd, 0, 0, 0, 0)
oGL("PosMode", 1)
hfont& = create("Font", "Courier New", 48, 0, 1, 0, 1)
font& = oGL("OutlineFont", hfont&, 0.3)
deleteobject hfont&
DrawGLScene()
ende% = 0
WhileNot ende%
WaitInput
if %key = 27
ende% = 1
elseif %key = 4
DrawGLScene()
endif
EndWhile
end
Alles anzeigen