forum.boolean.name - Предложения по модификации PureBASIC'а

forum.boolean.name (http://forum.boolean.name/index.php)

- PureBasic (http://forum.boolean.name/forumdisplay.php?f=90)

- - Предложения по модификации PureBASIC'а (http://forum.boolean.name/showthread.php?t=2413)

Chrono Syndrome

15.01.2007 14:20

Предложения по модификации PureBASIC'а

Постим сюда идеи по улучшению пурика (если таковые имеются

).

Примечание: Первый список находиться здесь: http://www.purebasic.fr/english/viewtopic.php?t=24007, просьба не повторяться.

Chrono Syndrome

15.01.2007 14:21

Re: Предложения по модификации PureBASIC'а

Итак, предложения по либе Movie:

Result = MovieNext(#Movie) ; Выставляет позицию воспроизведения указанного клипа на следующий кадр.
Result = MoviePrevious(#Movie) ; Выставляет позицию воспроизведения указанного клипа на предыдущий кадр.

Chrono Syndrome

15.01.2007 14:21

Re: Предложения по модификации PureBASIC'а

А это в ImagePlugin:

UseGIFImageDecoder() ; Дает возможность загрузки изображений в формате GIF.
UseGIFImageEncoder() ; Дает возможность сохранения изображений в формате GIF.
UseTGAImageEncoder() ; Дает возможность cохранения изображений в формате TGA.
UseTIFFImageEncoder() ; Дает возможность сохранения изображений в формате TIFF.

Maxus

16.01.2007 13:34

Re: Предложения по модификации PureBASIC'а

Цитата:

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

В Пурике, когда открыто несколько файлов и сверху от каждого закладки - то, в правой кнопке мыши сверху сначала должно быть "Закрыть", а не "Вырезать".
Очевидный факт. Надо строки поменять и сделать как в UltraEdit

Предложения по модификации самого языка, а не его редактора.
Для твоих целей есть альтернативные ИДЕ.
Например вот: http://www.purebasic.fr/english/viewtopic.php?t=19335

Chrono Syndrome

31.07.2007 20:03

Re: Предложения по модификации PureBASIC'а

Это в Networking:

IP = GetIPbyDomainName(DomainName$) ; Возвращает IP адрес заданого доменного имени.
RTT = PingIP(IP$, [TimeOut]) ; Производит пинг заданного IP адреса, и, в случае успеха, возвращает Round Trip Time.

Пётр	01.08.2007 13:08

Re: Предложения по модификации PureBASIC'а

Ещё желательно модифицировать EditorGadget, чтобы не использовать scintilla, а то это такая муть.

Chrono Syndrome

01.08.2007 14:32

Re: Предложения по модификации PureBASIC'а

Цитата:

Сообщение от Пётр

Ещё желательно модифицировать EditorGadget, чтобы не использовать scintilla, а то это такая муть.

В версии 4.10 (вернее, ее бете) уже есть пародия на враппер к Scintill'е.

All_Creater

10.09.2007 14:16

Re: Предложения по модификации PureBASIC'а

Гы. Я им написал(но за свой ломаный английский не ручаюсь :) ), чтобы сделали команду Sprite3dColoring(Color.l). Как кто думает, нужно бывает подкрасить картинку в игре??? Или изменить баланс цветов... Это реализуется и без команды, но без Hardware Acseleration обдумывается средним компом за пру-тройку секунд...

ЗЫ:Chrono Syndrome , спасибо за пурик 4.02:-)

ResX	26.10.2007 22:14

Ping

написано мной, после длительных попыток ;)

Код:

 

Procedure.l PingProc(ip.s, time.l, size.l = 32, tryes.l = 1)

 *buff = AllocateMemory(size)

 For x = 0 To size

  PokeB(*buff + x, Random(255))

 Next

 *reply = AllocateMemory(SizeOf(ICMP_ECHO_REPLY) + 100);

 icmp_handle.l = IcmpCreateFile_()

 ret.l = -1

 For z = 0 To tryes

  If Not icmp_handle = #INVALID_HANDLE_VALUE

  icmp_replyes.l = IcmpSendEcho_(icmp_handle, inet_addr_(ip), *buff, 1, #Null, *reply, SizeOf(ICMP_ECHO_REPLY) + 100, time)

  If Not icmp_replyes = 0

    str.s = "" 

    For x = 0 To 3

    str + Str(PeekC(*reply + x))

    If Not x = 3 : str + "." : EndIf

    Next

    If ip = str

    CopyMemory(*reply, @ar.ICMP_ECHO_REPLY, SizeOf(ICMP_ECHO_REPLY))

    ret = ar\RoundTripTime

    EndIf

  EndIf

  EndIf

  If ret > -1 : Break : EndIf 

 Next

 CloseHandle_(icmp_handle(num))

 FreeMemory(-1)

 ProcedureReturn ret

EndProcedure

пользуюсь, исключительно, версией 4.00
-----------------------------------------
а вообще, - думайте "своей" головой, люди ;)

Platon

27.10.2007 02:23

Re: Предложения по модификации PureBASIC'а

All_Creater
Вот тебе структура спрайта - делай с ним что хочешь :)

Код:

Structure D3DTLVERTEX

    Px.f

    Py.f

    Pz.f

    Rhw.f

    Color.l

    Specular.l

    Tu.f

    Tv.f

EndStructure



Structure SPRITE3D

    Surface.IDIRECTDRAWSURFACE7

    Vertex.D3DTLVERTEX[4]

    Width.w

    Height.w

    Reserved.l

EndStructure



Procedure Sprite3dColoring(*This.SPRITE3D, Color.l)

    For i = 0 To 3

          *This\Vertex[i]\Color = Color

    Next

EndProcedure

All_Creater

09.11.2007 02:02

Re: Предложения по модификации PureBASIC'а

to Cyan: Да, ещё раз спасибо, разобрался(кроме того, делал что хотел: играл с UVкоординатами, пробовал менять почти всё остальное... понравилось:-) )... И зря, по ходу, отправил сообщение.. :) Вот только раскраска-самая голимая вещь из всех: цвет имеет отрицательный номер да ещё и в формате BGR... Жуть... А на что влияет положительный цвет вертекса,я не понял-он просто становится прозрачным... :4to:

Platon

09.11.2007 09:46

Re: Предложения по модификации PureBASIC'а

All_Creater
Что-то ты путаешь, там формат RGB, точнее ARGB, про альфу еще не забывай.

Код:

Procedure ARGB(Red, Green, Blue, Alpha = 255)

  ProcedureReturn Alpha << 24 | Red << 16 | Green << 8 | Blue

EndProcedure

All_Creater

09.11.2007 18:54

Re: Предложения по модификации PureBASIC'а

Нда... Ну тогда ещё раз спасибо!!! ;)

Stimorol

21.02.2008 21:51

Re: Предложения по модификации PureBASIC'а

А кто-нибудь пробовал версию 4.20 Beta?

Часовой пояс GMT +4, время: 07:57.