Операторы перемещения рисунка
Рисунок перемещается по экрану в четырёх направлениях: вправо, влево, вверх и вниз. Для перемещения по диагонали используется составное движение. В WordBasic есть две сходные по действию группы операторов, которые помогают переместить объект.
Первая группа. Оператор DrawNudgeDownPixel – перемещает выбранный рисованный объект или объекты на одну точку вниз. Аналогично работают операторы DrawNudgeUpPixel, DrawNudgeRightPixel и DrawNudgeLeftPixel, только перемещают объект они соответственно вверх, вправо и влево.
Вторая группа. Это операторы DrawNudgeDown, DrawNudgeUp, DrawNudgeRight и DrawNudgeLeft, перемещающие выбранный объект на 10 точек вниз или, если в диалоговом окне Snap To Grid Moves (меню Drawing) выбрано Snap To Grid, перемещает выбранные объекты вниз на измерение, указанное в окне Vertical Spacing. Аналогично работают операторы только перемещают объект они соответственно вверх, вправо и влево.
Пример.
Нарисуем круг и переместим его в середину страницы. Для переноса рисунка послужит подпрограмма moveXY.
Sub MAIN
DrawEllipse
moveXY 115, 120
End Sub
Sub moveXY(X, Y)
i = Int(X / 10)
i2 = X - i
j = Int(Y / 10)
j2 = Y - j
For kx = 1 To i
DrawNudgeRight
Next kx
For mx = 1 To i2
DrawNudgeRightPixel
Next mx
For ky = 1 To j
DrawNudgeDown
Next ky
For my = 1 To j2
DrawNudgeDownPixel
Next my
End Sub
