/** Declaration
 *Variables, Types, and Constants
 */
type Camera :
    record
        Dis, X, Y : real
    end record
var C : Camera
C.Dis := 600

/** Functions List
 *Get Radius
 *RotateX
 *RotateY
 *Distance
 *To3D
 */
fcn GetRadius (X1, Y1, X2, Y2 : real) : real
    result sqrt ((((X2 - X1) / 2) ** 2) + (((Y2 - Y1) / 2) ** 2))
end GetRadius

fcn RotateX (Degree, Radius : real) : real
    result ((cos (Degree mod 360) * Radius) - (sin (Degree mod 360) * Radius))
end RotateX

fcn RotateY (Degree, Radius : real) : real
    result ((sin (Degree mod 360) * Radius) + (cos (Degree mod 360) * Radius))
end RotateY

fcn Distance : real
    result C.Dis
end Distance

fcn To3D (V, Z : real) : int
    result round ((V) - (V / (Distance / Z)))
end To3D
/** Procedures
 *Cube
 */
proc Cube (FX1, FX2, FY1, FY2, FZ1, FZ2 : real, Color : int, Pitch, Roll, Spin : real)
    var Radius : real := GetRadius (To3D (FX1, FZ1), To3D (FY1, FZ1), To3D (FX2, FZ1), To3D (FY2, FZ1))div 2
    drawline (To3D (FX1, FZ1) + round (RotateX (Roll, Radius)), To3D (FY1, FZ1) + round (RotateY (Roll, Radius)), To3D (FX1, FZ1) + round (RotateX (Roll, Radius)), To3D (FY2, FZ1) +
        round (RotateY (Roll, Radius)), Color)
    drawline (To3D (FX2, FZ1) + round (RotateX (Roll, Radius)), To3D (FY1, FZ1) + round (RotateY (Roll, Radius)), To3D (FX2, FZ1) + round (RotateX (Roll, Radius)), To3D (FY2, FZ1) +
        round (RotateY (Roll, Radius)), Color)
    drawline (To3D (FX1, FZ1) + round (RotateX (Roll, Radius)), To3D (FY1, FZ1) + round (RotateY (Roll, Radius)), To3D (FX2, FZ1) + round (RotateX (Roll, Radius)), To3D (FY1, FZ1) +
        round (RotateY (Roll, Radius)), Color)
    drawline (To3D (FX1, FZ1) + round (RotateX (Roll, Radius)), To3D (FY2, FZ1) + round (RotateY (Roll, Radius)), To3D (FX2, FZ1) + round (RotateX (Roll, Radius)), To3D (FY2, FZ1) +
        round (RotateY (Roll, Radius)), Color)
end Cube
View.Set ("offscreenonly")
var i : real := 0
loop
    i += 0.1
    Cube (50, 100, 50, 100, 500, 4, red, i, i, i)
    View.Update
    cls
    delay (50)
end loop

            module Shape
    export ClearData, Prism, Move, Sketch
    const ShapeID := 100000
    const MaxShapes := 10000 %max number of shapes you can have.

    type NfoShape : %Shapes Info to be set for each var.
        record
            Type, Sides, ID : int
            X, Y, Z, Length, Width, Height : real
        end record
    var S : array 1 .. MaxShapes of NfoShape

    proc ClearData
        for i : 1 .. MaxShapes
            S (i).ID := 100000
            S (i).X := 0
            S (i).Y := 0
            S (i).Z := 0
            S (i).Length := 0
            S (i).Width := 0
            S (i).Height := 0
            S (i).Sides := 0
            S (i).Type := 0
        end for
    end ClearData

    fcn IDGet : int %Gets The ID of the Shape
        for i : 1 .. MaxShapes %Max Number of shapes Allowed
            if S (i).ID not= ShapeID then
                if i = MaxShapes then
                    quit %If this Quit is run then you have to many shapes
                end if
            elsif S (i).ID = ShapeID then
                result ShapeID + i
            end if
        end for
    end IDGet

    fcn IDSave (Num : int) : boolean
        if S (Num).ID not= ShapeID then
            result false
        elsif S (Num).ID = ShapeID then
            S (Num).ID := ShapeID + Num
            result true
        end if
    end IDSave

    fcn Prism (Length, Width, Height : real, Sides : int) : int
        var Num : int := IDGet
        if IDSave (Num - ShapeID) = true then
            S (Num - ShapeID).Length := Length
            S (Num - ShapeID).Width := Width
            S (Num - ShapeID).Height := Height
            S (Num - ShapeID).Sides := Sides
            S (Num - ShapeID).Type := 2
            result Num
        end if
    end Prism

    proc Move (var Shape : int, X, Y, Z : real)
        S (Shape - ShapeID).X := X
        S (Shape - ShapeID).Y := Y
        S (Shape - ShapeID).Z := Z
    end Move

    proc Sketch (var Shape : int, Color : int)
        for z : -180 .. 180 by (360 div S (Shape - ShapeID).Sides) %even angle for the number of sides
            for o : 1 .. S (Shape - ShapeID).Sides %for the number of sides
                %drawline (round (S (Shape - ShapeID).X + (cosd ((o * (360 / S (Shape - ShapeID).Sides))) * ((z * (S (Shape - ShapeID).Width / 360))))), % if you uncomment this a line will be drawn
                    %round (S (Shape - ShapeID).Y + (sind (o * (360 / S (Shape - ShapeID).Sides)) * (z * (S (Shape - ShapeID).Length / 360)))), % from each point to the next
                    %round (S (Shape - ShapeID).X + (cosd ((o * (360 / S (Shape - ShapeID).Sides))) * (((z + (360 / S (Shape - ShapeID).Sides)) * (S (Shape - ShapeID).Width / 360))))),
                    %round (S (Shape - ShapeID).Y + (sind (o * (360 / S (Shape - ShapeID).Sides)) * ((z + (360 / S (Shape - ShapeID).Sides)) * (S (Shape - ShapeID).Length / 360)))), Color)
                    drawfilloval (round (S (Shape - ShapeID).X + (cosd ((o * (360 / S (Shape - ShapeID).Sides))) * ((z * (S (Shape - ShapeID).Width / 360))))),
                    round (S (Shape - ShapeID).Y + (sind (o * (360 / S (Shape - ShapeID).Sides)) * (z * (S (Shape - ShapeID).Length / 360)))),
                    1,1, Color)
delay (1)
            end for
        end for
    end Sketch
end Shape
Shape.ClearData
var cube : int := Shape.Prism (250, 250, 50,45)%the last value changes the sides, max 360 min 1
Shape.Move (cube, maxx / 2, maxy / 2, 0)
Shape.Sketch (cube, brightblue)