Вопрос-Ответ (для новичков BlitzMax)

Не совсем понятен вопрос... а как тебе еще двигать если не по кругу ?
Вектора спасут оца русской демократии

[Nex]

Сообщение от Diablo1909

Не совсем понятен вопрос... а как тебе еще двигать если не по кругу ?
Вектора спасут оца русской демократии

Не, я не хочу быть отцом ру.демократии.
Надо прицепить партиклы к двигателю корабля. Двигатели находятся по бокам то есть просто по кругу не прокатит, надо как то еще и смещение по x/y высчитывать, но не выходит.
Хотя один человек с ГД.ру подсказал мне решение, но там как то много строк вышло хотя мне казалось что там все просто будет.

[FireOwl]

Это не "И", это решение.
Твой вопрос непонятен.
Два варианта:
1) Корабль летает по кругу. Я нарисовал этот случай.
Вроде:

x,y        // координаты центра его круговой траектории
dx = ...  // сдвиг двигателя относительно центра корабля
r = ...    // радиус его траектории
for(a=0;a<x;a+=0.1){
   ax = cos(a)*r; ay = sin(a)*r;
   mx = cos(a+PI/2)*dx; my = sin(a+PI/2)*dx;
   ship.draw(x+ax, y+ay)
   particle.add(x+mx+ax ,y+my+ay)
} 


2) Корабль летает сам по себе, направляемый вектором перемещения.
Тогда все вообще элементарно.

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

[Animan2010]

У меня вопрос:
Когда поворачиваешь объект только по горизонтали или по вертикали, всё норм.
Но когда повернёшь объект только по горизонтали и лишь потом по вертикали (ну или наоборот), второй поворот будет происходить немного в другую сторону от ожидаемого, ведь ось чуток сместилась.
Как сделать так, чтобы объект поворачивался в нужную сторону вне зависимости от того, куда он уже повёрнут?

в 2D-графике нет поворотов по горизонтали\вертикали. здесь только одна ось.

[Nex]

2) Корабль летает сам по себе, направляемый вектором перемещения.
Тогда все вообще элементарно.

Типа так только он (корабль) за мышкой летает. Не могу я в этом разобраться все таки.

[Жека]

Nex, вроде как FireOwl и Diablo1909 норм написали. Я своими словами допишу. У тебя есть корабль, у корабля есть центр, относительно которого он вращается при повороте. Тебе нужно определить dx dy смещения от центра вращения корабля до двигателей в неповёрнутом положении корабля. Зная их, сможешь найти угол наклона гипотенузы, эта гипотенуза и есть радиус вращения, её тоже найдёшь через дх ду. Получишь набор начальных углов и радиусов - от центра вращения корабля до двигателей. Далее при вращении корабля на такой же угол изменяешь значения начальных углов двигателей. Через углы и радиусы находишь смещения дх и ду - это локальные координаты двигателей относительно центра корабля. Потом при отрисовке прибавляешь к ним координаты центра корабля и получаешь глобальные обычные координаты рисования.

[Жека]

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

[Nex]

Как убрать у окна обводку и кнопки? И можно ли как нибудь добавить иконку в трей?

Как то вот так хочу сделать:

[Nex]

Неужели никто не знает?

[SBJoker]

Это вопрос по БМаксу или по WinGUI?

[Nex]

Не знаю. Я еще не разобрался. Думал сами поймете и скажете куда смотреть..

[Randomize]

1) Припашем виндовые WinApi ф-ции

Extern "Win32"
    Function SetWindowRgn(hWnd, hRgn, bRedraw)
    Function CreateRectRgn(nLeftRect, nTopRect, nRightRect, nBottomRect)
    Function CombineRgn(hrgnDest, hrgnSrc1, hrgnSrc2, fnCombineMode)
End Extern 


2) Эта фция принимает на вход
hWnd - хендл окна
Skin - пиксельная карта

Function SkinWindowII(hWnd:Int , Skin:TPixmap)
    Const NOTHING=-1
    Local RectRgn = CreateRectRgn(0, 0, 0, 0)
    Local X% , Y% , StartX% , argb:Long
    
    For Y=0 Until Skin.Height
        For X=0 Until Skin.Width
        
            argb = ReadPixel(skin, X, Y)         
            If (argb <> NOTHING)
                If StartX = -1
                    StartX = X
                EndIf
            Else
                If StartX > -1 
                    Local MaskLine
                    MaskLine = CreateRectRgn( StartX , Y , X , Y+1 )
                    CombineRgn ( RectRgn , RectRgn, MaskLine , 2 )
                    DeleteObject MaskLine
                    StartX = -1
                EndIf
            EndIf
        Next
        If StartX > -1 
            Local MaskLine
            MaskLine = CreateRectRgn( StartX , Y, X , Y+1 )
            CombineRgn ( RectRgn , RectRgn , MaskLine, 2 )
            DeleteObject MaskLine
            StartX = -1
        EndIf
    Next
    SetWindowRgn ( hWnd , RectRgn , True)
End Function 


Думаю хендл окна ты получить сможешь сам.

[PackegerX]

почему когда я компилирую проект второй раз в консоли пишется:

G:/BlitzMax/bin/ld.exe: cannot open output file F:/Dropbox/Magnavem/BlitzMax/1.2_pixelmap/New file.exe: Permission denied

отключил дропбокс, антивируса нет, UAC отключен (в нижнем положении).
Если удалять ехешник, то он снова появляется. Иногда пишет, что заблокировано процессом "System". Жду около минуты и снова могу компилировать нормально. Что делать пасаны?