How can I make segments list drawing in racket?

Question

It\'s my code.

#lang racket
(require racket/gui/base)
(require racket/draw)



;vector
(define (make-vect x y) (cons x y))
(define (xcor vect) (car vect))
(d