Sorry your browser is not supported!

Winner: Peter H
Runner-up: Ric

mx=Screen Width()/2
my=Screen Height()/2


Do
   mx=mx-mousemovex()
   my=my-mousemovey()
   position mouse mx,my
Loop

`gravity cursor
`by Crit

set display mode 1024, 768, 32
hide mouse
sync on
sync rate 100

#constant numplanets 10
#constant minsize 6
#constant maxsize 20
#constant trailsize 5

type xy
 x as integer
 y as integer
endtype

type PlanetType
   size as integer
   x as integer
   y as integer
   xspeed as integer
   yspeed as integer
   angle as integer
endtype

dim planets(numplanets) as PlanetType

dim trail (numplanets, trailsize) as xy
index =1



position mouse 512, 384

cursorx=512
cursory=384

angle as float

for x=1 to numplanets
  planets(x).size = rnd (maxsize-minsize) + minsize
  planets(x).x=rnd(500)-250+cursorx
  planets(x).y=rnd(500)-250+cursory
  planets(x).xspeed = 0
  planets(x).yspeed = 0
  if rnd(1)=1 then angle=16 else angle=-16
  planets(x).angle = angle
  next x
ink rgb(255,255,255), rgb(0,0,0)

deltax as float
deltay as float
dist as float

do
cursorx=mousex()
cursory=mousey()
  cls

  for x=1 to numplanets
    size=planets(x).size

    ydistance=cursory-planets(x).y
    xdistance=cursorx-planets(x).x
    dist=(xdistance^2+ydistance^2)


    angle=atanfull(ydistance, xdistance)+planets(x).angle


    deltax=cos(angle)*2
    deltay=sin(angle)*2


    planets(x).xspeed=planets(x).xspeed+deltax
    planets(x).yspeed=planets(x).yspeed+deltay
    planets(x).x=planets(x).x+planets(x).xspeed
    planets(x).y=planets(x).y+planets(x).yspeed

    trail(x, index).x=planets(x).x
    trail(x, index).y=planets(x).y
   next x


   for x=1 to numplanets
    ink rgb(100,0,100), rgb(0,0,0)
    for y= 0 to trailsize
      circle trail(x,y).x,trail(x,y).y,planets(x).size
    next y
    ink rgb(255,255,255), rgb(0,0,0)
    circle planets(x).x, planets(x).y, planets(x).size
   next x


   circle cursorx,cursory, 5
   index = (index + 1) mod (trailsize+1)
   sync
 loop

sync on : hide mouse

type __FloodFillType
   Initialised as integer
   CoverColour as integer
   BitmapWidth as integer
   BitmapHeight as integer
endtype
global __FloodFillGlobal as __FloodFillType

#constant __SpanListSize 15
type __FillSpan
   Left as integer
   Right as integer
endtype

set image colorkey 255,255,0

img = make_arrow()
crc = make_circle()

set current bitmap 0

color backdrop 0

type xy

    x as float
    y as float

endtype

dim msps(20) as xy

for d = 0 to 20

    sprite d+2,0,0,img
    set sprite alpha d+2,250-(d*12)

next d

ink rgb(255,255,255),0

bx1# = rnd(screen width())
by1# = rnd(screen height())

bx2# = rnd(screen width())
by2# = rnd(screen height())

bx3# = rnd(screen width())
by3# = rnd(screen height())

do

    rem circles
    `1
    xd1# = msx#-bx1#
    yd1# = msy#-by1#
    ang1# = atanfull(xd1#,yd1#)
    dst1# = sqrt((xd1#^2)+(yd1#^2))*0.005
    inc bxm1#,sin(ang1#)*dst1#
    inc bym1#,cos(ang1#)*dst1#
    `2
    xd2# = msx#-bx2#
    yd2# = msy#-by2#
    ang2# = atanfull(xd2#,yd2#)
    dst2# = sqrt((xd2#^2)+(yd2#^2))*0.005
    inc bxm2#,sin(ang2#)*dst2#
    inc bym2#,cos(ang2#)*dst2#
    `3
    xd3# = msx#-bx3#
    yd3# = msy#-by3#
    ang3# = atanfull(xd3#,yd3#)
    dst3# = sqrt((xd3#^2)+(yd3#^2))*0.005
    inc bxm3#,sin(ang3#)*dst3#
    inc bym3#,cos(ang3#)*dst3#

    xd12# = bx1#-bx2#
    yd12# = by1#-by2#
    dst12# = sqrt((xd12#^2)+(yd12#^2))
    if dst12# < 20
        bxm1# = (0-bxm1#)+(rnd(4)-2)
        bym1# = (0-bym1#)+(rnd(4)-2)
        bxm2# = (0-bxm2#)+(rnd(4)-2)
        bym2# = (0-bym2#)+(rnd(4)-2)
    endif

    xd13# = bx1#-bx3#
    yd13# = by1#-by3#
    dst13# = sqrt((xd13#^2)+(yd13#^2))
    if dst13# < 20
        bxm1# = (0-bxm1#)+(rnd(4)-2)
        bym1# = (0-bym1#)+(rnd(4)-2)
        bxm3# = (0-bxm3#)+(rnd(4)-2)
        bym3# = (0-bym3#)+(rnd(4)-2)
    endif

    xd23# = bx2#-bx3#
    yd23# = by2#-by3#
    dst23# = sqrt((xd23#^2)+(yd23#^2))
    if dst23# < 20
        bxm2# = (0-bxm2#)+(rnd(4)-2)
        bym2# = (0-bym2#)+(rnd(4)-2)
        bxm3# = (0-bxm3#)+(rnd(4)-2)
        bym3# = (0-bym3#)+(rnd(4)-2)
    endif

    bxm1# = bxm1#*0.99
    bym1# = bym1#*0.99

    bxm2# = bxm2#*0.99
    bym2# = bym2#*0.99

    bxm3# = bxm3#*0.99
    bym3# = bym3#*0.99

    inc bx1#,bxm1#
    inc by1#,bym1#
    inc bx2#,bxm2#
    inc by2#,bym2#
    inc bx3#,bxm3#
    inc by3#,bym3#

    if bx1# < 15 then bxm1# = abs(bxm1#) : bx1# = 15
    if by1# < 15 then bym1# = abs(bym1#) : by1# = 15
    if bx1# > screen width()-15 then bxm1# = 0-abs(bxm1#) : bx1# = screen width()-15
    if by1# > screen height()-15 then bym1# = 0-abs(bym1#) : by1# = screen height()-15

    if bx2# < 15 then bxm2# = abs(bxm2#) : bx2# = 15
    if by2# < 15 then bym2# = abs(bym2#) : by2# = 15
    if bx2# > screen width()-15 then bxm2# = 0-abs(bxm2#) : bx2# = screen width()-15
    if by2# > screen height()-15 then bym2# = 0-abs(bym2#) : by2# = screen height()-15

    if bx3# < 15 then bxm3# = abs(bxm3#) : bx3# = 15
    if by3# < 15 then bym3# = abs(bym3#) : by3# = 15
    if bx3# > screen width()-15 then bxm3# = 0-abs(bxm3#) : bx3# = screen width()-15
    if by3# > screen height()-15 then bym3# = 0-abs(bym3#) : by3# = screen height()-15

    line msx#,msy#,bx1#,by1#
    line msx#,msy#,bx2#,by2#
    line msx#,msy#,bx3#,by3#

    sprite 23,bx1#-15,by1#-15,crc
    sprite 24,bx2#-15,by2#-15,crc
    sprite 25,bx3#-15,by3#-15,crc

    rem curvy mouse movement
    mmx# = mousemovex()
    mmy# = mousemovey()

    circx# = wrapvalue(circx#+(mmx#*2))
    circy# = wrapvalue(circy#+(mmy#*2))

    ocmx2# = cmx2#
    ocmy2# = cmy2#

    cmy2# = cos(circx#)*50
    cmx2# = sin(circy#)*50

    xmo# = (ocmx2#-cmx2#)+mmx#
    ymo# = (ocmy2#-cmy2#)+mmy#

    array insert at top msps(0)
    array delete element msps(0),21

    msps(0).x = msx#
    msps(0).y = msy#

    inc msx#,xmo#
    inc msy#,ymo#

    while msx# > screen width() : dec msx#,screen width() : endwhile
    while msx# < 0 : inc msx#,screen width() : endwhile
    while msy# > screen height() : dec msy#,screen height() : endwhile
    while msy# < 0 : inc msy#,screen height() : endwhile

    sprite 1,msx#,msy#,img
    
    for d = 0 to 20

        sprite d+2,msps(d).x,msps(d).y,img

    next d

    sync

loop

function make_arrow()

    create bitmap 1,20,20
    ink rgb(255,255,0),0
    box 0,0,20,20

    ink rgb(0,0,255),0
    line 0,0,0,10
    line 0,0,10,0

    line 0,10,3,7
    line 10,0,7,3

    line 3,7,15,19
    line 7,3,19,15

    line 15,19,19,15

    FloodFill(1,1,rgb(255,0,0))

    img = 1
    get image img,0,0,19,19
    delete bitmap 1

endfunction img

function make_circle()

    create bitmap 1,30,30
    ink rgb(255,255,0),0
    box 0,0,30,30
    for c# = 15 to 0 step -0.5
        ink rgb(0,0,255-(c#*17)),0
        circle 15,15,c#
    next c#
    crc = 2
    get image crc,0,0,29,29
    delete bitmap 1

endfunction crc

` This code was downloaded from The Game Creators
` It is reproduced here with full permission
` http://www.thegamecreators.com

