indexbase 0
include "window.inc"

Sub Pixel(int x,y,c)
SetPixel bHdc,x,y,c
End Sub


Window"CosineTexture",360,360,1

single x, y, c1, c2, c3

For x=0 To 360
For y=0 To 360
c1= cos(x*y*pi/180) 
c2= cos(x*y*pi/180)
c3= cos(x*y*pi/180)
Pixel x, y, ColorRGB(c1*200, c2*180, c3*100)
Events
Next: Next
FlipBuffer
pause
WinEnd