Oxygen Basic

Programming => Example Code => Topic started by: Aaron on March 18, 2014, 06:25:01 AM

Title: Copper Ufo 32Bit
Post by: Aaron on March 18, 2014, 06:25:01 AM

Hello,

famous 32Bit programming, will done in the whole world  ;D
Hail to the king!
I don't know what I should say.

Code: [Select]

include "ss.inc"
OpenWindow 800,600,0
 
w = GetWidth ()/2
h = GetHeight()/2
 
single xs = 1
single ys = 1
single a  = 700
single b  = a * a
single c  = 600
single q,r,y
single i,m,n,p,x,st
single ia = 1/a
single xa
 
While Key(27)=0
Cls 0,0,0
For x=0, a, xs
s = x * x
p = sqr(b - s)
st=6*ys
  For i=-p, p, st
      r = Sqr(s + i * i) /a
      q = (r -1) * Sin(-48 * r)
      y = i/3 + q * c
      If i=-p Then
         m=y
         n=y
       End If
       If y > m Then m = y 
       If y < n Then n = y 
       If m=y Or n=y Then
          Color 255,128,128,200
  SetPixel -x/2+w+Sin(rad(xa))*40, -y/2+h+Cos(rad(xa))*20
          SetPixel  x/2+w+Sin(rad(xa))*40, -y/2+h+Cos(rad(xa))*20
       End If
  Next
Next
 
xa +=10
If xa >=360 Then xa = -xa
Sync
Wend
CloseWindow

.

Title: Re: Copper Ufo 32Bit
Post by: Aaron on March 18, 2014, 06:27:12 AM

Hi Aurel,

We love 32Bit, don't we?

Title: Re: Copper Ufo 32Bit
Post by: Aurel on March 18, 2014, 09:46:58 AM

Quote

Hi Aurel,
We love 32Bit, don't we?

hi Peter  ;)
of course that we love 32bit and Windows to  ;D

Title: Re: Copper Ufo 32Bit
Post by: JRS on March 18, 2014, 11:17:12 AM

You guys (and when Aurel weens himself off XP) should try giving O2 64 bit a shot. The investment would not go unrewarded.