Microsoft Small Basic

Program Listing: FNW675

List Program

GraphicsWindow.width=400
GraphicsWindow.height=400

create()

GraphicsWindow.MouseMove=onMouseMove


Sub Create
GraphicsWindow.BrushColor="black"

ooglinks=Shapes.AddEllipse(100,100)
Shapes.Move(ooglinks,100,100)
oogrechts=Shapes.AddEllipse(100,100)
Shapes.Move(oogrechts,200,100)

GraphicsWindow.BrushColor="white"
irislinks=Shapes.AddEllipse(20,20)
Shapes.Move(irislinks,140,140)
irisrechts=Shapes.AddEllipse(20,20)
Shapes.Move(irisrechts,240,140)

' mondlinks=Shapes.AddLine(100,210,200,250)
' mondrechts=shapes.AddLine(200,250,300,210)
mond=shapes.AddLine(150,250,250,250)


endsub

Sub onMouseMove
x=graphicswindow.MouseX
y=graphicswindow.MouseY

dx=x-140
dy=y-140

shapes.move(irislinks,dx*0.1+140,dy*0.1+140)

dx=x-240
dy=y-140

shapes.move(irisrechts,dx*0.1+240,dy*0.1+140)



endsub