Что-то подзабыл, как на MSX Basic'е спрайты выводить...

Тема в разделе "WASM.HEAP", создана пользователем CyberManiac, 21 дек 2008.

  1. Clerk

    Clerk Забанен

    Публикаций:
    0
    Регистрация:
    4 янв 2008
    Сообщения:
    6.689
    Адрес:
    РБ, Могилёв
    _basmp_
    Там встроенный инлайн насм. Простой юзер как и скозали не затруднитсо на нём чтолибо написать, в моём понимании это расширение насма :)))
    Особенно мне нравится как он компилит вообще афигеть - делоет с исходника на бейсике сорс на насме, потом насмом его компилит О_о..
     
  2. _basmp_

    _basmp_ New Member

    Публикаций:
    0
    Регистрация:
    10 июл 2005
    Сообщения:
    2.939
    Clerk
    а какую нить не самую (банальную|суперсложную) демку запостит можно?

    ADD
    поглядел. она комковое.

    скачал/посмотрел. Интересно
    Код (Text):
    1. ;
    2. ; ------------------------------------------------------------
    3. ;
    4. ;   PureBasic - 2D Drawing example file
    5. ;
    6. ;    (c) 2005 - Fantaisie Software
    7. ;
    8. ; ------------------------------------------------------------
    9. ;
    10.  
    11. If OpenWindow(0, 100, 200, 300, 200, "2D Drawing Test")
    12.  
    13.   ; Create an offscreen image, with a green circle in it.
    14.   ; It will be displayed later
    15.   ;
    16.   If CreateImage(0, 300, 200)
    17.     If StartDrawing(ImageOutput(0))
    18.       Circle(100,100,50,RGB(0,0,255))  ; a nice blue circle...
    19.  
    20.       Box(150,20,20,20, RGB(0,255,0))  ; and a green box
    21.      
    22.       FrontColor(RGB(255,0,0)) ; Finally, red lines..
    23.       For k=0 To 20
    24.         LineXY(10,10+k*8,200, 0)
    25.       Next
    26.      
    27.       DrawingMode(#PB_2DDrawing_Transparent)
    28.       BackColor(RGB(0,155,155)) ; Change the text back and front colour
    29.       FrontColor(RGB(255,255,255))
    30.       DrawText(10,50,"Hello, this is a test")
    31.  
    32.       StopDrawing()
    33.     EndIf
    34.   EndIf
    35.  
    36.   ; Create a gadget to display our nice image
    37.   ;  
    38.   ImageGadget(0, 0, 0, 0, 0, ImageID(0))
    39.  
    40.   ;
    41.   ; This is the 'event loop'. All the user actions are processed here.
    42.   ; It's very easy to understand: when an action occurs, the EventID
    43.   ; isn't 0 and we just have to see what have happened...
    44.   ;
    45.  
    46.   Repeat
    47.     EventID = WaitWindowEvent()
    48.   Until EventID = #PB_Event_CloseWindow  ; If the user has pressed on the window close button
    49.  
    50. EndIf
    51.  
    52. End   ; All the opened windows are closed automatically by PureBasic
    только не понятно причем тут васик
     
  3. Clerk

    Clerk Забанен

    Публикаций:
    0
    Регистрация:
    4 янв 2008
    Сообщения:
    6.689
    Адрес:
    РБ, Могилёв
    Вот пара примеров.
     
  4. Clerk

    Clerk Забанен

    Публикаций:
    0
    Регистрация:
    4 янв 2008
    Сообщения:
    6.689
    Адрес:
    РБ, Могилёв
    _basmp_
    Всмысле причём к коду или причём к топику ?
    Код на бейсике, в топике выше было сказано:
    Согласен.
    PS: Пожалусто не дописывай посты, не видно ведь что ты дописал не заходя в топик.
     
  5. _basmp_

    _basmp_ New Member

    Публикаций:
    0
    Регистрация:
    10 июл 2005
    Сообщения:
    2.939
    Clerk
    вы ответили, какраз когда я редактировал

    В смысле что это не бейсик даже близко. Только название. И выглядит гораздо приличнее. Может даже оплату погуглю.
     
  6. Clerk

    Clerk Забанен

    Публикаций:
    0
    Регистрация:
    4 янв 2008
    Сообщения:
    6.689
    Адрес:
    РБ, Могилёв
    _basmp_
    Версии 3.40 у меня есть инсталяха, весит < 3М, могу залить. Но это старая версия, новая продвинутая более, тока там сильные ограничения, впринципе на число строк отломить можно, но вот насчёт остального функционала я не уверен что эта версия полноценная.
    [Залил архив: http://openfile.ru/165804/
    Блин забыл, проверьте на вирусы.]
     
  7. _basmp_

    _basmp_ New Member

    Публикаций:
    0
    Регистрация:
    10 июл 2005
    Сообщения:
    2.939
    Clerk
    последняя дема весит 14М, < 3х это чето мало.

    прямо из садка с зиродеями? Страшновато както.
     
  8. Clerk

    Clerk Забанен

    Публикаций:
    0
    Регистрация:
    4 янв 2008
    Сообщения:
    6.689
    Адрес:
    РБ, Могилёв
    _basmp_
    Я именно этой и компилил два последних примера. Насчёт вирусов вроде не должно быть, но эта инсталяха из 3-го лог. диска, там много всякой дряни. Смотри сам вобщем.