Trace Math

Draws mathematical functions

option explicit
Const L=160
Const H=120
Dim f, s, t, c, i, j, x, y, a
Dim m(160,120)
For y = 0 To H
  For x = 0 To L
    m(x,y) = "."
  Next
Next

i = L/2
j = H/2
a = 20
For y = j-a To a-j Step -4
  For x = -i To i
    m(x+i,y+j+Sin(Sqr(x*x+y*y)/14)*a) = "*"
  Next
Next

Set f = CreateObject("Scripting.FileSystemObject")
t = f.GetTempName
Set c = f.CreateTextFile(t, -1)

For y = 0 To H
  s = ""
  For x = 0 To L
    s = s & m(x,y)
  Next
  c.WriteLine(s)
Next

c.Close
Set c = WScript.CreateObject("WScript.Shell")
c.Run "notepad.exe " & t,3 ,-1
f.DeleteFile t