Halloween-Hires_2 2021

; ***************************************************************
; HALLOWEEN-HIRES 2021 - FOR C64 - V 1.1 (OCT 2021)
; XC=BASIC CODE BY FELICE NARDELLA (KIMONO)
; GRAPHICS BY FELICE NARDELLA (KIMONO)
; SID: "GET WITCHY" BY ESTEBAN PALLADINO (UCTUMI)
; ***************************************************************

GOTO START

ORIGIN $1000
INCBIN "GET_WITCHY_1.SID"
include "xcb-ext-hires.bas"

PROC START_MUSIC
  ASM "  SEI"
  DOKE $314, @IRQ_ROUTINE
  POKE $D011, $1B
  POKE $D012, $00
  POKE $DC0D, $7F
  POKE $DD0D, $7F
  ASM "
  BIT $DC0D
  BIT $DD0D"
  POKE $D01A, $01
  POKE $D019, $01
  ASM "
    LDA #$00
    JSR $1000
    CLI"

  RETURN

  IRQ_ROUTINE:
    ASM "
    LSR $D019
    JSR $1003
    JMP $EA31"
ENDPROC

START:
	PRINT "{CLR}"
	POKE $D020,0
	POKE $328,239
	POKE $318,193
	CALL START_MUSIC

; hires on
hi_bitmapon
hi_setcolor 0, 8
hi_clear

; coordinate centro
x0=160:y0=100:x2=60:y2=0

; zucca
for x=x2 to x0
	y%=0.8*sqr(10000-(x-x0)*(x-x0))
	z=cast(y%)
	hi_line x,y0+z,x2,y0+y2
	hi_line x,y0-z,x2,y0-y2
	hi_line 2*x0-x,y0+z,2*x0-x2,y0+y2
	hi_line 2*x0-x,y0-z,2*x0-x2,y0-y2
	x2=x:y2=z
next x

; occhio sx
hi_line x0-50,y0-20,x0-20,y0-22
hi_line x0-50,y0-20,x0-35,y0-50
hi_line x0-35,y0-50,x0-20,y0-22

; occhio dx
hi_line x0+50,y0-20,x0+20,y0-22
hi_line x0+50,y0-20,x0+35,y0-50
hi_line x0+35,y0-50,x0+20,y0-22

; naso
hi_line x0-12,y0+12,x0+12,y0+12
hi_line x0-12,y0+12,x0,y0-10
hi_line x0+12,y0+12,x0,y0-10

; bocca
for x=100 to 220
	y%=-0.00312*x*x+x+80
	z=cast(y%)
	hi_dot x,z
next x
for x=90 to 230
	y%=-0.00156*x*x+0.5*x+100
	z=cast(y%)
	hi_dot x,z
next x
hi_line x0-70,y0+33,x0-60,y0+49
hi_line x0+70,y0+33,x0+60,y0+49

; dente sx
hi_line x0-28,y0+39,x0-28,y0+47
hi_line x0-28,y0+47,x0-7,y0+47
hi_line x0-7,y0+47,x0-7,y0+39

; dente dx
hi_line x0+28,y0+39,x0+28,y0+47
hi_line x0+28,y0+47,x0+7,y0+47
hi_line x0+7,y0+47,x0+7,y0+39

; dente sotto
hi_line x0-10,y0+59,x0-10,y0+52
hi_line x0-10,y0+52,x0+10,y0+52
hi_line x0+10,y0+59,x0+10,y0+52

; colora occhi
hi_fill x0-30,y0-25
hi_fill x0+30,y0-25

; colora naso
hi_fill x0,y0

; colora bocca
hi_fill x0,y0+50
hi_fill x0-13,y0+58
hi_fill x0+13,y0+58

; linee sulla zucca
for y1=y0-77 to y0+77
	x1%=0.008*(y1-5)*(y1-195)
	z=cast(x1%)
	hi_dot x0+z,y1
	hi_dot x0-z,y1
next y1
for y1=y0-78 to y0+78
	x1%=0.004*(y1-5)*(y1-195)
	z=cast(x1%)
	hi_dot x0+z,y1
	hi_dot x0-z,y1
next y1
hi_line x0,y0-78,x0,y0+40
hi_line x0,y0+60,x0,y0+78

; h
hi_line x0-150,y0+85,x0-150,y0+95
hi_line x0-150,y0+90,x0-144,y0+90
hi_line x0-144,y0+85,x0-144,y0+95

; a
hi_line x0-142,y0+85,x0-142,y0+95
hi_line x0-142,y0+85,x0-136,y0+85
hi_line x0-142,y0+90,x0-136,y0+90
hi_line x0-136,y0+85,x0-136,y0+95

;l
hi_line x0-134,y0+85,x0-134,y0+95
hi_line x0-134,y0+95,x0-128,y0+95

;l
hi_line x0-126,y0+85,x0-126,y0+95
hi_line x0-126,y0+95,x0-120,y0+95

;o
hi_line x0-118,y0+85,x0-118,y0+95
hi_line x0-118,y0+85,x0-112,y0+85
hi_line x0-118,y0+95,x0-112,y0+95
hi_line x0-112,y0+85,x0-112,y0+95

;w
hi_line x0-110,y0+85,x0-110,y0+95
hi_line x0-110,y0+95,x0-107,y0+90
hi_line x0-107,y0+90,x0-104,y0+95
hi_line x0-104,y0+85,x0-104,y0+95

;e
hi_line x0-102,y0+85,x0-102,y0+95
hi_line x0-102,y0+90,x0-98,y0+90
hi_line x0-102,y0+95,x0-96,y0+95
hi_line x0-102,y0+85,x0-96,y0+85

;e
hi_line x0-94,y0+85,x0-94,y0+95
hi_line x0-94,y0+90,x0-90,y0+90
hi_line x0-94,y0+95,x0-88,y0+95
hi_line x0-94,y0+85,x0-88,y0+85

;n
hi_line x0-86,y0+85,x0-86,y0+95
hi_line x0-86,y0+85,x0-80,y0+95
hi_line x0-80,y0+85,x0-80,y0+95

;'
hi_line x0-70,y0+85,x0-72,y0+88

;2
hi_line x0-68,y0+87,x0-68,y0+88
hi_line x0-68,y0+87,x0-66,y0+85
hi_line x0-66,y0+85,x0-64,y0+85
hi_line x0-64,y0+85,x0-62,y0+89
hi_line x0-62,y0+89,x0-68,y0+95
hi_line x0-68,y0+95,x0-62,y0+95

;1
hi_line x0-60,y0+86,x0-58,y0+85
hi_line x0-58,y0+85,x0-58,y0+95
hi_line x0-60,y0+95,x0-56,y0+95

; firma f
hi_line x0+130,y0+90,x0+130,y0+96
hi_line x0+130,y0+90,x0+134,y0+90
hi_line x0+130,y0+93,x0+132,y0+93

; firma n
hi_line x0+139,y0+90,x0+139,y0+96
hi_line x0+143,y0+90,x0+143,y0+96
hi_line x0+139,y0+90,x0+143,y0+96

repeat : until inkey!() <> 0
hi_bitmapoff