Good
afternoon Computer Power Students
I
expect you all to go above and beyond our usual behavior norms today as you
work on completing your assignments.
Please work on DrScheme the entire class. You should be able to complete Assignment1
and have the rest of the class to work on a draw project of your choice.
1st Assignment This may take you as
long as 30 minutes to solve the clue and graph the line. Remember last classes assignment? Go back and look at that file if you need to refresh your memory..
**Challenge yourself to race against the clock. The first 5 students to complete the
assignment will earn O$$orio$$ Buck$, save the file
as soon as you finish and turn it in. (Hint: I will check the DrScheme file to see the
time and date your work was saved. Don’t save a second time after you have
created your graph because it will change the time of your file! )
Copy
the Cartesian Plan code (in blue) to a new Dr.
Scheme file
;;=================TEACH PACK COORDINATE PLANE===============
;;--------------------> Canvas Size <---------------------
(define L 400) ;; Length of Canvas
(define M (/ L 2)) ;; Middle
(start L L) ;; Starts a drawing canvas
;;------------------- > X-AXIS and
Y-AXIS <------------------
(draw-solid-line (make-posn
M 0) (make-posn M L))
(draw-solid-line (make-posn
0 M) (make-posn L M))
;;---------------------> Drawing Commands
<---------------------------
;;line: posn posn color -> true
;;Draws a line given the start and end
points and a color on a cartesian plane
(define (line start end color)
(draw-solid-line
(make-posn (+ (posn-x
start)M) (- M (posn-y start)))
(make-posn
(+ (posn-x end) M) (- M (posn-y
end))) color))
;;circle: posn
number color -> true
;;Draws a circle given the center point,
radius and a color on a cartesian plane
(define (circle center radius color)
(draw-circle (make-posn (+ M(posn-x
center)) (- M (posn-y center))) radius color))
;;disk: posn
number color -> true
;;Draws a solid-disk given the center
point, radius and a color on a cartesian plane
(define (disk center radius color)
(draw-solid-disk (make-posn (+ M(posn-x
center)) (- M (posn-y center))) radius color))
;;rect: posn number number color ->
true
;;Draws a solid-rectangle given the
top-left corner point, the length, width and color
(define (rect
corner L H color)
(draw-solid-rect (make-posn (+ M (posn-x corner)) (- M (posn-y
corner))) L H color))
;;=============END OF TEACH PACK
COORDINATE PLANE==========|
;;--------------------> Grid Line Markers <-----------------
(line (make-posn
-5 100) (make-posn +5 100) 'black)
(line (make-posn
100 -5) (make-posn 100 +5) 'blue)
(line (make-posn
-5 -100) (make-posn +5 -100)'green)
(line (make-posn
-100 -5) (make-posn -100 +5) 'red)
;;-------------------> Clue 1 - Graphing lines <-------------
;;Assignment
;;draw a line
;;The y-intercept is -30
;;The x-intercept is 40
;;The slope is ( 3/4 )
;;The line passes through the point (120, 60)
;;The line passes through the point (-40, -60)
;;The line is parallel to the line y =
(3/4)x + 70
;;
;;Use these clues to draw a line on the
coordinate plane.
;;You will use 1-3 draw line commands to make a graph of this
continuous line
;;You may plot more points along the line,
and draw the line segments
Your canvas should look like this…

After
completing this assignment, save it to the filename: graph_assignment1_lastname
and
place a copy in the MS Student Work > Computer Power folder.
2nd Assignment
:
Work
on typing code for the Draw3 or Draw4 assignment which you began earlier this
semester.
:
If
you cannot find your original grid paper or hand written code, create a new
“picture” drawing on grid paper today and type the code,
:
save
new project as filename: draw_picture_lastname
Grid
paper is located at the front of the room, in the set of trays next to the
scanner, 4th tray down.