TASM Нарисовать грузовичок

[ChestIotVaga]

Здравствуйте. Нужно написать программу на tasm, которая нарисует грузовик не большой. Фото прикладываю к теме. Помогите, пожалуйста https://programmersforum.ru/attachme...1&d=1681065834 не нашлось более лучшего рисунка

[ChestIotVaga]

вот что мне удалось написать квадрат с пикселем помогите

CSeg segment byte public 'CODE'
assume cs:CSeg

PIXEL_COLOR equ 12

org 100h

_start:
mov ax,13h
int 10h

push 0a000h
pop ds

mov ax,(200 - 12)/2
mov di,320
mul di
add ax,(320 - 12)/2
xchg ax,di

mov cx,12 ; установить размер квадрата в 12x12
PutSquare:
push cx
mov cx,12 ; установить размер строки в 12
PutRow:
mov byte ptr ds:[di],PIXEL_COLOR
inc di
loop PutRow
add di,308 ; перейти на следующую строку (320 - 12) + 2 = 308
pop cx
loop PutSquare

xor ax,ax
int 16h

mov ax,3
int 10h

mov ah,4ch
int 21h

CSeg ends
end _start

[macomics]

Попробуйте вот это. Должно рисовать прямоугольники произвольной формы. С кругами чуть сложнее. Там надо будет вычислить из прямоугольной области радиусы и центр. Потом в циклах, похожих на те что в процедуре прямоугольника, надо добавить проверку: "(x` - c.x)^2 / r.x^2 + (y` - c.y)^2 / r.y^2 <= 1" - тут понадобится FPU, поэтому пока не привожу. Если вам подойдёт с FPU, тогда напишу.

SetPoint: ; ax = x; dx = y; bl = color
	push	dx
	push	ds
	push	di
	cmp	ax, 0
	jl	out_of_range
	mov	di, 320
	cmp	ax, di
	jge	out_of_range
	cmp	dx, 0
	jl	out_of_range
	cmp	dx, 200
	jge	out_of_range
	xchg	ax, di
	mul	dx
	mov	dx, 0xA000
	add	di, ax
	mov	ds, dx
	mov	[di], bl
out_of_range:
	pop	di
	pop	ds
	pop	dx
	ret

DrawRectangle: ; ax = left; cx = top; dx = right; di = bottom; bl = fillColor; bh = borderColor
	push	ax
	push	cx
	push	dx
	push	di
	cmp	ax, dx
	je	DrawRectangleEmpty
	jg	DrawRectangleGoodX
	xchg	ax, dx
DrawRectangleGoodX:
	cmp	di, cx
	je	DrawRectangleEmpty
	jg	DrawRectangleGoodY
	xchg	cx, di
DrawRectangleGoodY:
	sub	di, cx
	xchg	dx, di
	xchg	dx, cx
	xchg	bl, bh
	push	ax
DrawRectangleTop:
	call	SetPoint
	inc	ax
	cmp	ax, di
	jle	DrawRectangleTop
	pop	ax
	dec	cx
	jz	DrawRectangleEmpty
	dec	cx
	jz	DrawRectangleBottom
	xchg	bl, bh
DrawRectangleLoopY:
	push	ax
	xchg	bl, bh
	call	SetPoint
	xchg	bl, bh
	jmp	DrawRectangleLoopXStart
DrawRectangleLoopX:
	call	SetPoint
DrawRectangleLoopXStart:
	inc	ax
	cmp	ax, di
	jl	DrawRectangleLoopX
	pop	ax
	inc	dx
	loop	DrawRectangleLoopY
	xchg	bl, bh
DrawRectangleBottom:
	call	SetPixel
	inc	ax
	cmp	ax, di
	jle	DrawRectangleBottom
	xchg	bl, bh
DrawRectangleEmpty:
	pop	di
	pop	dx
	pop	cx
	pop	ax
	retn