global dim __FilledSpans() as __FillSpan
global dim __FilledSpansCount() as integer

function FloodFill(x,y,c)
   __FloodFillGlobal.BitmapWidth=bitmap width()-1
   __FloodFillGlobal.BitmapHeight=bitmap height()-1

   __InitialiseFillSpan()

   if x >= 0 and x <= __FloodFillGlobal.BitmapWidth
      if y >= 0 and y <= __FloodFillGlobal.BitmapHeight

         lock pixels

         __FloodFillGlobal.CoverColour = point(x,y)
         if __FloodFillGlobal.CoverColour <> c

            ink c,0

            __FloodLoop(x,y)
         endif

         unlock pixels

      endif
   endif
endfunction

function __FloodLoop(x as integer,y as integer)
   local Left as integer
   local Right as integer
   local SpanSize as integer

   for Left=x-1 to 0 step -1
      if point(Left,y) <> __FloodFillGlobal.CoverColour then exit
   next Left
   inc Left

   for Right=x+1 to __FloodFillGlobal.BitmapWidth
      if point(Right,y) <> __FloodFillGlobal.CoverColour then exit
   next Right

   ` draw this line
   box Left,y,Right,y+1

   ` and remember it
   __AddFillSpan(y,Left-1,Right+1)

   ` Fill upwards
   if y > 0
      dec y
      x=Left
      while x < Right
         SpanSize=__CheckFillSpan(x,y)
         if SpanSize = 0
            if point(x,y) = __FloodFillGlobal.CoverColour
               __FloodLoop(x,y)
            endif
            inc x
         else
            inc x,SpanSize
         endif
      endwhile
      inc y
   endif

   ` Fill downwards
   if y < __FloodFillGlobal.BitmapHeight
      inc y
      x=Left
      while x < Right
         SpanSize=__CheckFillSpan(x,y)
         if SpanSize = 0
            if point(x,y) = __FloodFillGlobal.CoverColour
               __FloodLoop(x,y)
            endif
            inc x
         else
            inc x,SpanSize
         endif
      endwhile
   endif
endfunction

function __InitialiseFillSpan()
   local i as integer
   if __FloodFillGlobal.Initialised = 0

      ` First time called, create the arrays - bigger than we should ever need
      undim __FilledSpans()
      global dim __FilledSpans(__SpanListSize,2048) as __FillSpan
      undim __FilledSpansCount()
      global dim __FilledSpansCount(2048) as integer
      __FloodFillGlobal.Initialised=1

   else

      ` Subsequent call, just reset the spans we'll be using
      for i=__FloodFillGlobal.BitmapHeight to 0 step -1
         __FilledSpansCount(i)=0
      next i

   endif
endfunction

function __AddFillSpan(y as integer,Left as integer,Right as integer)
   local i as integer

   i=__FilledSpansCount(y)
   if i < __SpanListSize
      __FilledSpans(i, y).Left=Left
      __FilledSpans(i, y).Right=Right
      inc __FilledSpansCount(y)
   endif
endfunction

function __CheckFillSpan(x as integer,y as integer)
   local i as integer

   for i=__FilledSpansCount(y)-1 to 0 step -1
      if x >= __FilledSpans(i, y).Left
         if x < __FilledSpans(i, y).Right then exitfunction __FilledSpans(i, y).Right-x
      endif
   next i
endfunction 0

