Using color in Draw string

[Pete]

Did someone say DRAW, varmints!

Code: (Select All)

WWidth = 1120: WHeight = 820: Mode = 32: Size = 24

Screen _NewImage(WWidth, WHeight, Mode)

SetFont: f& = _LoadFont("C:\WINDOWS\fonts\courbd.ttf", Size, "monospace"): _Font f&

lhs = (_DesktopWidth - WWidth) / 2

_ScreenMove lhs, 86 ' centre display on screen

CPL = WWidth / _PrintWidth("X")

Dim As _Unsigned Long red, green, blue 

red = _RGB(102, 0, 0, 255)

green = _RGB(0, 102, 0, 255)

blue = _RGB(0, 0, 102, 255)

Print "r100 c" + Str$(red) + " d100 c" + Str$(green) + " l100 c" + Str$(blue) + " u100"

PSet (500, 200): Draw "r100 c" + Str$(red) + " d100 c" + Str$(green) + " l100 c" + Str$(blue) + " u100"

Sleep

Errr better still...

Code: (Select All)

$Color:32

WWidth = 1120: WHeight = 820: Mode = 32: Size = 24

Screen _NewImage(WWidth, WHeight, Mode)

SetFont: f& = _LoadFont("C:\WINDOWS\fonts\courbd.ttf", Size, "monospace"): _Font f&

lhs = (_DesktopWidth - WWidth) / 2

_ScreenMove lhs, 86 ' centre display on screen

CPL = WWidth / _PrintWidth("X")

Print "r100 c" + Str$(Red) + " d100 c" + Str$(Green) + " l100 c" + Str$(Blue) + " u100"

PSet (500, 200): Draw "r100 c" + Str$(Red) + " d100 c" + Str$(Green) + " l100 c" + Str$(Blue) + " u100"

Sleep

Pete