; Auto-generated. Do not edit!


(in-package std_msgs-msg)


;//! \htmlinclude ColorRGBA.msg.html

(defclass <ColorRGBA> (ros-message)
  ((r
    :reader r-val
    :initarg :r
    :type float
    :initform 0.0)
   (g
    :reader g-val
    :initarg :g
    :type float
    :initform 0.0)
   (b
    :reader b-val
    :initarg :b
    :type float
    :initform 0.0)
   (a
    :reader a-val
    :initarg :a
    :type float
    :initform 0.0))
)
(defmethod serialize ((msg <ColorRGBA>) ostream)
  "Serializes a message object of type '<ColorRGBA>"
  (let ((bits (roslisp-utils:encode-single-float-bits (slot-value msg 'r))))
    (write-byte (ldb (byte 8 0) bits) ostream)
    (write-byte (ldb (byte 8 8) bits) ostream)
    (write-byte (ldb (byte 8 16) bits) ostream)
    (write-byte (ldb (byte 8 24) bits) ostream))
  (let ((bits (roslisp-utils:encode-single-float-bits (slot-value msg 'g))))
    (write-byte (ldb (byte 8 0) bits) ostream)
    (write-byte (ldb (byte 8 8) bits) ostream)
    (write-byte (ldb (byte 8 16) bits) ostream)
    (write-byte (ldb (byte 8 24) bits) ostream))
  (let ((bits (roslisp-utils:encode-single-float-bits (slot-value msg 'b))))
    (write-byte (ldb (byte 8 0) bits) ostream)
    (write-byte (ldb (byte 8 8) bits) ostream)
    (write-byte (ldb (byte 8 16) bits) ostream)
    (write-byte (ldb (byte 8 24) bits) ostream))
  (let ((bits (roslisp-utils:encode-single-float-bits (slot-value msg 'a))))
    (write-byte (ldb (byte 8 0) bits) ostream)
    (write-byte (ldb (byte 8 8) bits) ostream)
    (write-byte (ldb (byte 8 16) bits) ostream)
    (write-byte (ldb (byte 8 24) bits) ostream))
)
(defmethod deserialize ((msg <ColorRGBA>) istream)
  "Deserializes a message object of type '<ColorRGBA>"
  (let ((bits 0))
    (setf (ldb (byte 8 0) bits) (read-byte istream))
    (setf (ldb (byte 8 8) bits) (read-byte istream))
    (setf (ldb (byte 8 16) bits) (read-byte istream))
    (setf (ldb (byte 8 24) bits) (read-byte istream))
    (setf (slot-value msg 'r) (roslisp-utils:decode-single-float-bits bits)))
  (let ((bits 0))
    (setf (ldb (byte 8 0) bits) (read-byte istream))
    (setf (ldb (byte 8 8) bits) (read-byte istream))
    (setf (ldb (byte 8 16) bits) (read-byte istream))
    (setf (ldb (byte 8 24) bits) (read-byte istream))
    (setf (slot-value msg 'g) (roslisp-utils:decode-single-float-bits bits)))
  (let ((bits 0))
    (setf (ldb (byte 8 0) bits) (read-byte istream))
    (setf (ldb (byte 8 8) bits) (read-byte istream))
    (setf (ldb (byte 8 16) bits) (read-byte istream))
    (setf (ldb (byte 8 24) bits) (read-byte istream))
    (setf (slot-value msg 'b) (roslisp-utils:decode-single-float-bits bits)))
  (let ((bits 0))
    (setf (ldb (byte 8 0) bits) (read-byte istream))
    (setf (ldb (byte 8 8) bits) (read-byte istream))
    (setf (ldb (byte 8 16) bits) (read-byte istream))
    (setf (ldb (byte 8 24) bits) (read-byte istream))
    (setf (slot-value msg 'a) (roslisp-utils:decode-single-float-bits bits)))
  msg
)
(defmethod ros-datatype ((msg (eql '<ColorRGBA>)))
  "Returns string type for a message object of type '<ColorRGBA>"
  "std_msgs/ColorRGBA")
(defmethod md5sum ((type (eql '<ColorRGBA>)))
  "Returns md5sum for a message object of type '<ColorRGBA>"
  "a29a96539573343b1310c73607334b00")
(defmethod message-definition ((type (eql '<ColorRGBA>)))
  "Returns full string definition for message of type '<ColorRGBA>"
  (format nil "float32 r~%float32 g~%float32 b~%float32 a~%~%~%"))
(defmethod serialization-length ((msg <ColorRGBA>))
  (+ 0
     4
     4
     4
     4
))
(defmethod ros-message-to-list ((msg <ColorRGBA>))
  "Converts a ROS message object to a list"
  (list '<ColorRGBA>
    (cons ':r (r-val msg))
    (cons ':g (g-val msg))
    (cons ':b (b-val msg))
    (cons ':a (a-val msg))
))
