Skip to content

Instantly share code, notes, and snippets.

@spdegabrielle

spdegabrielle/racket-logo-plot.rkt

Forked from Metaxal/racket-logo-plot.rkt
Created September 3, 2019 10:31
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save spdegabrielle/1925f649ad238cd4cd3cc7bbf5943fb2 to your computer and use it in GitHub Desktop.
Save spdegabrielle/1925f649ad238cd4cd3cc7bbf5943fb2 to your computer and use it in GitHub Desktop.
Download ZIP
Lambda logo with Racket's plot
Raw
racket-logo-plot.rkt
#lang racket
(require plot)
(let ([blue '(0 0 164)] [red '(164 0 0)])
(parameterize ([plot-decorations? #f])
(plot3d
(list
(surface3d (λ(x y)(/ x 10)) 0 5 0 1 #:color red #:line-color red)
(surface3d (λ(x y)(- 1 (/ (+ 1 (exp (- 5 x)))))) 0 10 0 1 #:color blue #:line-color blue))
#:angle 335 #:altitude 5)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment