Code

#lang racket

(require "picture.language.scm")
(require "picture.window.scm")

; tests

;((right-split wave 4) unit-frame)
;((up-split wave 4) unit-frame

Image1

Image1