GraphicsWindow.MouseDown = mousedown GraphicsWindow.MouseUp = mouseup i = 0 Sub mousedown x[i] = GraphicsWindow.mousex y[i] = GraphicsWindow.mousey i = i + 1 EndSub Sub mouseup anak = Shapes.AddEllipse(10,10) Shapes.animate(anak, x[i - 1], y[i - 1],1000) EndSub
Friday, 7 February 2014
Hujan Bola
GraphicsWindow.MouseDown = mousedown GraphicsWindow.MouseUp = mouseup i = 0 Sub mousedown x[i] = GraphicsWindow.mousex y[i] = GraphicsWindow.mousey i = i + 1 EndSub Sub mouseup anak = Shapes.AddEllipse(10,10) Shapes.animate(anak, x[i - 1], y[i - 1],1000) EndSub
Thursday, 6 February 2014
Simple but beautiful flickr
GraphicsWindow.MouseMove = lihat
GraphicsWindow.DrawImage(Flickr.GetPictureOfMoment(),0,0)
Sub lihat
x = GraphicsWindow.mousex
y = GraphicsWindow.MouseY
c1 = GraphicsWindow.GetPixel(x,y)
TextWindow.WriteLine(c1)
EndSub
GraphicsWindow.DrawImage(Flickr.GetPictureOfMoment(),0,0)
Sub lihat
x = GraphicsWindow.mousex
y = GraphicsWindow.MouseY
c1 = GraphicsWindow.GetPixel(x,y)
TextWindow.WriteLine(c1)
EndSub
Subscribe to:
Posts (Atom)