Permalink
Browse files

Set filename on com-load, half-fix origin in GIF export.

  • Loading branch information...
1 parent bba97d8 commit 614df6826b7f5a58bcb43e50784ca7c024dcc810 @ahefner committed Feb 1, 2010
Showing with 5 additions and 5 deletions.
  1. +4 −4 mcpixel.lisp
  2. +1 −1 turtle.anim
View
@@ -747,7 +747,8 @@
(handler-case
(progn
(apply-state-form *application-frame* (file filename))
- (setf (fr (find-editor)) (current-frame *application-frame*))
+ (setf (fr (find-editor)) (current-frame *application-frame*)
+ (filename *application-frame*) filename)
(redisplay-animation)
(redisplay-frames-list)
(repaint-editor)
@@ -791,10 +792,9 @@
(skippy:make-image :width (frame-width frame)
:height (frame-height frame)
:data-stream data-stream
- :left-position (+ x0 (frame-ox frame))
- :top-position (+ y0 (frame-oy frame))
+ :left-position (- width (frame-ox frame) (- x0))
+ :top-position (- height (frame-oy frame) (- y0))
:image-data (matrix-to-ub8-vector (frame-pattern frame))
- ;; Hack. Rates aren't coming out like I expect when I view the image in Firefox.
:delay-time (max 2 (round (* time (/ 100 (animation-rate *application-frame*)))))
:disposal-method :restore-background
:transparency-index 0)
View
@@ -1304,5 +1304,5 @@
:SEQ ((9 #1#) (9 #2#) (6 #3#) (2 #4#) (1 #5#) (12 #6#) (1 #7#)
(1 #8#) (1 #9#) (1 #10#) (1 #11#) (2 #12#) (1 #13#) (1 #15#)
(1 #14#) (1 #16#) (1 #17#) (1 #18#) (20 #19#)))))
- (MCPIXEL::ANIMATION-RATE 15) (MCPIXEL::CURRENT-COLOR 8)
+ (MCPIXEL::ANIMATION-RATE 20) (MCPIXEL::CURRENT-COLOR 8)
(MCPIXEL::CURRENT-ANIM #20#) (MCPIXEL::CURRENT-FRAME #19#))

0 comments on commit 614df68

Please sign in to comment.