public B6BALLS_RENDER
b6balls_render	proc near
	push	bp
	mov	bp, sp
	push	si
	push	di
	mov	si, offset b6balls
	mov	di, 1
	jmp	short @@more?
; ---------------------------------------------------------------------------

@@loop:
	cmp	[si+b6ball_t.flag], 0
	jz	short @@next
	cmp	[si+b6ball_t.flag], 1
	jnz	short @@no_cloud
	mov	ah, 0Fh
	call	_grcg_setcolor_direct_seg1_raw
	mov	ax, [si+b6ball_t.pos.cur.x]
	sar	ax, 4
	add	ax, PLAYFIELD_X
	push	ax
	mov	ax, [si+b6ball_t.pos.cur.y]
	sar	ax, 4
	add	ax, PLAYFIELD_Y
	push	ax
	mov	ax, [si+b6ball_t.cloud_radius]
	mov	bx, 16
	cwd
	idiv	bx
	push	ax
	call	grcg_circlefill
	jmp	short @@next
; ---------------------------------------------------------------------------

@@no_cloud:
	mov	ax, GRAM_400
	mov	es, ax
	mov	ax, [si+b6ball_t.pos.cur.y]
	sar	ax, 4
	mov	dx, ax
	mov	ax, [si+b6ball_t.pos.cur.x]
	sar	ax, 4
	add	ax, (PLAYFIELD_X - (B6BALL_W / 2))
	or	dx, dx
	jl	short @@next
	call	z_super_roll_put_tiny_32x32_raw pascal, [si+b6ball_t.B6B_patnum_tiny]

@@next:
	inc	di
	add	si, size b6ball_t

@@more?:
	cmp	di, 1 + B6BALL_COUNT
	jl	short @@loop
	call	curvebullets_render
	pop	di
	pop	si
	pop	bp
	retn
b6balls_render	endp