%The shape drawing program
%Daniel Simmonds and Martin Lindsy
%January 27 2005
setscreen ("graphics:max;max,nobuttonbar") %makes screen larger and removes the button bar
var shape, nothing, box_col : string %creates variable able to hold both numbers and letters
var box_base, box_height, box_col1, radius : int %creates variables able to hold rounded numbers
var x, triangletype, y, x2, x3, y2 : int %creates variables able to hold rounded number
var triangle_base, triangle_height, para_base, para_height, hex_base : real %creates variables able to hold unrounded number
var font : int %creates variables able to hold rounded number
font := Font.New ("Palatino:24:bold,italic") %assigns the variable 'font' a font style to use
proc drawhexagon (base, hexagonarea : real)
cls %clear screen
x := round ((maxx div 2) - (base div 2) * 20) %places x coordinate at a point to center the hexagon when drawn
x2 := round (x + base * 20) %when line is drawn the space between x and x2 is the base length
y := round ((maxy div 2) - (base div 2) * 20) %y is set to a coordinate to center the hexagon
drawline (x, y, x2, y, brightred) %draws the bottom line of the hexagon
y2 := round (y + (base * 0.66666) * 20) %sets y2 2/3 times the base above the last y variable, for a 60 degree angle
x3 := round (x - (base div 2) * 20) %x3 is half of the base to the left of the x coordinate
drawline (x, y, x3, y2, brightred) %draws the bottom left line
x := round (x2 + (base div 2) * 20) %sets x to half the base to the right of x2 to achieve a 60 degree angle
drawline (x2, y, x, y2, brightred) %draws bottom right line
y := round (y2 + (base * 0.66666) * 20) %sets the y coordinate 2/3 of the base over the last y corrdinate to achieve a 60 degree angle
x2 := round (x3 + (base div 2) * 20) %x2 is now the same as the x corrdinate was first
drawline (x3, y2, x2, y, brightred) %draws top left line
x3 := round (x - (base div 2) * 20) %x3 i now the same as what x2 started as
drawline (x3, y, x, y2, brightred) %draws top right line
drawline (x2, y, x3, y, brightred) %draws top base line
put "base=", base, "cm area=", (round (hexagonarea * 100)) / 100, "cm" .. %outputs base height and area
put chr (170) %squared symbol
end drawhexagon
procedure draw_box (box_height, box_base, box_col1 : int)
cls %clear screen
drawfillbox (200, 200, box_base, box_height, box_col1) %draws box using user given variables variables
end draw_box
proc circle (radius : int)
drawfilloval (400, 300, radius * 20, radius * 20, brightred) %draws circle using user given variables
end circle
proc drawparalellogram (para_base, para_height : real)
cls %clears screen
x := (maxx div 2) - ((para_base * 20) div 2) - 20 %x is put in a spot so that when drawn, the parolellogram is centered
x2 := round (x + para_base * 20) %x2 and x will be as far away from each other as the base
y := (maxy div 2) - ((para_base * 20) div 2) %y will be in the a spot so that when drawn, the parolellogram will be centered
drawline (x, y, x2, y, brightred) %draws the base line
y2 := round (y + para_height * 20) %y2 will be the height higher than the y coordinate
x3 := x + 40 %x3 will be 40 pixels to the right of x
drawline (x, y, x3, y2, brightred) %draws the left line
x := round (x3 + para_base * 20) %x is recycled to the base length to the right of x3
drawline (x, y2, x2, y, brightred) %draws right line
drawline (x, y2, x3, y2, brightred) %draws top line
locate (30, 30)
put "Base=", para_base, " height=", para_height, " area=", para_base * para_height .. %outputs the base height and area
put chr (170) %squared symbol
end drawparalellogram
proc drawtriangle (triangle_base, triangle_height : real)
cls %clear screen
x := round ((maxx div 2) - ((triangle_base * 20) div 2)) %x is at a point so that when draw, the triangle will be centered
x2 := round (x + triangle_base * 20) %x2 is the distance of the base away from the x
y := round ((maxy div 2) - ((triangle_base * 20) div 2)) %y is at a point so that when drawn, the triangle will be centered
drawline (x, y, x2, y, brightred) %draws bottome line
locate (30, 30)
put "base=", triangle_base, "cm height=", triangle_height, "cm" %outputs base height and area
y2 := round (y + triangle_height * 20) %y2 is the height away from the y coordinate
if triangletype = 1 then %if isosceles
x3 := maxx div 2 %x3 is centered
elsif triangletype = 2 then %if right angle
x3 := x2 %then x3 is x2
else
x3 := x + 15 %if scalene, then x3 is 15 right of x
end if
drawline (x, y, x3, y2, brightred) %draws left line
drawline (x2, y, x3, y2, brightred) %draws right line
end drawtriangle
colourback (black) %screen's background will be black
cls %clears screen
Font.Draw ("Welcome to Daniel's and Martin's program!!", 85, 350, font, brightgreen)
Font.Draw ("5", 450, 200, font, brightgreen)
delay (1500)
cls
Font.Draw ("Welcome to Daniel's and Martin's program!!", 85, 350, font, brightgreen)
Font.Draw ("4", 450, 200, font, brightgreen)
delay (1500)
cls
Font.Draw ("Welcome to Daniel's and Martin's program!!", 85, 350, font, brightgreen)
Font.Draw ("3", 450, 200, font, brightgreen)
delay (1500)
cls
Font.Draw ("Welcome to Daniel's and Martin's program!!", 85, 350, font, brightgreen)
Font.Draw ("2", 450, 200, font, brightgreen)
delay (1500)
cls
Font.Draw ("Welcome to Daniel's and Martin's program!!", 85, 350, font, brightgreen)
Font.Draw ("1", 450, 200, font, brightgreen)
delay (1500)
cls
Text.Colour (white) %all writing will be white
%main program begins here.
loop
cls %clears screen
locate (1, 1)
put "type 0 to exit."
locate (5, 5)
put "Please pick one of the following shapes that you would like to see drawn, and explained."
locate (10, 15)
put "1) Triangle"
locate (11, 15)
put "2) Rectangle"
locate (12, 15)
put "3) Circle"
locate (13, 15)
put "4) Paralellogram"
locate (14, 15)
put "5) Hexagon"
locate (15, 15)
put "Which shape would you like to see drawn? " ..
get shape %prompts user for input on their decision
if shape = "triangle" or shape = "Triangle" then
cls
put "Enter the base for the triangle (1-20).. " ..
get triangle_base %prompts user for base
if triangle_base > 20 then %keeps size reasonable
cls
loop
locate (15, 35)
put triangle_base, " is not valid input."
exit
end loop
end if
put "Enter the height for the triangle (1-20).. " ..
get triangle_height %user inputs height
if triangle_height > 20 then %keeps height reasonable
cls
locate (15, 35)
put triangle_height, " is not valid input."
end if
cls
put "Enter the type of triangle you would like drawn.."
put "(1) isoceles"
put "(2) Right-Angle"
put "(3) Scalene"
put "Triangle type.. " ..
get triangletype %asks user what triangle they want drawn
drawtriangle (triangle_base, triangle_height) %calls triangle procedure
elsif shape = "1" then
cls
loop
locate (1, 1)
put "Enter the base for the triangle (1-20).. " ..
get triangle_base %user enters base
if triangle_base > 20 then %keeps base reasonable
cls
locate (15, 35)
put triangle_base, " is not valid input."
exit
end if
put "Enter the height for the triangle (1-20).. " ..
get triangle_height %user enters height
if triangle_height > 20 then %keeps height reasonable
cls
locate (15, 35)
put triangle_height, " is not valid input."
exit
end if
put "Enter the type of triangle you would like drawn.."
put "(1) isoceles"
put "(2) Right-Angle"
put "(3) Scalene"
put "Triangle type.. " ..
get triangletype %asks user what kind of triangle they want drawn
drawtriangle (triangle_base, triangle_height) %calls triangle procedure
exit
end loop
elsif shape = "2" then
cls
locate (12, 25)
put "This is what a rectangle looks like..."
drawfillbox (200, 200, 450, 300, brightred) %gives example of rectangle
locate (25, 25)
put "Are you ready to see more!! " ..
get nothing
cls
drawfillbox (200, 200, 450, 300, brightred) %redraws example box
locate (2, 2)
put "Would You like to try? " ..
locate (30, 25)
put "Height of 5"
locate (30, 40)
put "Base of 8"
locate (2, 25)
get nothing
put "OK, please give me the Base!! (1-30) " ..
get box_base %user enters base
put "Ok, know give me the Height!! (1-20) " ..
get box_height %user enters height
box_col := "red" %sets colour to red
if box_col = "blue" then
box_col1 := 1
elsif box_col = "green" then
box_col1 := 2
elsif box_col = "red" then
box_col1 := 4
elsif box_col = "yellow" then
box_col1 := 14
elsif box_col = "white" then
box_col1 := 31
else
end if
put "invalid input"
%this part multiplys all lengths by 20 for scale ratio
box_height := box_height * 20
box_base := box_base * 20
box_base := box_base + 200
box_height := box_height + 200
draw_box (box_height, box_base, box_col1) %calls the draw box procedure
elsif shape = "rectangle" or shape = "Rectangle" then
cls %clears screen
locate (12, 25)
put "This is what a rectangle looks like..."
drawfillbox (200, 200, 450, 300, brightred) %draws example box
locate (25, 25)
put "Are you ready to see more!! " ..
get nothing
cls %clears screeen
drawfillbox (200, 200, 450, 300, brightred) %redraws example box
locate (2, 2)
put "Would You like to try? " ..
locate (30, 25)
put "Height of 5"
locate (30, 40)
put "Base of 8"
locate (2, 25)
get nothing
put "OK, please give me the Base!! (1-30) " ..
get box_base %user enters base
put "Ok, know give me the Height!! (1-20) " ..
get box_height %user enters height
box_col := "red" %sets colout to red
if box_col = "blue" then
box_col1 := 1
elsif box_col = "green" then
box_col1 := 2
elsif box_col = "red" then
box_col1 := 4
elsif box_col = "yellow" then
box_col1 := 14
elsif box_col = "white" then
box_col1 := 31
else
end if
put "invalid input"
%this code multiplys lengths by 20 to make a scale
box_height := box_height * 20
box_base := box_base * 20
box_base := box_base + 200
box_height := box_height + 200
draw_box (box_height, box_base, box_col1) %calls box procedure
elsif shape = "3" then
cls
put "This is what a circle looks like."
drawfilloval (400, 300, 70, 70, brightred) %draw example circle
locate (30, 2)
put "Would you like to see more? " ..
get nothing
cls %clears screen
drawoval (400, 300, 70, 70, brightred) %redraws example circle
drawline (400, 300, 470, 300, brightred)
locate (17, 50)
put "Radius of 4"
locate (2, 2)
put "Would you like to try? " ..
get nothing
cls %clears screen
locate (2, 2)
put "Please give me the radius! (1-15) " ..
get radius %user enters radius
cls
circle (radius) %calls circle procedure
put "Area=", round ((3.14 * radius ** 2) * 100) / 100 %outputs area
elsif shape = "circle" or shape = "Circle" then
cls
put "This is what a circle looks like."
drawfilloval (400, 300, 70, 70, brightred) %draws example circle
locate (30, 2)
put "Would you like to see more? " ..
get nothing
cls
drawoval (400, 300, 70, 70, brightred) %redraws example circle
drawline (400, 300, 470, 300, brightred)
locate (17, 50)
put "Radius of 4"
locate (2, 2)
put "Would you like to try? " ..
get nothing
cls %clears screen
locate (2, 2)
put "Please give me the radius! (1-15) " ..
get radius %user enters radius
cls %clears screen
circle (radius) %calls circle procedure
elsif shape = "paralellogram" or shape = "Paralellogram" or shape = "4" then
cls %clears screen
put "Enter the base of the shape (1-20).. " ..
get para_base %user enters base
put "Enter the height of the shape (1-20).. " ..
get para_height %user enters height
drawparalellogram (para_base, para_height) %calls procedure for paralellogram
elsif shape = "Hexagon" or shape = "hexagon" or shape = "5" then
cls %clears screen
put "Enter the desired base (1-15).. " ..
get hex_base %user enters base
if hex_base > 15 or hex_base < 1 then %keeps the size reasonable
hex_base := 15
end if
drawhexagon (hex_base, hex_base * (hex_base * 0.66) / 2 * 6) %calls haxagon procedure
elsif shape = "0" then
exit
else %if choice is invalid
cls
locate (12, 20)
put shape, " is an invalid input, please try again." %tells user its invalid
end if
delay (3000) %delays 3 seconds
end loop %goes back to the top of the menu part
cls
put "Thank you."
|
Register
Wiki
Blog
Search
Turing
Chat Room
Members
([code] [/code ] <without last space)
