Color.st
changeset 7830 fa41edb7876a
parent 7798 8af654223c89
child 7831 460d842964af
equal deleted inserted replaced
7829:12f0d02f567f 7830:fa41edb7876a
  4311     "
  4311     "
  4312 
  4312 
  4313     "Modified: / 26.7.1998 / 12:31:22 / cg"
  4313     "Modified: / 26.7.1998 / 12:31:22 / cg"
  4314 !
  4314 !
  4315 
  4315 
       
  4316 rgbBytes
       
  4317     "return the rgb byteValues as a 3-byte byteArray #[red green blue]"
       
  4318 
       
  4319     |r "{ Class: SmallInteger }"
       
  4320      g "{ Class: SmallInteger }"
       
  4321      b "{ Class: SmallInteger }"|
       
  4322 
       
  4323     r := red * 255 // MaxValue.
       
  4324     g := green * 255 // MaxValue.
       
  4325     b := blue * 255 // MaxValue.
       
  4326     ^ ByteArray with:r with:g with:b
       
  4327 
       
  4328     "
       
  4329      Color red rgbBytes
       
  4330      Color blue rgbBytes
       
  4331      Color green rgbBytes
       
  4332      Color black rgbBytes
       
  4333      Color grey rgbBytes
       
  4334      Color white rgbBytes
       
  4335     "
       
  4336 
       
  4337     "Created: / 03-02-2017 / 11:31:24 / cg"
       
  4338 !
       
  4339 
  4316 rgbValue
  4340 rgbValue
  4317     "return the rgb byteValues packed into a 24bit integer;
  4341     "return the rgb byteValues packed into a 24bit integer;
  4318      The returned value is composed of r<<16 + g<<8 + b."
  4342      The returned value is composed of r<<16 + g<<8 + b."
  4319 
  4343 
  4320     |t "{ Class: SmallInteger }"
  4344     |t "{ Class: SmallInteger }"