function XtoY(x#,rad#)

    newx# = x#/rad#
    ang# = asin(newx#)
    newy# = cos(ang#)
    y# = newy#*rad#

endfunction y#

sync on
sync rate 60

sx# = screen width()
sy# = screen height()

do

  dec xspeed#, mousemovex() / 10
  dec yspeed#, mousemovey() / 10

  inc xpos#, xspeed#
  inc ypos#, yspeed#

  if xpos# < 0 then xspeed# = -xspeed#
  if xpos# > sx# then xspeed# = -xspeed#

  if ypos# < 0 then yspeed# = -yspeed#
  if ypos# > sy# then yspeed# = -yspeed#

  if xpos# > 200 and xpos# < 450 and ypos# > 220 and ypos# < 280
    xpos# = rnd(screen width())
    ypos# = rnd(screen height())
  endif

  box 200, 220, 450, 280, rgb(0, 255, 0), rgb(0, 0, 255), rgb(0, 255, 0), rgb(0, 0, 255)
  center text screen width() / 2, screen height() / 2, "Click me to win $1,000,000"

  position mouse xpos#, ypos#

  sync
loop

right=1024
bottom=768
set display mode right,bottom,32
backdrop on
color backdrop 0
sync on
echo_max=50
dim boomx#(100)
dim boomy#(100)
dim vx#(100)
dim vy#(100)
dim echo#(echo_max,3)
count=0
echo_r=15
boom=0
gravity#=0.01
mag_max#=250.0
mag#=mag_max#
angle_offset=0
angle_step=45
quit=0
while not quit
  movex=mousemovex()
  movey=mousemovey()
  if movey<>0 then mag#=mag_max#
  if movey=0 and movex=0
    if timer()-t > 100
      gosub star
      mag#=mag#-2.0
      if mouseclick()=0
        if mag#<0.0
          mag#=mag_max#
          gosub set_boom
        endif
        if mag#<15.0 then mag#=15.0
      else
        mag#=mag#-0.01
        if mag#<1.0 then mag#=1.0
      endif
      inc angle_offset
      if angle_offset>angle_step then angle_offset=0
      s=timer()
    endif
  else
    t=timer()
  endif
  if timer()-s > 300
    distance=sqrt((mousex()-echo#(count,1))^2+(mousey()-echo#(count,2))^2)
    if distance>echo_r*5
      inc count
      if count>echo_max then count=0
      echo#(count,1)=mousex()
      echo#(count,2)=mousey()
      echo#(count,3)=255
      s=timer()
    endif
  endif
  if boom>0 then gosub go_boom
  gosub show_echo
  sync
endwhile
end
set_boom:
  ink 0,0
  for i=1 to 100
    x#=(rnd(30)-15)
    y#=sqrt(225-x#^2)
    vy#(i)=(rnd(y#*2)-y#)/20.0
    vx#(i)=x#/20.0
    dot boomx#(i),boomy#(i)
    boomx#(i)=mousex()
    boomy#(i)=mousey()
  next i
  boom=255
return
go_boom:
  ink rgb(boom,0,0),0
  for i=1 to 100
    dot boomx#(i),boomy#(i)
    boomx#(i)=boomx#(i)+vx#(i)
    boomy#(i)=boomy#(i)+vy#(i)
    if boomx#(i)<0 or boomx#(i)>right or boomy#(i)<0 or boomy#(i)>bottom
      boomx#(i)=-1
      boomy#(i)=-1
      vx#(i)=0
      vy#(i)=0
    else
      vy#(i)=vy#(i)+gravity#
      dot boomx#(i),boomy#(i)
    endif
  next i
  dec boom
return
show_echo:
  lasti=echo_max
  for i=0 to echo_max
    if echo#(i,3)>0
      ink echo#(i,3),0
      circle echo#(i,1),echo#(i,2),int(echo#(i,3)/echo_r)
      dec echo#(i,3)
      if echo#(lasti,3)>0
        line echo#(i,1),echo#(i,2),echo#(lasti,1),echo#(lasti,2)
        echo#(lasti,1)=echo#(lasti,1)+(echo#(i,1)-echo#(lasti,1))/200.0
        echo#(lasti,2)=echo#(lasti,2)+(echo#(i,2)-echo#(lasti,2))/200.0
      endif
    endif
    lasti=i
  next i
return
star:
  c#=mag_max#-mag#
  ink rgb(c#,0,0),0
  for angle=angle_offset to 359 step angle_step
    xpoint=cos(angle)*mag#
    ypoint=sin(angle)*mag#
    xoffset=cos(angle)*10
    yoffset=sin(angle)*10
    line mousex()+xpoint,mousey()+ypoint,mousex()+xpoint+xoffset,mousey()+ypoint+yoffset
  next angle
return

sync on
sync rate 60
randomize timer()
type pos
   x as integer
   y as integer
endtype
#constant maxdots 5000
dim dots(maxdots) as pos
for d=1 to maxdots
   dots(d).x=rnd(screen width())
   dots(d).y=rnd(screen height())
next d
do
sync
t=timer()
c=abs(cos(t/100.0)*255.0)
cls rgb(c,c,c)
mx#=mousex()
if mx#>=screen width()-1
   mx#=1
endif
if mx#=0
   mx#=screen width()-2
endif
my#=mousey()
if my#=0
   my#=screen height()-2
endif
if my#=>screen height()-1
   my#=1
endif
position mouse mx#,my#
lock pixels
if mouseclick()=0
   for d=1 to maxdots
      if d<maxdots/3
         a=rnd(16)-4
      else
         if d<maxdots*2/3.0
            a=rnd(10)-2
         else
            a=rnd(7)-1
         endif
      endif
      if dots(d).x>mx#
         dots(d).x=dots(d).x-a
      else
         dots(d).x=dots(d).x+a
      endif
      if d<maxdots/3
         a=rnd(16)-4
      else
         if d<maxdots*2/3.0
            a=rnd(10)-2
         else
            a=rnd(7)-1
         endif
      endif
      if dots(d).y>my#
         dots(d).y=dots(d).y-a
      else
         dots(d).y=dots(d).y+a
      endif
   next d
else
   if mouseclick()=1
      for d=1 to maxdots
         if d<maxdots/3
            a=rnd(9)-1
         else
            if d<maxdots*2/3.0
               a=rnd(5)
            else
               a=rnd(3)
            endif
         endif
         if dots(d).x>mx#
            dots(d).x=dots(d).x+a/2.0+.5
         else
            dots(d).x=dots(d).x-a/2.0+.5
         endif
         if d<maxdots/3
            a=rnd(9)-1
         else
            if d<maxdots*2/3.0
               a=rnd(5)
            else
               a=rnd(3)
            endif
         endif
         if dots(d).y>my#
            dots(d).y=dots(d).y+a/2.0+.5
         else
            dots(d).y=dots(d).y-a/2.0+.5
         endif
      next d
   else
      for d=1 to maxdots
         destx=mx#+d/(maxdots/80.0)-maxdots/(maxdots/40.0)
         desty=my#+sin((t/1000.0+d/(maxdots/5.0))*100)*100
         if abs(dots(d).x-destx)>2
            dots(d).x=dots(d).x-abs((dots(d).x-destx))/(dots(d).x-destx)*2
         else
            dots(d).x=destx
         endif
         if abs(dots(d).y-desty)>2
            dots(d).y=dots(d).y-abs((dots(d).y-desty))/(dots(d).y-desty)*2
         else
            dots(d).y=desty
         endif
      next d
   endif
endif
for d=1 to maxdots
   if dots(d).x<0
      dots(d).x=0
   endif
   if dots(d).x>screen width()
      dots(d).x=screen width()
   endif
   if dots(d).y<0
      dots(d).y=0
   endif
   if dots(d).y>screen height()
      dots(d).y=screen height()
   endif
   if d<maxdots/3
      dot dots(d).x,dots(d).y,rgb(rnd(255),0,0)
   else
      if d<maxdots*2/3.0
         dot dots(d).x,dots(d).y,rgb(0,0,rnd(255))
      else
         dot dots(d).x,dots(d).y,rgb(0,rnd(255),0)
      endif
   endif
next d
unlock pixels
loop

Set Window On
Set Display Mode 800,400,32
Set Window Size 400,400



Dim Dots(200) as ADot

Type ADot
   c as Dword
   px as Float
   py as Float
   mx as Float
   my as Float
EndType

For i = 0 to 200
   Dots(i).c=Rgb(rnd(255),rnd(255),rnd(255))
   Dots(i).px=rnd(800)
   Dots(i).py=Rnd(400)
Next i



x=100
y=100
cx as float
cy as float
Do
   cls
   Set Window Position x,y
   cx=mousemovex():cy=mousemovey()
   x=x+cx
   y=y+cy
   Lock Pixels
   For i = 0 to 200
      lx#=Dots(i).px
      ly#=Dots(i).py
      Dots(i).px=Dots(i).px+(Dots(i).mx*.98)
      Dots(i).py=Dots(i).py+(Dots(i).my*.98)
      Dots(i).px=(Dots(i).px-cx*.3)
      Dots(i).py=(Dots(i).py-cy*.3)+.5
      if Dots(i).px<0 Then Dots(i).px=-Dots(i).px+rnd(20.0)/10.0
      if Dots(i).px>799 Then Dots(i).px=799-(Dots(i).px-799)-rnd(20.0)/10.0
      if Dots(i).py<0 Then Dots(i).py=-Dots(i).py+rnd(20.0)/10.0
      if Dots(i).py>399 Then Dots(i).py=399-(Dots(i).py-399)-rnd(20.0)/10.0
      Dots(i).mx=Dots(i).px-lx#
      Dots(i).my=Dots(i).py-ly#
      Ink Dots(i).c,0
      Box Dots(i).px,Dots(i).py,Dots(i).px+3,Dots(i).py+3
   Next i
   Unlock Pixels
Loop

set display mode 640,480,32
sync on
sync rate 40

Dim cool(0):cool(0) = 5
Dim Life(0):Life(0) = 40
Dim Grid(130+cool(0),98+cool(0))
Dim Neighbors(8)

restore stuff
For I = 1 to 8
    Read Neighbors(I)
Next I

Do

  cls
  
  x = int(mousex()/5)
  y = int(mousey()/5)
  
  for yint=y-cool(0) to y+cool(0)
      for xint=x-cool(0) to x+cool(0)
          If rnd(5) > 3 then Grid(xint+cool(0),yint+cool(0)) = Life(0)
      next xint
  next yint
  
  For y = 1 to 96
      For x = 1 to 128
          If Grid(x,y) > 0 then box ((x-1)*5)+1,((y-1)*5)+1,x*5,y*5,rgb(x*2,0,y*2),rgb(x*2,0,y*2+2),rgb(x*2+2,0,y*2),rgb(x*2+2,0,y*2+2): Grid(x,y) = Grid(x,y) - 1
      Next x
  Next y
  
  text 5,5,str$(screen fps())
  
  sync

Loop

Stuff:
Data 0,0,2,1,0,0,0,0

Sync On:Sync Rate 60:Autocam Off

`Set effect area
Global ax=100
Global ay=100

Get Image 1,0,0,ax,ay,1
Make Memblock From Image 1,1
Make Memblock From Image 2,1
Make Image From Memblock 2,2
Null = Make Vector2(1)


Make Object Cube 1,2
Position Object 1,-3,0,10
Make Object Sphere 2,2
Position Object 2,3,0,8

Do
   Center Text Screen Width()/2.0,100,"HELLO WORLD"
   Update_Mouse_Area()
   Sprite 2,MouseX()-ax/2,MouseY()-ay/2,2
   Sync
Loop








Function Update_Mouse_Area()
   p1 as Dword
   p2 as Dword
   c as Dword
   x=MouseX():y=MouseY()
   if x<(ax/2+1) or x>Screen Width()-(ax/2+1) Then Exitfunction
   If y<(ay/2+1) or y>Screen Width()-(ay/2+1) Then ExitFunction
   Get Image 1,MouseX()-(ax/2),MouseY()-(ay/2),MouseX()+(ax/2),MouseY()+(ay/2),1
   Make Memblock From Image 1,1
   For y1=0 to Memblock_Height(1)
      For x1=0 To Memblock_Width(1)
         Set Vector2 1,x-x1,y-y1
         x2=x1*.7+Rnd(100.0)/50.0
         y2=y1*.7+Rnd(100.0)/50.0
         p=Get_Pixel_Pos(x2,y2,1)
         if p<Get Memblock Size(1) and p>0
            c=Memblock DWord(1,p)
         Endif
         p2=Get_Pixel_Pos(x1,y1,2)
         if p2<Get Memblock Size(2) and p2>0
            Write Memblock DWord 2,p2,c
         Endif
      Next x1
   Next y1
   Make Image From Memblock 2,2
Endfunction









Function Memblock_Width(MemblockID)
   If Memblock Exist(MemblockID)=0 then Exitfunction 0
   If Get Memblock Size(MemblockID)<12 then exitfunction 0
   w=Memblock Dword(MemblockID,0)
Endfunction w

Function Memblock_Height(MemblockID)
   If Memblock Exist(MemblockID)=0 then Exitfunction 0
   If Get Memblock Size(MemblockID)<12 then exitfunction 0
   h=Memblock Dword(MemblockID,4)
Endfunction h

Function Memblock_Depth(MemblockID)
   If Memblock Exist(MemblockID)=0 then Exitfunction 0
   If Get Memblock Size(MemblockID)<12 then exitfunction 0
   d=Memblock Dword(MemblockID,8)
Endfunction d

Function Get_Pixel_Pos(x,y,MemblockID)
   p as dword
   p=0
   if Memblock Exist(MemblockID)=0 Then Exitfunction p
   w=Memblock_Width(MemblockID)
   h=Memblock_Height(MemblockID)
   d=Memblock_Depth(MemblockID)
   p=y*(w*(d/8))+x*(d/8)
   max as dword
   max = h*w*(d/8)
   if p>Get Memblock Size(MemblockID)-1
      p=Get Memblock Size(MemblockID)-1
   endif
   p=p+12
   if p<12 then p=12
Endfunction p

Sync On:Sync Rate 60:Autocam Off

`Set effect area
Global ax=100
Global ay=100

Get Image 1,0,0,ax,ay,1
Make Memblock From Image 1,1
Make Memblock From Image 2,1
Make Image From Memblock 2,2
Null = Make Vector2(1)


Make Object Cube 1,2
Position Object 1,-3,0,10
Make Object Sphere 2,2
Position Object 2,3,0,8

Do
   Center Text Screen Width()/2.0,100,"HELLO WORLD"
   Update_Mouse_Area()
   Sprite 2,MouseX()-ax/2,MouseY()-ay/2,2
   Sync
Loop


Function Update_Mouse_Area()
   p1 as Dword
   p2 as Dword
   c as Dword
   x=MouseX():y=MouseY()
   if x<(ax/2+1) or x>Screen Width()-(ax/2+1) Then Exitfunction
   If y<(ay/2+1) or y>Screen Width()-(ay/2+1) Then ExitFunction
   Get Image 1,MouseX()-(ax/2),MouseY()-(ay/2),MouseX()+(ax/2),MouseY()+(ay/2),1
   Make Memblock From Image 1,1
   For y1=0 to Memblock_Height(1)
      For x1=0 To Memblock_Width(1)
         Set Vector2 1,x-x1,y-y1
         x2=x1*.9+Rnd(100.0)/50.0
         y2=Memblock_Height(1)-(y1*.9+Rnd(100.0)/50.0)
         p=Get_Pixel_Pos(x2,y2,1)
         if p<Get Memblock Size(1) and p>0
            c=Memblock DWord(1,p)
         Endif
         p2=Get_Pixel_Pos(x1,y1,2)
         if p2<Get Memblock Size(2) and p2>0
            Write Memblock DWord 2,p2,c
         Endif
      Next x1
   Next y1
   Make Image From Memblock 2,2
Endfunction









Function Memblock_Width(MemblockID)
   If Memblock Exist(MemblockID)=0 then Exitfunction 0
   If Get Memblock Size(MemblockID)<12 then exitfunction 0
   w=Memblock Dword(MemblockID,0)
Endfunction w

Function Memblock_Height(MemblockID)
   If Memblock Exist(MemblockID)=0 then Exitfunction 0
   If Get Memblock Size(MemblockID)<12 then exitfunction 0
   h=Memblock Dword(MemblockID,4)
Endfunction h

Function Memblock_Depth(MemblockID)
   If Memblock Exist(MemblockID)=0 then Exitfunction 0
   If Get Memblock Size(MemblockID)<12 then exitfunction 0
   d=Memblock Dword(MemblockID,8)
Endfunction d

Function Get_Pixel_Pos(x,y,MemblockID)
   p as dword
   p=0
   if Memblock Exist(MemblockID)=0 Then Exitfunction p
   w=Memblock_Width(MemblockID)
   h=Memblock_Height(MemblockID)
   d=Memblock_Depth(MemblockID)
   p=y*(w*(d/8))+x*(d/8)
   max as dword
   max = h*w*(d/8)
   if p>Get Memblock Size(MemblockID)-1
      p=Get Memblock Size(MemblockID)-1
   endif
   p=p+12
   if p<12 then p=12
Endfunction p

Sync On:Sync Rate 60:Autocam Off

`Set effect area
Global ax=100
Global ay=100
Global al as Float

Position Mouse Screen Width()/2,Screen Height()/2


Get Image 1,0,0,ax,ay,1
Make Memblock From Image 1,1
Make Memblock From Image 2,1
Make Image From Memblock 2,2
Null = Make Vector2(1)
Set Vector2 1,ax/2,ay/2
al=Squared Length Vector2(1)


Make Object Cube 1,2
Position Object 1,-3,0,10
Make Object Sphere 2,2
Position Object 2,3,0,8

Do
   Center Text Screen Width()/2.0,100,"HELLO WORLD"
   Update_Mouse_Area()
   Sprite 2,MouseX()-ax/2,MouseY()-ay/2,2
   Sync
Loop


Function Update_Mouse_Area()
   p1 as Dword
   p2 as Dword
   c as Dword
   x=MouseX():y=MouseY()
   if x<(ax/2+1) or x>Screen Width()-(ax/2+1) Then Exitfunction
   If y<(ay/2+1) or y>Screen Width()-(ay/2+1) Then ExitFunction
   Get Image 1,MouseX()-(ax/2),MouseY()-(ay/2),MouseX()+(ax/2),MouseY()+(ay/2),1
   Make Memblock From Image 1,1
   For y1=0 to Memblock_Height(1)
      For x1=0 To Memblock_Width(1)
         Set Vector2 1,ax/2-x1,ay/2-y1
         l#=Squared Length Vector2(1)/al
         x2=x1*l#
         y2=y1*l#
         p=Get_Pixel_Pos(x2,y2,1)
         if p<Get Memblock Size(1) and p>0
            c=Memblock DWord(1,p)
         Endif
         p2=Get_Pixel_Pos(x1,y1,2)
         if p2<Get Memblock Size(2) and p2>0
            Write Memblock DWord 2,p2,c
         Endif
      Next x1
   Next y1
   Make Image From Memblock 2,2
Endfunction









Function Memblock_Width(MemblockID)
   If Memblock Exist(MemblockID)=0 then Exitfunction 0
   If Get Memblock Size(MemblockID)<12 then exitfunction 0
   w=Memblock Dword(MemblockID,0)
Endfunction w

Function Memblock_Height(MemblockID)
   If Memblock Exist(MemblockID)=0 then Exitfunction 0
   If Get Memblock Size(MemblockID)<12 then exitfunction 0
   h=Memblock Dword(MemblockID,4)
Endfunction h

Function Memblock_Depth(MemblockID)
   If Memblock Exist(MemblockID)=0 then Exitfunction 0
   If Get Memblock Size(MemblockID)<12 then exitfunction 0
   d=Memblock Dword(MemblockID,8)
Endfunction d

Function Get_Pixel_Pos(x,y,MemblockID)
   p as dword
   p=0
   if Memblock Exist(MemblockID)=0 Then Exitfunction p
   w=Memblock_Width(MemblockID)
   h=Memblock_Height(MemblockID)
   d=Memblock_Depth(MemblockID)
   p=y*(w*(d/8))+x*(d/8)
   max as dword
   max = h*w*(d/8)
   if p>Get Memblock Size(MemblockID)-1
      p=Get Memblock Size(MemblockID)-1
   endif
   p=p+12
   if p<12 then p=12
Endfunction p

Sync On:Sync Rate 60:Autocam Off

`Set effect area
Global ax=50
Global ay=50

Get Image 2,0,0,ax,ay,1
Null = Make Vector2(1)


Make Object Cube 1,2
Position Object 1,-3,0,10
Make Object Sphere 2,2
Position Object 2,3,0,8

Sprite 2,0,0,2
stretch sprite 2,200,200

Do
   Center Text Screen Width()/2.0,100,"HELLO WORLD"
   Update_Mouse_Area()
   Sprite 2,MouseX()-ax,MouseY()-ay,2
   Sync
Loop


Function Update_Mouse_Area()
   p1 as Dword
   p2 as Dword
   c as Dword
   x=MouseX():y=MouseY()
   if x<(ax/2+1) or x>Screen Width()-(ax/2+1) Then Exitfunction
   If y<(ay/2+1) or y>Screen Width()-(ay/2+1) Then ExitFunction
   Get Image 2,MouseX()-(ax/2),MouseY()-(ay/2),MouseX()+(ax/2),MouseY()+(ay/2),1
   if mouseclick() = 2 then invert()
Endfunction

function invert()
    make memblock from image 2,2
    for ix = 0 to Memblock_Width(2)-1
        for iy = 0 to Memblock_Height(2)-1
            pp = Get_Pixel_Pos(ix,iy,2)
            write memblock byte 2,pp+0,255-memblock byte(2,pp+0)
            write memblock byte 2,pp+1,255-memblock byte(2,pp+1)
            write memblock byte 2,pp+2,255-memblock byte(2,pp+2)
        next iy
    next ix
    make image from memblock 2,2
endfunction

Function Memblock_Width(MemblockID)
   If Memblock Exist(MemblockID)=0 then Exitfunction 0
   If Get Memblock Size(MemblockID)<12 then exitfunction 0
   w=Memblock Dword(MemblockID,0)
Endfunction w

Function Memblock_Height(MemblockID)
   If Memblock Exist(MemblockID)=0 then Exitfunction 0
   If Get Memblock Size(MemblockID)<12 then exitfunction 0
   h=Memblock Dword(MemblockID,4)
Endfunction h

Function Memblock_Depth(MemblockID)
   If Memblock Exist(MemblockID)=0 then Exitfunction 0
   If Get Memblock Size(MemblockID)<12 then exitfunction 0
   d=Memblock Dword(MemblockID,8)
Endfunction d

Function Get_Pixel_Pos(x,y,MemblockID)
   p as dword
   p=0
   if Memblock Exist(MemblockID)=0 Then Exitfunction p
   w=Memblock_Width(MemblockID)
   h=Memblock_Height(MemblockID)
   d=Memblock_Depth(MemblockID)
   p=y*(w*(d/8))+x*(d/8)
   maxn as dword
   maxn = h*w*(d/8)
   if p>Get Memblock Size(MemblockID)-1
      p=Get Memblock Size(MemblockID)-1
   endif
   p=p+12
   if p<12 then p=12
Endfunction p

sync on : sync rate 100

#constant scrx screen width()
#constant scry screen height()

#constant sm = 40
#constant sl = 10.0
#constant grav = -0.2
type T
    x# as float
    y# as float
    sx# as float
    sy# as float
endtype
dim S(sm) as T

`vectors
r = make vector2(1)

`Reposition all segments
for a = 1 to sm
    S(a).x# = 512 + a*5
    S(a).y# = 512
next a

do

    cls

    S(1).x# = mousex()
    S(1).y# = scrY - mousey()

    for a = 2 to sm
        HandleSegment(a)
    next a

    sync
loop

function HandleSegment(a)

    `Get the position of the parent segment
    px# = S(a - 1).x#
    py# = S(a - 1).y#
    dx# = S(a).x# - px#
    dy# = S(a).y# - py#
    
    `Gravity
    S(a).sy# = S(a).sy# + grav
    
    `Get the length
    set vector2 1, dx#, dy#
    l# = length vector2(1)
    
    `If the length is bigger than the max
    if l# > sl
    
        `Apply force
        fx# = dx# / l# * S(a).sy#
        fy# = dy# / l# * S(a).sy#
        
        inc S(a).sx#, fx# * 0.8
        if dy# < 0 then inc S(a).sy#, fy#
        
        `Reposition
        S(a).x# = px# + (dx# / l# * sl)
        S(a).y# = py# + (dy# / l# * sl) 
    
    endif

    `the acceleration depends on the mass, but i'll use a standard value
    S(a).sx# = S(a).sx# * 0.8
    S(a).sy# = S(a).sy# * 0.8

    `Update position
    inc S(a).x#, S(a).sx#
    inc S(a).y#, S(a).sy#

    ink rgb(rnd(255), rnd(255), rnd(255)), 0
    line S(a).x#, scry - S(a).y#, px#, scry - py#

endfunction

Sync On:Sync Rate 60:Autocam Off

`Set effect area
Global ax=50
Global ay=50


Get Image 2,0,0,ax,ay,1
Null = Make Vector2(1)


Make Object Cube 1,2
Position Object 1,-3,0,10
Color Object 1,Rgb(0,255,0)
Make Object Sphere 2,2
Position Object 2,3,0,8

Sprite 2,0,0,2
Stretch Sprite 2,200,200
s#=Sprite Width(2)

Do
   Center Text Screen Width()/2.0,100,"HELLO WORLD"
   Update_Mouse_Area()
   s#=s#+(MouseMoveZ()*.01)
   Size Sprite 2,s#,s#
   Sprite 2,MouseX()-ax,MouseY()-ay,2
   Sync
Loop


Function Update_Mouse_Area()
   p1 as Dword
   p2 as Dword
   c as Dword
   x=MouseX():y=MouseY()
   if x<(ax/2+1) or x>Screen Width()-(ax/2+1) Then Exitfunction
   If y<(ay/2+1) or y>Screen Width()-(ay/2+1) Then ExitFunction
   Get Image 2,MouseX()-(ax/2),MouseY()-(ay/2),MouseX()+(ax/2),MouseY()+(ay/2),1
   if mouseclick() = 2 then invert()
   if mouseclick() = 1 then black_white()
Endfunction

function invert()
    make memblock from image 2,2
    for ix = 0 to Memblock_Width(2)-1
        for iy = 0 to Memblock_Height(2)-1
            pp = Get_Pixel_Pos(ix,iy,2)
            write memblock byte 2,pp+0,255-memblock byte(2,pp+0)
            write memblock byte 2,pp+1,255-memblock byte(2,pp+1)
            write memblock byte 2,pp+2,255-memblock byte(2,pp+2)
        next iy
    next ix
    make image from memblock 2,2
endfunction

Function black_white()
    c as dword
    make memblock from image 2,2
    for ix = 0 to Memblock_Width(2)-1
        for iy = 0 to Memblock_Height(2)-1
            pp = Get_Pixel_Pos(ix,iy,2)
            r=memblock byte(2,pp+0)
            g=memblock byte(2,pp+1)
            b=memblock byte(2,pp+2)
            a=(r+g+b)/3
            write memblock byte 2,pp+0,a
            write memblock byte 2,pp+1,a
            write memblock byte 2,pp+2,a
        next iy
    next ix
    make image from memblock 2,2
endfunction

Function Memblock_Width(MemblockID)
   If Memblock Exist(MemblockID)=0 then Exitfunction 0
   If Get Memblock Size(MemblockID)<12 then exitfunction 0
   w=Memblock Dword(MemblockID,0)
Endfunction w

Function Memblock_Height(MemblockID)
   If Memblock Exist(MemblockID)=0 then Exitfunction 0
   If Get Memblock Size(MemblockID)<12 then exitfunction 0
   h=Memblock Dword(MemblockID,4)
Endfunction h

Function Memblock_Depth(MemblockID)
   If Memblock Exist(MemblockID)=0 then Exitfunction 0
   If Get Memblock Size(MemblockID)<12 then exitfunction 0
   d=Memblock Dword(MemblockID,8)
Endfunction d

Function Get_Pixel_Pos(x,y,MemblockID)
   p as dword
   p=0
   if Memblock Exist(MemblockID)=0 Then Exitfunction p
   w=Memblock_Width(MemblockID)
   h=Memblock_Height(MemblockID)
   d=Memblock_Depth(MemblockID)
   p=y*(w*(d/8))+x*(d/8)
   maxn as dword
   maxn = h*w*(d/8)
   if p>Get Memblock Size(MemblockID)-1
      p=Get Memblock Size(MemblockID)-1
   endif
   p=p+12
   if p<12 then p=12
Endfunction p

`Cursor Challenge
`thinkdigital
sync on : sync rate 200
hide mouse
randomize timer()
dim green(255)
for i = 1 to 255
    green(i) = rgb(0,255-i,0)
next i
dim red(255)
for i = 1 to 255
    red(i) = rgb(255-i,0,0)
next i
dim yellow(255)
for i = 1 to 255
    yellow(i) = rgb(255-i,255-i,0)
next i

TYPE PRTCLE
    X
    Y
    XDIR as float
    YDIR as float
    LIFE
    KIND AS STRING
ENDTYPE

dim spr(200) as PRTCLE
global sprayInProgress
out = 20
way = 1
do:cls
    
    `Draw Dots Circling   
    
    if way = 1
        ink green(1),0
    else
        ink yellow(1),0
    endif
       dx = mousex() + (sin(dotRot) * out)
       dy = mousey() + (cos(dotRot) * out)
       dx2 = mousex() + (sin(dotRot+180) * out)
       dy2 = mousey() + (cos(dotRot+180) * out)
    box dx,dy,dx+size,dy+size
    box dx2,dy2,dx2+size,dy2+size
       dotRot = wrapvalue(dotRot+3)
        for i = 1 to 80
            if way = 1
                ink green(i*3),0
            else
                ink yellow(i*3),0
            endif
            dx = mousex() + (sin(dotRot-(i*2)) * out)
            dy = mousey() + (cos(dotRot-(i*2)) * out)
            box dx,dy,dx+size,dy+size
        next i
         
        for i = 1 to 80
            if way = 1
                ink green(i*3),0
            else
                ink yellow(i*3),0
            endif
            dx2 = mousex() + (sin(dotRot+180-(i*2)) * out)
            dy2 = mousey() + (cos(dotRot+180-(i*2)) * out)
            box dx2,dy2,dx2+size,dy2+size
        next i
         
    `Draw Evasive Thing
    edxp = edxp + xdir
    edyp = edyp + ydir
    if rnd(100) = 1 or edxp > screen width() or edxp < 0
       xdir = rnd(20)-10
    endif
    if rnd(100) = 1 or edyp > screen height() or edxp < 0
       ydir = rnd(20)-10
    endif
    if edxp > screen width() then xdir = xdir * -1
    if edyp > screen height() then ydir = ydir * -1
    if edxp < 0 then xdir = xdir * -1
    if edyp < 0 then ydir = ydir * -1
    ink red(1),0
       edx = edxp + (sin(dotRot) * 20)
       edy = edyp + (cos(dotRot) * 20)
       edx2 = edxp + (sin(dotRot+180) * 20)
       edy2 = edyp + (cos(dotRot+180) * 20)
    `box edx,edy,edx+3,edy+3
    `box edx2,edy2,edx2+3,edy2+3
    dotRot = wrapvalue(dotRot+3)
    
    for i = 1 to 80
        ink red(i*3),0
        edxt = edx + (sin(dotRot-(i*2)) * 20)
        edyt = edy + (cos(dotRot-(i*2)) * 20)
        box edxt,edyt,edxt+3,edyt+3
    next i
    
    for i = 1 to 80
        ink red(i*3),0
        edx2t = edx + (sin(dotRot+180-(i*2)) * 20)
        edy2t = edy + (cos(dotRot+180-(i*2)) * 20)
        box edx2t,edy2t,edx2t+3,edy2t+3
    next i   
    
    if mouseclick() = 1
        if (abs(mousex() - edxp) < out) and (abs(mousey() - edyp) < out)
            spray(mousex(),mousey(),"r")
        else
            spray(mousex(),mousey(),"y")

        endif
    endif
    
    if mouseclick() = 2
        if way = 1
            way = 0
            goto MC2_Outside
        endif
        if way = 0
            way = 1
        endif
    endif
    MC2_Outside:
    
    out = out + int(mousemovez()/100)
    size = int(out/6)
    
    syncSpray()
                
sync:loop

function spray(x,y,k as string)
if sprayInProgress = 0
    for i = 1 to 200
       spr(i).X = x
       spr(i).Y = y
       spr(i).XDIR = rnd(20) - 10
       spr(i).YDIR = rnd(20) - 20
       if i = 1
         spr(i).LIFE = 255
       else
         spr(i).LIFE = rnd(255)
       endif
       spr(i).KIND = k
    next i
    sprayInProgress = 1
endif
endfunction
function syncSpray()
    for i = 1 to 200
       spr(i).X = spr(i).X + spr(i).XDIR
       spr(i).Y = spr(i).Y + spr(i).YDIR
       spr(i).LIFE = spr(i).LIFE - 5
       spr(i).YDIR = spr(i).YDIR + 1 : `Gravity Bill
    next i
    for i = 1 to 200
        if spr(i).KIND = "y"
            ink rgb(spr(i).LIFE,spr(i).LIFE,0),0
        else:if spr(i).KIND = "r"
            ink rgb(spr(i).LIFE,0,0),0
        endif:endif
        if spr(i).LIFE < 1
            ink 0,0
        endif
        box spr(i).X,spr(i).Y,spr(i).X+2,spr(i).Y+2
    next i
        if spr(1).LIFE < 1
            sprayInProgress = 0
        endif
endfunction

`setup
sync on : sync rate 60
set display mode 1024,768,32 : hide mouse

`Types
type vec2
   x as float
   y as float
endtype

`Globals
global time as string
global hours as integer
global minutes as integer
global seconds as integer
global clMessage as string
global clLength as integer
global clSize as float
global clLetAng as float
global spin as float
global spinspeed as float
global smoothness as float


`Configure
   clMessage="Clock! By Zotoaster"
   clLength=text width(clMessage)
   clLetAng=360/len(clMessage)
clSize=60
spinspeed=-1.5
smoothness=0.5

`Arrays
dim letter(len(clMessage)) as string
dim letterpos(len(clMessage)) as vec2
dim nletterpos(len(clMessage)) as vec2

`Configure
for l=1 to len(clMessage)
   letter(l)=mid$(clMessage,l)
next l



`Main Loop
do

   `Get Time
   time=get time$()

   `Format string
   hours=val(getToken(time,":",1))
   minutes=val(getToken(time,":",2))
   seconds=val(getToken(time,":",3))

   `Rotate clock
   spin=wrapvalue(spin+spinspeed)

   `Show clock
   for l=1 to len(clMessage)
      letterpos(l).x=mousex()+(sin(-(clLetAng*l)+spin)*clSize)
      letterpos(l).y=mousey()+(cos(-(clLetAng*l)+spin)*clSize)
         nLetterPos(l).x=curvevalue(letterpos(l).x,nLetterPos(l).x,l*Smoothness)
         nLetterPos(l).y=curvevalue(letterpos(l).y,nLetterPos(l).y,l*Smoothness)
         center text nLetterPos(l).x,nLetterPos(l).y-(text size()/2),letter(l)
   next l

      `Show time
      line mousex(),mousey(),mousex()+(sin(hours*20)*(clSize/2)),mousey()+(cos(hours*20)*(clSize/2))
      line mousex(),mousey(),mousex()+(sin(minutes*6)*(clSize/1.5)),mousey()-(cos(minutes*6)*(clSize/1.5))
      line mousex(),mousey(),mousex()+(sin(seconds*6)*(clSize)),mousey()-(cos(seconds*6)*(clSize))
      center text mousex(),mousey()+(clSize+(clSize/4)),time

sync
cls
loop


`Functions
function getTokens(st$,sp$)
repeat
   counter=counter+1
   cur$=mid$(st$,counter)
   if cur$=sp$ then inc splits
until counter>len(st$)
tokens=splits+1
endfunction tokens
function getToken(st$,sp$,num)
nst$=sp$+st$+sp$
   repeat
      inc counter
      cur$=mid$(nst$,counter)
      if cur$=sp$ then inc splits
   until splits=num or counter>len(st$)
   repeat
      inc counter
      cur$=mid$(nst$,counter)
      if cur$<>sp$ then token$=token$+cur$
   until cur$=sp$ or counter>len(st$)
endfunction token$

set display mode 1024, 768, 32
sync on
sync rate 50
hide mouse

mag as double float
c as double float

width=screen width()
height=screen height()

centerx=width/2
centery=height/2

type xy
 x as integer
 y as integer
endtype


dim cur (101,101) as xy

dim cur2 (101,101) as dword


lock pixels

for x=1 to 1024
for y=1 to 768
  dot x,y, rgb(x mod 255,y mod 255,rnd(255))
next y
next x

text 300, 300, "magnify"

for x=centerx-50 to centerx+50
  for y=centery-50 to centery +50
    xpos=x-centerx
    ypos=y-centery
    d=sqrt(xpos*xpos+ypos*ypos)
    if d<40
      mag=.66
`      dot x,y,rgb(255,255,255)
    endif
    if d>=40 and d<50
      c=d-40 `1-10
      c=c/100
      mag=c+.66
      `if c>126 then mag=(c-127)/32+1 else mag=c/255+0.5
`      dot x,y, rgb(c,c,c)
    endif
    if d>=50
`      dot x,y,rgb(127,127,127)
      mag=1.0
    endif

    dx1=xpos/mag
    dy1=ypos/mag

    dx2=dx1-xpos + 128
    dy2=dy1-ypos + 128

  `  dot x,y,rgb(dx2,dy2,127)
    cur(xpos+50,ypos+50).x=dx1-xpos
    cur(xpos+50,ypos+50).y=dy1-ypos
  next y
next x

unlock pixels


do
 x=mousex()
 y=mousey()

 if x<50 then x=50
 if y<50 then y=50
 if x> width-50 then x=width-50
 if y> height-50 then y=height-50

 get image 1, x-50, y-50, x+50, y+50, 1

 lock pixels
   for i = x-50 to x+50
     for j= y-50 to y+50
        dx1=i-cur(i-x+50,j-y+50).x
        dy1=j-cur(i-x+50,j-y+50).y
        if dx1>0 and dx1<width and dy1>0 and dy1<height
          cur2(i+50-x,j+50-y)= point(dx1,dy1)
        else
        cur2(i+50-x,j+50-y)=0
        endif
     next j
   next i


   for i = x-50 to x+50
     for j= y-50 to y+50
        if i>0 and i<width and j>0 and j<height then dot i,j,cur2(i-x+50,j-y+50)
     next j
   next i
unlock pixels
circle x,y, 49

 sync
 paste image 1, x-50,y-50
 loop

set display mode 1024, 768, 32
sync on
sync rate 100
hide mouse

mag as double float
c as double float

width=screen width()
height=screen height()

centerx=width/2
centery=height/2

type xy
 x as integer
 y as integer
endtype


dim cur (101,101) as xy

dim cur2 (101,101) as dword


lock pixels

pix as dword

dr as float
dg as float
db as float

r=255
g=255
b=255
n=65

dr=(r-128.0)/n
dg=(g-168.0)/n
db=(b-144.0)/n

for x=centerx-50 to centerx+50
  for y=centery-50 to centery +50
    xpos=x-centerx
    ypos=y-centery
    d=sqrt(xpos*xpos+ypos*ypos)

    xpos1=x-centerx+15
    ypos1=y-centery+15
    d1=sqrt(xpos1*xpos1+ypos1*ypos1)+25

    if d<50 then dot x,y,rgb(255-(d1*dr),255-d1*dg,255-d1*db)
  next y
next x
unlock pixels



get image 2, centerx-50, centery-50, centerx+50, centery+50, 1
make memblock from image 1,2

s=get memblock size(1)-12


for a=4 to s step 4
  pix= memblock dword(1,a)
  pix=pix && 0x99FFFFFF
  write memblock dword 1,a,pix
next a
make image from memblock 2,1




lock pixels

for x=1 to 1024
for y=1 to 768
  dot x,y, rgb(x mod 255,y mod 255,rnd(255))
next y
next x

text 300, 300, "magnify"



for x=centerx-50 to centerx+50
  for y=centery-50 to centery +50
    xpos=x-centerx
    ypos=y-centery
    d=sqrt(xpos*xpos+ypos*ypos)
    if d<40
      mag=.66
`      dot x,y,rgb(255,255,255)
    endif
    if d>=40 and d<50
      c=d-40 `1-10
      c=c/100
      mag=c+.66
      `if c>126 then mag=(c-127)/32+1 else mag=c/255+0.5
`      dot x,y, rgb(c,c,c)
    endif
    if d>=50
`      dot x,y,rgb(127,127,127)
      mag=1.0
    endif

    dx1=xpos/mag
    dy1=ypos/mag

    dx2=dx1-xpos + 128
    dy2=dy1-ypos + 128

  `  dot x,y,rgb(dx2,dy2,127)
    cur(xpos+50,ypos+50).x=dx1-xpos
    cur(xpos+50,ypos+50).y=dy1-ypos
  next y
next x

unlock pixels


get image 3, 1,1, 1023, 767, 1


make object cube 1, 3
make object plain 2, 40, 30
position object 2, 0,0,25
position object 1, 2.5,5,20
autocam off
position camera 0,0,0
point camera 0,0,50


color object 1, rgb(255,255,0)
texture object 2, 3

ink rgb(192, 162, 100), 0
do
 inc r
 rotate object 1, r, r, r

 x=mousex()
 y=mousey()

 if x<50 then x=50
 if y<50 then y=50
 if x> width-50 then x=width-50
 if y> height-50 then y=height-50

 get image 1, x-50, y-50, x+50, y+50, 1

 lock pixels
   for i = x-50 to x+50
     for j= y-50 to y+50
        dx1=i-cur(i-x+50,j-y+50).x
        dy1=j-cur(i-x+50,j-y+50).y
        if dx1>0 and dx1<width and dy1>0 and dy1<height
          cur2(i+50-x,j+50-y)= point(dx1,dy1)
        else
        cur2(i+50-x,j+50-y)=0
        endif
     next j
   next i


   for i = x-50 to x+50
     for j= y-50 to y+50
        if i>0 and i<width and j>0 and j<height then dot i,j,cur2(i-x+50,j-y+50)
     next j
   next i
unlock pixels

 paste image 2, x-50, y-50, 1

circle x,y, 49
box x-5, y+50, x+5, y+125, rgb(192, 162, 100), rgb(153, 129, 80), rgb(255, 255, 255), rgb(192, 162, 100)


 sync

 loop