Picture Language

## System GUI stuff, just copy/paste
#lang racket
(require racket/gui/base)
; GUI Perdoling
(define frame
  (instantiate
    frame%
    ("Drawing Example")
    (width 300)  ; замените на нужное
    (height 300)))
(define canvas (instantiate canvas% (frame)))
(define dc (send canvas get-dc))
(define red-pen (instantiate pen% ("RED" 1 'solid)))  ;замените RED на нужный цвет
(send frame show #t)
(sleep/yield 1)
(send dc set-pen red-pen)
##Из-за мощной поддержки Wishful Thinking, все что нам нужно чтобы связать код SICP и GUI ракеты, это процедура draw-line (у меня draw-a-line)
(define (draw-a-line p1 p2)
  (send dc draw-line (xcor-vect p1) (ycor-vect p1)
               (xcor-vect p2) (ycor-vect p2)))
Тестовый фрейм:
(define fr1
  (make-frame
    (make-vect 0 0)
    (make-vect 300 0)
    (make-vect 0 300))
Все, теперь можете ебаться (играться) с сегментами и не париться об этой хуйне