PixDraw

Синтаксис

Sub PixDraw(ByVal x As Long,ByVal y As Long,ByVal Color As Long)

Описание

Используется для рисования точки

Параметры

x - координата X точки

y - координата Y точки

Color - цвет точки

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Var hwnd=OpenWindow("",100,100,300,300)
UpdateinfoXserver()
Dim a As Integer
WindowStartDraw(hwnd,0,100,300,1) 'начинаем рисование
BoxDraw(0,0,300,1,&hf0f0f0)
For a=1 To 300 Step 3
  PixDraw(a,0,255) ' рисуем линию из точек
Next
StopDraw ' заканчиваем рисование
Do : Loop until WaitEvent= EventClose

Результат

Created with the Personal Edition of HelpNDoc: Full featured multi-format Help generator