Skip to content

Instantly share code, notes, and snippets.

@Metaxal
Created September 2, 2019 12:50
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 1 You must be signed in to fork a gist
  • Save Metaxal/01309b175e268be502b406f036072f17 to your computer and use it in GitHub Desktop.
Save Metaxal/01309b175e268be502b406f036072f17 to your computer and use it in GitHub Desktop.
Lambda logo with Racket's plot
#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)))
@Metaxal
Copy link
Author

Metaxal commented Sep 2, 2019

racket-logo-plot

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment