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.