Author Topic: Screen Shots  (Read 20218 times)

0 Members and 2 Guests are viewing this topic.

Peter

  • Full Member
  • ***
  • Posts: 161
Re: Screen Shots
« Reply #45 on: September 09, 2011, 07:30:57 AM »
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

  • Admin Support Member
  • *****
  • Posts: 3974
    • Oxygen Basic
Re: Screen Shots
« Reply #46 on: September 10, 2011, 07:10:17 AM »

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

  • Full Member
  • ***
  • Posts: 161
Re: Screen Shots
« Reply #47 on: September 10, 2011, 10:08:13 AM »
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]
« Last Edit: September 10, 2011, 11:26:34 AM by peter »

Charles Pegge

  • Admin Support Member
  • *****
  • Posts: 3974
    • Oxygen Basic
Re: Screen Shots
« Reply #48 on: March 05, 2012, 12:51:06 PM »
Spheroids in a psychedelic landscape based on cosine RGB overflows.

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



Charles

kryton9

  • Hero Member
  • *****
  • Posts: 721
Re: Screen Shots
« Reply #49 on: March 16, 2012, 02:57:21 PM »
Nice stuff guys!