48 lines
1.5 KiB
Racket
48 lines
1.5 KiB
Racket
#lang slideshow
|
|
|
|
(require plot plot/utils)
|
|
|
|
(plot-font-size (current-font-size))
|
|
(plot-title "Untitled")
|
|
(plot-width 600)
|
|
(plot-height 600)
|
|
(plot-background '(192 255 192))
|
|
(plot-foreground '(255 64 255))
|
|
|
|
(slide
|
|
#:title "Two Small 2D Parabolas"
|
|
(para "A small, aliased parabola:"
|
|
(scale (bitmap (plot (function sqr -1 1 #:label "y = x^2"))) 1/3))
|
|
(para "A small, smooth parabola:"
|
|
(rotate (scale (plot-pict (function sqr -1 1 #:label "y = x^2")) 1/3)
|
|
(degrees->radians 15))))
|
|
|
|
(slide
|
|
#:title "A 2D Parabola"
|
|
(parameterize ([plot-background 1]
|
|
[plot-background-alpha 1/2]
|
|
[plot-foreground 1])
|
|
;; This parabola should be pink:
|
|
(plot-pict (function sqr -1 1 #:label "y = x^2")
|
|
#:legend-anchor 'center)))
|
|
|
|
(define (parabola2d x y) (+ (sqr x) (sqr y)))
|
|
|
|
(slide
|
|
#:title "Two Small 3D Parabolas"
|
|
(para "A small, aliased parabola:"
|
|
(scale (bitmap (plot3d (surface3d parabola2d -1 1 -1 1 #:label "z = x^2 + y^2"))) 1/3))
|
|
(para "A small, smooth parabola:"
|
|
(rotate (scale (plot3d-pict (surface3d parabola2d -1 1 -1 1 #:label "z = x^2 + y^2")) 1/3)
|
|
(degrees->radians 15))))
|
|
|
|
(slide
|
|
#:title "A 3D Parabola"
|
|
(parameterize ([plot-background 1]
|
|
[plot-background-alpha 1/2]
|
|
[plot-foreground 1])
|
|
(plot3d-pict (list (surface3d parabola2d -1 1 -1 1
|
|
#:label "z = x^2 + y^2" #:color 3)
|
|
(contours3d parabola2d -1 1 -1 1))
|
|
#:legend-anchor 'center)))
|