Add files via upload

doc/files/spriteisvisible.txt

@@ -3,4 +3,47 @@
 
 Returns whether the sprite is visible
 
+#code
+isFullScreen = false
+vSync = true
+winWidth = 640
+winHeight = 480
+canViewPortX = 0
+canViewPortY = 0
+
+OpenWindow("SetSpriteVisible", winWidth, winHeight, isFullScreen, vSync)
+sCanvas = OpenCanvasSpriteLayer(canViewPortX, canViewPortY, winWidth, winHeight)
+Canvas(sCanvas)
+
+DIM eye
+DIM eyeW
+DIM eyeH
+DIM spriteTimer : spriteTimer = Timer()
+DIM spriteTimerDiff : spriteTimerDiff = 2000
+
+eye = LoadImage("theEye.png")
+GetImageSize(eye, eyeW, eyeH)
+
+eyeSprite = CreateSprite(eye, eyeW, eyeH)
+SetSpritePosition(eyeSprite, 100, 100)
+SetSpriteVisible(eyeSprite, 0)						'Set the flag to 0 for not visible
+
+
+While Not Key(K_ESCAPE)
+	If Timer() - spriteTimer > spriteTimerDiff Then
+		SetSpriteVisible(eyeSprite, 1)
+		Print ("Function Called")
+	End If
+
+	If SpriteIsVisible(eyeSprite) Then
+		Print ("Sprite is Visible")
+	else
+		Print ("Sprite is not visible")
+	End If
+	Update()
+Wend
+#/code
+
+#image "images/theEye.png"
+
 #ref SetSpriteVisible