Sorry your browser is not supported!

alt_circle(100,100,50)

wait key

function alt_Circle(xc as integer,yc as integer,r as integer)
`circle drawing functon, based off code from http://www.cs.unc.edu/~mcmillan/comp136/Lecture7/circle.html
  local x,y,r2,p as integer
  y = r : p = (5-r*4)/4
  if x = 0
    dot xc,yc+y : dot mem,xc,yc-y : dot xc+y,yc : dot xc-y,yc
  else
    if x = y
      dot xc+x,yc+y : dot xc-x,yc+y : dot xc+x,yc-y : dot xc-x,yc-y
    else
      if x < y
        dot xc+x,yc+y : dot xc-x,yc+y : dot xc+x,yc-y : dot xc-x,yc-y
        dot xc+y,yc+x : dot xc-y,yc+x : dot xc+y,yc-x : dot xc-y,yc-x
      endif
    endif
  endif
  while x < y
    inc x
    if p < 0 then inc p,2*x+1 else dec y : inc p,2*(x-y)+1
    if x = 0
      dot xc,yc+y : dot xc,yc-y : dot xc+y,yc : dot xc-y,yc
    else
      if x = y
        dot xc+x,yc+y : dot xc-x,yc+y : dot xc+x,yc-y : dot xc-x,yc-y
      else
        if x < y
          dot xc+x,yc+y : dot xc-x,yc+y : dot xc+x,yc-y : dot xc-x,yc-y
          dot xc+y,yc+x : dot xc-y,yc+x : dot xc+y,yc-x : dot xc-y,yc-x
        endif
      endif
    endif
  endwhile
endfunction

randomize timer()
alt_line(rnd(640),rnd(480),rnd(640),rnd(480))
wait key

function alt_line(x1 as integer,y1 as integer,x2 as integer,y2 as integer)
`line drawing funtion, based off code from http://www.gamedev.net/reference/articles/article1275.asp
  local deltax,deltay,x,y,i,xinc1,xinc2,yinc1,yinc2,den,num,numadd,numpixels as integer
  deltax = abs(x2-x1) : deltay = abs(y2-y1)
  x = x1 : y = y1
  if x2>=x1 then xinc1 = 1 : xinc2 = 1 else xinc1 = -1 : xinc2 = -1
  if y2>=y1 then yinc1 = 1 : yinc2 = 1 else yinc1 = -1 : yinc2 = -1
  if deltax >= deltay
    xinc1 = 0 : yinc2 = 0 : den = deltax : num = deltax / 2
    numadd = deltay : numpixels = deltax
  else
    xinc2 = 0 : yinc1 = 0 : den = deltay : num = deltay / 2
    numadd = deltax : numpixels = deltay
  endif
  for i = 0 to numpixels
    dot x,y : inc num,numadd
    if num >= den
      num = num - den : x = x + xinc1 : y = y + yinc1
    endif
    x = x + xinc2 : y = y + yinc2
  next i
endfunction

ellips(200,100,250,250)
sync
wait key

function ellips(width,height,xpos,ypos)
oldx = 1*width+xpos
oldy = 0*height+ypos
For x=0 to 360
if newx<>0 and newy<>0
oldx = newx
oldy = newy
endif
newx = (cos(x)*width)+xpos
newy = (sin(x)*height)+ypos
line oldx,oldy,newx,newy
next x
endfunction

m_bitmap(1,256,256)
starttime = timer()
for t#=1.0 to 100.0
	m_cercle_degrade(1,rnd(256),rnd(256),10+rnd(30),rgb(255,200,0),rgb(0,0,0))
	set window title "Working ... "+str$(t#)+"%"
next t
make image from memblock 1,1
time# = timer()-starttime
do
   cls
   paste image 1,0,0
   set cursor 0,300
   print "Image made in ",time#/1000," seconds"
   sync
loop
function m_bitmap(m, tx as integer, ty as integer)
   make memblock m,12+tx*ty*4
   write memblock dword m, 0, tx
   write memblock dword m, 4, ty
   write memblock dword m, 8, 32
endfunction
function m_dot(m, x as integer, y as integer, c as dword)
   sizex = memblock byte(m,0)+256*memblock byte(1,1)
   sizey = memblock byte(m,4)+256*memblock byte(1,5)
   if x>-1 and x<sizex
      if y>-1 and y<sizey
         n as double integer
         n = (4*((y*sizex)+x))+12
         write memblock dword m,n,c
      endif
   endif
endfunction
function m_cercle_degrade(m, xc as float, yc as float, r as float, cc as dword, ce as dword)
   x as float
   y as float
   dr as float
   dg as float
   db as float
   dr = (rgbr(ce)-rgbr(cc)) / r
   dg = (rgbg(ce)-rgbg(cc)) / r
   db = ((rgbb(ce)-rgbb(cc)) / r)
   for y=yc-r to yc+r
      for x=xc-sqrt(r^2-abs(y-yc)^2) to xc+sqrt(r^2-abs(y-yc)^2)
         m_dot(m, x,y,rgb(rgbr(cc)+dr*sqrt((x-xc)^2 + (y-yc)^2),rgbg(cc)+dg*sqrt((x-xc)^2 + (y-yc)^2),rgbb(cc)+db*sqrt((x-xc)^2 + (y-yc)^2)))
      next x
   next y
endfunction

for n=1 to 500
ox=cos(v)*w
oy=sin(v)*h
v=v+1
dot cx+ox,cy+oy
next n

for n=1 to 360
ox=cos(n)*w
oy=sin(n)*h
dot cx+ox,cy+oy
next n