Тема: Asm
Показать сообщение отдельно
Старый 06.05.2023, 13:48   #10
Evgen
Разработчик
 
Аватар для Evgen
 
Регистрация: 12.01.2011
Адрес: Moscow
Сообщений: 419
Написано 68 полезных сообщений
(для 100 пользователей)
Ответ: Asm

Также простой пример по Graphics2D (простая смена цвета фона):
;******************************************************
;*                  Blitz3D on FASM                   *
;******************************************************

format PE GUI 4.0
entry start

include 'win32a.inc'
include 'Blitz3D.inc'

; ------------ константы и переменные -----------------
section '.data' data readable writeable

camera BBCamera 0
light BBLight 0
cone BBModel 0
font BBFont 0

r dd 0
g dd 0
b dd 0

font_name db 'System',0
text db "Simple Text! Простой текст",0

; ------------------------- код ------------------------
section '.code' code readable executable

start:
      invoke bbBeginBlitz3D
      invoke bbGraphics, 640, 480, 32, 3

      invoke bbLoadFont, font_name, 32, BBTrue, BBFalse, BBTrue
      mov [font],eax
      invoke bbSetFont, [font]

main_2dloop:
      invoke bbKeyHit, KEY_ESCAPE
      or eax, eax
      jnz exit_from_main_loop           ; If Esc pressed then exit from app

      invoke bbClsColor, [r], [g], [b]  ; Set color and clear screen
      invoke bbCls
      inc [r]
      add [g],7
      add [b],3

      invoke bbLine, 20, 20, 20, 460
      invoke bbColor, 0, 128, 255
      invoke bbRect, 40, 40, 50, 50, BBTrue
      invoke bbColor, 255, 255, 255
      invoke bbText, 320, 220, text, BBTrue, BBFalse

      invoke bbFlip                     ; Show buffer

      jmp main_2dloop;

exit_from_main_loop:
      invoke bbEndBlitz3D
      invoke ExitProcess,0

section '.idata' import data readable writeable
                 include 'imp.inc'

section '.rsrc' resource data readable
                 include 'res.inc'


Если что возиться с командной строкой в 2023 году необязательно можно использовать утилиту-редактор FASMW которая идет в комплекте с Flat Assembler что-то вроде мини IDE.





_
Миниатюры
Нажмите на изображение для увеличения
Название: FASMW.png
Просмотров: 342
Размер:	11.6 Кб
ID:	23396  

Последний раз редактировалось Evgen, 06.05.2023 в 15:30.
(Offline)
 
Ответить с цитированием