Color.st
changeset 2087 619e0288e4e1
parent 2083 117f2e5ca733
child 2096 f3f0d358239f
equal deleted inserted replaced
2086:069a179b1849 2087:619e0288e4e1
  1262 !
  1262 !
  1263 
  1263 
  1264 cyan
  1264 cyan
  1265     "return the cyan color - ST-80 compatibility"
  1265     "return the cyan color - ST-80 compatibility"
  1266 
  1266 
  1267     ^ self redPercent:0 greenPercent:100 bluePercent:100
  1267     ^ self cyan:100
  1268 
  1268 
  1269     "
  1269     "
  1270      Color cyan inspect
  1270      Color cyan inspect
  1271     "
  1271     "
  1272 
  1272 
  1273     "Modified: 23.4.1996 / 13:16:07 / cg"
  1273     "Modified: 23.4.1996 / 13:16:07 / cg"
       
  1274 !
       
  1275 
       
  1276 cyan: cyan
       
  1277     "return a cyan color;
       
  1278      the argument cyan is interpreted as percent (0..100)"
       
  1279 
       
  1280      ^ self cyan:100 magenta:100-cyan yellow:100-cyan
       
  1281                                      
  1274 !
  1282 !
  1275 
  1283 
  1276 darkGray
  1284 darkGray
  1277     "return the dark grey color (English version ;-)"
  1285     "return the dark grey color (English version ;-)"
  1278 
  1286 
  1410 !
  1418 !
  1411 
  1419 
  1412 magenta
  1420 magenta
  1413     "return the magenta color - ST-80 compatibility"
  1421     "return the magenta color - ST-80 compatibility"
  1414 
  1422 
  1415     ^ self redPercent:100 greenPercent:0 bluePercent:100
  1423     ^ self magenta:100
  1416 
  1424 
  1417     "
  1425     "
  1418      Color magenta inspect
  1426      Color magenta inspect
  1419     "
  1427     "
  1420 
  1428 
  1421     "Modified: 23.4.1996 / 13:23:41 / cg"
  1429     "Modified: 23.4.1996 / 13:23:41 / cg"
       
  1430 !
       
  1431 
       
  1432 magenta: magenta
       
  1433     "return a magenta color;
       
  1434      the argument magenta is interpreted as percent (0..100)"
       
  1435 
       
  1436      ^ self cyan:100-magenta magenta:100 yellow:100-magenta
       
  1437                                      
  1422 !
  1438 !
  1423 
  1439 
  1424 mediumGray
  1440 mediumGray
  1425     "return medium-grey color (US version ;-)"
  1441     "return medium-grey color (US version ;-)"
  1426 
  1442 
  1523 !
  1539 !
  1524 
  1540 
  1525 yellow
  1541 yellow
  1526     "return the yellow color - ST-80 compatibility"
  1542     "return the yellow color - ST-80 compatibility"
  1527 
  1543 
  1528     ^ self redPercent:100 greenPercent:100 bluePercent:0
  1544     ^ self yellow:100
  1529 
  1545 
  1530     "Modified: 23.4.1996 / 13:33:56 / cg"
  1546     "Modified: 23.4.1996 / 13:33:56 / cg"
       
  1547 !
       
  1548 
       
  1549 yellow: yellow
       
  1550     "return a yellow color;
       
  1551      the argument yellow is interpreted as percent (0..100)"
       
  1552 
       
  1553      ^ self cyan:100-yellow magenta:100-yellow yellow:100
       
  1554                                      
  1531 ! !
  1555 ! !
  1532 
  1556 
  1533 !Color class methodsFor:'obsolete'!
  1557 !Color class methodsFor:'obsolete'!
  1534 
  1558 
  1535 nameOrDither:colorName
  1559 nameOrDither:colorName
  4516 ! !
  4540 ! !
  4517 
  4541 
  4518 !Color class methodsFor:'documentation'!
  4542 !Color class methodsFor:'documentation'!
  4519 
  4543 
  4520 version
  4544 version
  4521     ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.113 1998-04-02 08:07:20 cg Exp $'
  4545     ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.114 1998-04-09 18:14:14 tz Exp $'
  4522 ! !
  4546 ! !
  4523 Color initialize!
  4547 Color initialize!