Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #lang racket
- (require 2htdp/image)
- (require 2htdp/universe) ;у тебя эти две хуйни уже должны быть подключены через среду, а не так явно, как здесь
- (define tipo_cat (rectangle 20 30 "solid" "black")) ;типо_кот
- (define background (empty-scene 300 150)) ;фон
- (define (FunctionForDraw x) ;определяем функцию для изображения
- (place-image tipo_cat x 75 background)) ;ну здесь должно быть понятно
- (define (FunctionForTick x) ;определяем функцию для такта
- (+ x 15)) ;увеличиваем координату по иксу (по сути параметр х) каждый такт // по сути увечиваем просто x, эта функция лишь возвращает новое значение главного параметра big-bang, а как мы будем его использовать для изображения не ебёт
- (big-bang 10 ;стартовая координата типо_кота по иксу
- (to-draw FunctionForDraw) ;вызов нужным образом через функцию to-draw написанной нами функции с нашим именем FunctionForDraw, которая должна возвращать изображение
- (on-tick FunctionForTick 1)) ;вызов нужным образом через функцию on-tick написанной нами функции с нашим именем FunctionForTick, которая должна возвращать новое значение координаты по иксу (в нашем случае) каждую одну секунду
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement