Advertisement
Guest User

tipo_cat

a guest
Dec 26th, 2018
153
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Racket 1.71 KB | None | 0 0
  1. #lang racket
  2. (require 2htdp/image)
  3. (require 2htdp/universe) ;у тебя эти две хуйни уже должны быть подключены через среду, а не так явно, как здесь
  4.  
  5. (define tipo_cat (rectangle 20 30 "solid" "black")) ;типо_кот
  6. (define background (empty-scene 300 150)) ;фон
  7.  
  8. (define (FunctionForDraw x) ;определяем функцию для изображения
  9.   (place-image tipo_cat x 75 background)) ;ну здесь должно быть понятно
  10.  
  11. (define (FunctionForTick x) ;определяем функцию для такта
  12.   (+ x 15)) ;увеличиваем координату по иксу (по сути параметр х) каждый такт // по сути увечиваем просто x, эта функция лишь возвращает новое значение главного параметра big-bang, а как мы будем его использовать для изображения не ебёт
  13.  
  14. (big-bang 10 ;стартовая координата типо_кота по иксу
  15.   (to-draw FunctionForDraw) ;вызов нужным образом через функцию to-draw написанной нами функции с нашим именем FunctionForDraw, которая должна возвращать изображение
  16.   (on-tick FunctionForTick 1)) ;вызов нужным образом через функцию on-tick написанной нами функции с нашим именем FunctionForTick, которая должна возвращать новое значение координаты по иксу (в нашем случае) каждую одну секунду
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement