fork download
copy 
  1. (defun draw-letter-A ()
  2.   (command "line" (getpoint) (polar (getpoint) 0.0 (/ pi 4.0)))
  3.   (command "line" (getpoint) (polar (getpoint) 0.0 (/ pi 2.0)))
  4.   (command "line" (getpoint) (polar (getpoint) 0.0 (* 3.0 (/ pi 4.0))))
  5.   (command "line" (getpoint) (polar (getpoint) 0.0 pi))
  6.   (command "line" (getpoint) (polar (getpoint) 0.0 (- (* 5.0 (/ pi 4.0)))))
  7.   (command "line" (getpoint) (polar (getpoint) 0.0 (- (* 6.0 (/ pi 4.0)))))
  8.   (command "line" (getpoint) (polar (getpoint) 0.0 (- (* 7.0 (/ pi 4.0)))))
  9.   (command "line" (getpoint) (polar (getpoint) 0.0 (- (* 8.0 (/ pi 4.0)))))
  10.   (command "line" (getpoint) (polar (getpoint) 0.0 (- (* 9.0 (/ pi 4.0)))))
  11.   (command "line" (getpoint) (polar (getpoint) 0.0 (- (* 10.0 (/ pi 4.0))))))
Success #stdin #stdout 0.01s 23548KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
https://ideone.com/kdhbWi
language:
Common Lisp (sbcl 1.4.16)
created:
325 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!