Screen Shots

[Peter]

another test  with new command  PAUSE.
hit any key quite short once.

Code: [Select]

indexbase 0
include "window.h"

SetWindow "Farbe",640,480,w_1
SetFont 22,44,0,""

SetText "Your grandfather",100,100,255
Pause
cls 0xFF0000
SetText "is still alive.",100,100,255
Pause
cls 0x00FF00
SetText "Bet your boots!",100,100,255
Pause

While sys_key=0
cls 0x00FFFF
SetText "Okay, hit key ",100,100,255

DoEvents
SwapBuffers
Wend

WinEnd

[Charles Pegge]

The art of creating a geodesic structure is to ensure that all the panels and openings are flat. This requires some slightly tricky maths to resolve the position of each vertex, so that the flat panels fit together perfectly.

Oxygen (in progress version)
projects/3dview/PortViewer2.o2bas  [press '8' ]

[Peter]

Hi Charles,

looks like an Easter egg!

this is more tricky.

Code: [Select]

indexbase 0
include "window.h"

SetWindow "Sinus",800,600,w_1
SetFont 12,32,0,""
SetColorKey 128,255,128
sys cb, gr, xa=250, ya=150, za, float r

cb= LoadBmp "cball/cball32.bmp",256,256
gr= LoadBmp "cball/ground_1c.bmp",800,600

While WinExit=0
SetBmp gr,0,0,800,600,0
SetBmp cb,cos(r*pi/180)*120+xa,sin(r*pi/180)*80+ya,256,256,za
SetBmp cb,-sin(r*pi/180)*120+xa+100,cos(r*pi/180)*80+ya+50,128,128,za
SetBmp cb,sin(r*pi/180)*120+xa+50,-cos(r*pi/180)*80+ya,96,96,za
SetBmp cb,-sin(r*pi/180)*120+xa+50,-cos(r*pi/180)*80+ya,64,64,za
za +=1: iF za=32  Then za=0
r  +=1: iF r>=360 Then r=0
DoEvents
SwapBuffers
WaitFrames 60
Wend
WinEnd


[attachment deleted by admin]

[Charles Pegge]

Spheroids in a psychedelic landscape based on cosine RGB overflows.

Oxygen (in progress version)
projects/GDIWindow/Ray5.o2bas



Charles

[kryton9]

Nice stuff guys!