view skin/compose.rkt @ 9:8c7e910cb328

Fullscreen mode.
author Mikhail Kryshen <mikhail@kryshen.net>
date Tue, 29 Mar 2016 22:15:05 +0300
parents 27280b550d56
children
line wrap: on
line source

#lang racket
(require 2htdp/image)
(require lang/posn)

(define background (bitmap/file "background.png"))
(define tile (bitmap/file "tile.png"))
(define snake (bitmap/file "snake.png"))
(define snake-mask (bitmap/file "snake_mask.png"))

(define s (image-width tile))

(define head (crop 0 0 s s snake))
(define head-mask (crop 0 0 s s snake-mask))

(define body (crop 0 s s s snake))
(define body-mask (crop 0 s s s snake-mask))

(define corner (crop 0 (* s 2) s s snake))
(define corner-mask (crop 0 (* s 2) s s snake-mask))

(define (orientations pict)
  (beside/align "top"
                pict
                (rotate -90 pict)
                (rotate 180 pict)
                (rotate 90 pict)))

(save-image
 (above/align "left"
              background
              (beside tile
                      (orientations head)
                      (orientations body)
                      (orientations corner)
                      (orientations head-mask)
                      (orientations body-mask)
                      (orientations corner-mask)))
 "skin.png")