API tools faq
paste
felixnardella

Halloween_Hi-Res 2021

felixnardella
Oct 29th, 2021 (edited)
160
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 4.00 KB | None | 0 0
raw download clone embed print report
  1. ; ***************************************************************
  2. ; HALLOWEEN-HIRES 2021 - FOR C64 - V 1.0 (OCT 2021)
  3. ; XC=BASIC CODE BY FELICE NARDELLA (KIMONO)
  4. ; GRAPHICS BY FELICE NARDELLA (KIMONO)
  5. ; SID: "GET WITCHY" BY ESTEBAN PALLADINO (UCTUMI)
  6. ; ***************************************************************
  7.  
  8. GOTO START
  9.  
  10. ORIGIN $1000
  11. INCBIN "GET_WITCHY_1.SID"
  12. include "xcb-ext-hires.bas"
  13.  
  14. PROC START_MUSIC
  15. ASM " SEI"
  16. DOKE $314, @IRQ_ROUTINE
  17. POKE $D011, $1B
  18. POKE $D012, $00
  19. POKE $DC0D, $7F
  20. POKE $D01A, $01
  21. POKE $D019, $01
  22. ASM "
  23. LDA #$00
  24. JSR $1000
  25. CLI"
  26.  
  27. RETURN
  28.  
  29. IRQ_ROUTINE:
  30. ASM "
  31. LDA #$01
  32. STA $D019
  33. JSR $1003
  34. JMP $EA31"
  35. ENDPROC
  36.  
  37. START:
  38. PRINT "{CLR}"
  39. POKE $D020,0
  40. POKE $328,239
  41. POKE $318,193
  42. CALL START_MUSIC
  43.  
  44. ; hires on
  45. hi_bitmapon
  46. hi_setcolor 0, 8
  47. hi_clear
  48.  
  49. ; coordinate centro e raggio
  50. x0=160:y0=100:r=95
  51.  
  52. ; zucca
  53. hi_circle x0,y0,r
  54.  
  55. ; occhio sx
  56. hi_line x0-50,y0-20,x0-20,y0-22
  57. hi_line x0-50,y0-20,x0-35,y0-50
  58. hi_line x0-35,y0-50,x0-20,y0-22
  59.  
  60. ; occhio dx
  61. hi_line x0+50,y0-20,x0+20,y0-22
  62. hi_line x0+50,y0-20,x0+35,y0-50
  63. hi_line x0+35,y0-50,x0+20,y0-22
  64.  
  65. ; naso
  66. hi_line x0-12,y0+12,x0+12,y0+12
  67. hi_line x0-12,y0+12,x0,y0-10
  68. hi_line x0+12,y0+12,x0,y0-10
  69.  
  70. ; bocca
  71. for x=100 to 220
  72. y%=-0.00312*x*x+x+80
  73. z=cast(y%)
  74. hi_dot x,z
  75. next x
  76. for x=90 to 230
  77. y%=-0.00156*x*x+0.5*x+100
  78. z=cast(y%)
  79. hi_dot x,z
  80. next x
  81. hi_line x0-70,y0+33,x0-60,y0+49
  82. hi_line x0+70,y0+33,x0+60,y0+49
  83.  
  84. ; dente sx
  85. hi_line x0-28,y0+39,x0-28,y0+47
  86. hi_line x0-28,y0+47,x0-7,y0+47
  87. hi_line x0-7,y0+47,x0-7,y0+39
  88.  
  89. ; dente dx
  90. hi_line x0+28,y0+39,x0+28,y0+47
  91. hi_line x0+28,y0+47,x0+7,y0+47
  92. hi_line x0+7,y0+47,x0+7,y0+39
  93.  
  94. ; dente sotto
  95. hi_line x0-10,y0+59,x0-10,y0+52
  96. hi_line x0-10,y0+52,x0+10,y0+52
  97. hi_line x0+10,y0+59,x0+10,y0+52
  98.  
  99. ; colora occhi
  100. hi_fill x0-30,y0-25
  101. hi_fill x0+30,y0-25
  102.  
  103. ; colora naso
  104. hi_fill x0,y0
  105.  
  106. ; colora bocca
  107. hi_fill x0,y0+50
  108. hi_fill x0-13,y0+58
  109. hi_fill x0+13,y0+58
  110.  
  111. ; linee sulla zucca
  112. for y1=y0-r to y0+r
  113. x1%=0.008*(y1-5)*(y1-195)+x0
  114. x2%=-0.008*(y1-5)*(y1-195)+x0
  115. z=cast(x1%)
  116. z1=cast(x2%)
  117. hi_dot z,y1
  118. hi_dot z1,y1
  119. next y1
  120. for y1=y0-r to y0+r
  121. x1%=0.004*(y1-5)*(y1-195)+x0
  122. x2%=-0.004*(y1-5)*(y1-195)+x0
  123. z=cast(x1%)
  124. z1=cast(x2%)
  125. hi_dot z,y1
  126. hi_dot z1,y1
  127. next y1
  128. hi_line x0,y0-r,x0,y0+40
  129. hi_line x0,y0+60,x0,y0+r
  130.  
  131. ; h
  132. hi_line x0-150,y0+85,x0-150,y0+95
  133. hi_line x0-150,y0+90,x0-144,y0+90
  134. hi_line x0-144,y0+85,x0-144,y0+95
  135.  
  136. ; a
  137. hi_line x0-142,y0+85,x0-142,y0+95
  138. hi_line x0-142,y0+85,x0-136,y0+85
  139. hi_line x0-142,y0+90,x0-136,y0+90
  140. hi_line x0-136,y0+85,x0-136,y0+95
  141.  
  142. ;l
  143. hi_line x0-134,y0+85,x0-134,y0+95
  144. hi_line x0-134,y0+95,x0-128,y0+95
  145.  
  146. ;l
  147. hi_line x0-126,y0+85,x0-126,y0+95
  148. hi_line x0-126,y0+95,x0-120,y0+95
  149.  
  150. ;o
  151. hi_line x0-118,y0+85,x0-118,y0+95
  152. hi_line x0-118,y0+85,x0-112,y0+85
  153. hi_line x0-118,y0+95,x0-112,y0+95
  154. hi_line x0-112,y0+85,x0-112,y0+95
  155.  
  156. ;w
  157. hi_line x0-110,y0+85,x0-110,y0+95
  158. hi_line x0-110,y0+95,x0-107,y0+90
  159. hi_line x0-107,y0+90,x0-104,y0+95
  160. hi_line x0-104,y0+85,x0-104,y0+95
  161.  
  162. ;e
  163. hi_line x0-102,y0+85,x0-102,y0+95
  164. hi_line x0-102,y0+90,x0-98,y0+90
  165. hi_line x0-102,y0+95,x0-96,y0+95
  166. hi_line x0-102,y0+85,x0-96,y0+85
  167.  
  168. ;e
  169. hi_line x0-94,y0+85,x0-94,y0+95
  170. hi_line x0-94,y0+90,x0-90,y0+90
  171. hi_line x0-94,y0+95,x0-88,y0+95
  172. hi_line x0-94,y0+85,x0-88,y0+85
  173.  
  174. ;n
  175. hi_line x0-86,y0+85,x0-86,y0+95
  176. hi_line x0-86,y0+85,x0-80,y0+95
  177. hi_line x0-80,y0+85,x0-80,y0+95
  178.  
  179. ;'
  180. hi_line x0-70,y0+85,x0-72,y0+88
  181.  
  182. ;2
  183. hi_line x0-68,y0+87,x0-68,y0+88
  184. hi_line x0-68,y0+87,x0-66,y0+85
  185. hi_line x0-66,y0+85,x0-64,y0+85
  186. hi_line x0-64,y0+85,x0-62,y0+89
  187. hi_line x0-62,y0+89,x0-68,y0+95
  188. hi_line x0-68,y0+95,x0-62,y0+95
  189.  
  190. ;1
  191. hi_line x0-60,y0+86,x0-58,y0+85
  192. hi_line x0-58,y0+85,x0-58,y0+95
  193. hi_line x0-60,y0+95,x0-56,y0+95
  194.  
  195. ; firma f
  196. hi_line x0+130,y0+90,x0+130,y0+96
  197. hi_line x0+130,y0+90,x0+134,y0+90
  198. hi_line x0+130,y0+93,x0+132,y0+93
  199.  
  200. ; firma n
  201. hi_line x0+139,y0+90,x0+139,y0+96
  202. hi_line x0+143,y0+90,x0+143,y0+96
  203. hi_line x0+139,y0+90,x0+143,y0+96
  204.  
  205. repeat : until inkey!() <> 0
  206. hi_bitmapoff
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!