COMMON LISP JP > Archives > 2013/11/07

2013/11/07 11:00:18 UTCkai
#
repl上ではなく、jsclのbootという関数でコンパイルしてみると教えていただいたコードで動きました。ありがとうございました。
#
(defvar canvas (#j:document:getElementById "canvassample"))

(defvar ctx ((oget canvas "getContext") "2d"))

((oget ctx "beginPath"))
((oget ctx "moveTo") 20 20)
((oget ctx "lineTo") 120 20)
((oget ctx "lineTo") 120 120)
((oget ctx "lineTo") 20 120)
((oget ctx "closePath"))
((oget ctx "stroke"))