74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
|
(gl:Vertex2f 1 0)
(gl:End)
)
(define data
(map (lambda (inl)
(map string->number (string-split inl)))
(with-input-from-file "data.scm"
read-lines)))
(print "data: " data)
(use trace)
;; (add-object draw-cube animate: spin select: (lambda _ (print "oink!")))
|
|
|
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
|
(gl:Vertex2f 1 0)
(gl:End)
)
(define data
(map (lambda (inl)
(map string->number (string-split inl)))
(with-input-from-file "data.txt"
read-lines)))
(print "data: " data)
(use trace)
;; (add-object draw-cube animate: spin select: (lambda _ (print "oink!")))
|