Система координат

[Kiryusha]

Вобщем труба....

Есть PictureBox, есть в памяти в массиве точки я рисую многоугольники, но теперь мне надо не меняя значений точек нарисовать то же только повернув систему координат на 90 градусов
pic.Scale не помогает, SetWorldTransform тоже...

Мож я что не так делаю...
Вот код (где-то здесь же вроде на форумах и отрыл у них работает):

Код: Выделить всё


Private Sub Command1_Click()
   
    Dim da As Double: da = 30 * pi / 180
    'матрица преобразования
    Dim XF As XFORM
    XF.eDx = picMap.ScaleWidth / 2
    XF.eDy = picMap.ScaleHeight / 2
    XF.eM11 = Cos(-da)
    XF.eM12 = Sin(-da)
    XF.eM21 = -Sin(-da)
    XF.eM22 = Cos(-da)
    'устанавливаем расширенный графический режим
    SetGraphicsMode picMap.hdc, GM_ADVANCED
    'смещаем и поворачиваем мир на нужную величину
    SetWorldTransform picMap.hdc, XF
    picMap.Cls
    Draw picMap.hdc, POI(), POLYGON(), POLYLINE(), chkRoad = vbChecked
    picMap.Refresh
End Sub


И он выводит абсолютно такую же картинку....
Для рисования многоугольников юзаю LineTo

Вроде все, может кто чем поможет?

[tyomitch]

Ну, как минимум GDI+ поможет
А лучше дай свой исходник, а то что дебажить?

[Viper]

SetWorldTransform, что возвращает?
З.Ы. Кстати, она поддерживается только на NT и потомках.

[Kiryusha]

1) Что именно с GDI+ ?

2) Вот это не могу, ибо программа не с открытым кодом, мы ее продавать будем...

3) Как ни странно функция возвращает 1, вроде бы это значит все сработало...

4) Платформа ХР

[Viper]

Аналогичные функции GDI+ типа GdipSetWorldTransform или GdipRotateWorldTransform.

З.Ы. На первый взгляд, твой пример кода должен работать... Возможно проблемы за его пределами

[tyomitch]

2) ну тогда сделай небольшой тестовый пример, в котором проявлялась бы та же проблема. Либо жди телепатов.

[Kiryusha]

tyomitch, уговорил

[Viper]

Судебно-медицинское вскрытие показало, что константа pi у автора не определена!!!!

З.Ы. Кстати, прицепленый пример вообще ничего не рисует, ни в повернутом виде, ни в каком либо другом.

[Хакер]

Вы что? Повернуть на 90 градусов - поменять X и Y местами. и где надо поставить минус (зависит от направления поворота и точки, которую считать за 0 градусов.

[Viper]

ему надо не меняя значений точек... SetWorldTransform тут прще всего применить, чем по всему массиву менять X на Y

[Kiryusha]

ему надо не меняя значений точек... SetWorldTransform тут прще всего применить, чем по всему массиву менять X на Y

и верятно придется реализовывать динамическое вращение изображения...

Судебно-медицинское вскрытие показало, что константа pi у автора не определена!!!!

упс , но с ее инициализацией ничего не изменилось

З.Ы. Кстати, прицепленый пример вообще ничего не рисует, ни в повернутом виде, ни в каком либо другом.

А ты файл в папке Maps открываешь?

[tyomitch]

Вот в таком виде работает. (Поскольку время позднее, множить матрицы на бумажке было влом.)

Код: Выделить всё

Private Sub Command1_Click()
    picMap.Cls
    'óñòàíàâëèâàåì ðàñøèðåííûé ãðàôè÷åñêèé ðåæèì
    SetGraphicsMode picMap.hDC, GM_ADVANCED
   
    da = da + 10 * pi / 180
    'ìàòðèöà ïðåîáðàçîâàíèÿ
    Dim XF As XFORM
    With XF
    'ñìåùàåì è ïîâîðà÷èâàåì ìèð íà íóæíóþ âåëè÷èíó
        .eDx = picMap.ScaleWidth / 2
        .eDy = picMap.ScaleHeight / 2
        .eM11 = 1
        .eM22 = 1
    Debug.Print ModifyWorldTransform(picMap.hDC, XF, MWT_LEFTMULTIPLY)
        .eDx = 0
        .eDy = 0
        .eM11 = Cos(-da)
        .eM12 = Sin(-da)
        .eM21 = -Sin(-da)
        .eM22 = Cos(-da)
    Debug.Print ModifyWorldTransform(picMap.hDC, XF, MWT_LEFTMULTIPLY)
        .eDx = -picMap.ScaleWidth / 2
        .eDy = -picMap.ScaleHeight / 2
        .eM11 = 1
        .eM12 = 0
        .eM22 = 1
        .eM21 = 0
    Debug.Print ModifyWorldTransform(picMap.hDC, XF, MWT_LEFTMULTIPLY)
    End With
    Draw picMap.hDC, POI(), Polygon(), Polyline(), chkRoad = vbChecked
    picMap.Refresh
End Sub


[Kiryusha]

Странно, но у меня после нажатия кнопки ничего не меняется...

В дебаге все 3 функции возвращают 0

[Kiryusha]

А нет, сори, все круто! Работает спасибо всем за соучастие!

[Viper]

Вдогонку. Файл из Maps открывал, но он не заполнял массив полигонов. Ну да ладно. Если заработало, то хорошо, но на всякий случай, если нужно будет динамическое вращение, то где-то на форуме есть мой пример. Все работало и довольно шустро.

[tyomitch]

...где-то на форуме даже мой пример лежит, который без СК и совместим с Win98

[Kiryusha]

Теперь в другом проблема, ск то я повернул, но теперь и текст повернулся... Как выводить текст, чтобы он был горизонтально?

[Viper]

Печатай текст ДО поворота СК. И/или восстаанавливай ориентацию СК.

[Kiryusha]

Нет, так не выйдет, потому что ск надо менять до вывода текста иначе текст выведется не там, а если поворачивать после, то текст то будет горизонтально, но опять не там где нужно...

Вот если бы выводить текст в отдельные области с собственной ск, так вообще можно?

[tyomitch]

Вот если бы выводить текст в отдельные области с собственной ск, так вообще можно?

Можно сам текст повернуть при выводе, против угла поворота СК.
Но чесслово, лучше бы ты взял GDI+, там со всем этим куда проще

[Kiryusha]

Можно сам текст повернуть при выводе, против угла поворота СК.

Как?

[tyomitch]

См. lfEscapement в структуре LOGFONT

[Kiryusha]

Грац