%Graphing Program
%Steven Aston
%Date: Unknown
%Version 1.0a

var GraphWin : int := Window.Open ("graphics:600;600,nobuttonbar,nocursor,offscreenonly")
var VarWin : int := Window.Open ("graphics:400;640,nobuttonbar,nocursor")
var ShrinkStretch, Y, X, Exponent, Horizontal, Vertical : real
var GraphX, GraphY, count, AGD, PicID : int := 0
var exitnow : boolean := false
Window.SetActive (VarWin)

colorback (7)
color (0)
cls

put "                Graphing Calculator"
put "  Graph Lines, Parabolas, Hyperbolas and more!"
put "              Written By Steven Aston"
put ""

delay (500)

procedure GraphIt
    Window.SetActive (GraphWin)
    for a : -10000 .. 10000
        X := (intreal (a) / 1000) * 2 ** Exponent
        Y := (ShrinkStretch * (X + Horizontal) ** round (Exponent) + Vertical) * 2
        GraphX := round (X) + 300
        GraphY := round (Y) + 300
        drawdot (GraphX, GraphY, 7)
        count += 1
        if count = 25 then
            count := 0
            View.Update
        end if
    end for
    View.Update
end GraphIt

procedure GetVars
    Window.SetActive (VarWin)
    put "-------------------------------------------------"
    put "Enter the value of the shrink or stretch."
    put "   (value)(X**2 + H) + V"
    get ShrinkStretch
    delay (200)
    put "Enter the value of the X exponent."
    put "   2(X**(value) + H) + V"
    get Exponent
    delay (200)
    put "Enter the value of the horizontal shift."
    put "Remember, negative shifts right, "
    put "positive shifts left."
    put "   2(X**2 + (value)) + V"
    get Horizontal
    delay (200)
    put "Enter the value of the vertical shift."
    put "   2(X**2 + H) + (value)"
    get Vertical
    delay (500)
    put "-------------------------------------------------"
    GraphIt
end GetVars

procedure DrawGrid
    Window.SetActive (GraphWin)
    for x : -10 .. 610 by 10
        drawline (x, 1, x, 600, 30)
    end for
    for y : -10 .. 610 by 10
        drawline (1, y, 600, y, 30)
    end for
    drawline (-1, 300, 601, 300, 7)
    drawline (300, -1, 300, 601, 7)
end DrawGrid

procedure AfterGraph
    Window.SetActive (VarWin)
    put "Would you like to..."
    put "1. Save Picture."
    put "2. Graph another function."
    put "3. Clear Screen and Restart."
    put "4. Exit"
    get AGD
    if AGD = 1 then
        Pic.ScreenSave (0, 0, 600, 600, "Graph00x.Jpg")
    elsif AGD = 2 then
        GetVars
    elsif AGD = 3 then
        Window.SetActive (GraphWin)
        cls
    elsif AGD = 4 then
        exitnow := true
    else
    end if
end AfterGraph

procedure MainRun
    DrawGrid
    loop
        GetVars
        AfterGraph
        exit when exitnow = true
    end loop
    Window.Close (GraphWin)
    Window.Close (VarWin)
end MainRun


MainRun