; format to the one used by SuperTux 0.2.x.
;
; Usage:
; levelconverter-0.1.3_0.2.0.scm < oldformat.stl > newformat.stl
;
; format to the one used by SuperTux 0.2.x.
;
; Usage:
; levelconverter-0.1.3_0.2.0.scm < oldformat.stl > newformat.stl
;
(if (not background-tm) (error "No background tilemap given"))
(if (not foreground-tm) (error "No foreground tilemap given"))
(if (not objects) (error "No objects list given"))
(if (not background-tm) (error "No background tilemap given"))
(if (not foreground-tm) (error "No foreground tilemap given"))
(if (not objects) (error "No objects list given"))
; run conversion on stdin, output to stdout
(write (convert-level (read)))
(newline)
; run conversion on stdin, output to stdout
(write (convert-level (read)))
(newline)