Skip to content

Instantly share code, notes, and snippets.

@vietnt

vietnt/quad.fs

Created May 27, 2019 06:59
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 vietnt/9e235510c188ef00005c5cafc02c35e0 to your computer and use it in GitHub Desktop.
Save vietnt/9e235510c188ef00005c5cafc02c35e0 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
quad.fs
let makeQuad a b h=
let x0, y0, z0 = a
let x1, y1, z1 = b
let c = x1, y1 + h, z1
let d = x0, y0 + h, z0
(a, b, c), (a, c, d)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment