Microsoft Small Basic

Program Listing: XJH737

List Program

GraphicsWindow.Clear()
BaseLine = 200
GraphicsWindow.PenColor = "black"
GraphicsWindow.PenWidth = 1
GraphicsWindow.DrawLine(0. BaseLine, 360, BaseLine)

For x = 0 To 360 Step 1
radian = (x / 180.0) * Math.Pi
sin = Math.Sin(radian)
GraphicsWindow.SetPixel(x, (sin * 100) + BaseLine, "red")

cos = Math.Cos(radian)
GraphicsWindow.SetPixel(x, (cos * 100) + BaseLine, "green")

tan = Math.Tan(radian)
If tan >= -100 And tan <= 100 Then
GraphicsWindow.SetPixel(x, (tan * 100) + BaseLine, "blue")
EndIf
EndFor