#lang racket/gui

;;;
(define elemento%
  (class color%
    (init-field
     (resistencia_empuje 0)
     )
    (define/public get-rgb
      (lambda ()
        (let ((r (send this red))
              (g (send this green))
              (b (send this blue))
              (o (send this alpha))
              )
          (list r g b o)
          )
        ))
    (define/public get-color
      (lambda ()
        this ))
    (define/public set-resistencia
      (lambda (v)
        (set! resistencia_empuje v)
        ))
    (define/public get-resistencia
      (lambda ()
        resistencia_empuje ))
    (super-new)
    ))
;;;;;;;;;;
(define blanco
  ;     resistencia_empuje R   G   B   O
  (make-object elemento% 0 255 255 255 1.0))
(define rojo
  (make-object elemento% 5 255 0 0 1.0))
(define verde
  (make-object elemento% 2 0 255 0 1.0))
(define azul
  (make-object elemento% 7 0 0 255 1.0))
(define negro
  (make-object elemento% 10 0 0 0 1.0))
;;;;;;;;;;;;;;;;;;;;;

(provide blanco rojo verde azul negro)