Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2024-07-05 22:29:04 +00:00
Code Issues Projects Releases Wiki Activity

added turtle graphics example

Browse Source
This commit is contained in:
Irmen de Jong 2020-03-28 14:17:35 +01:00
parent fffe36e358
commit 5927cf2d43
2 changed files with 114 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
examples/sprites.p8
View File

@ -33,9 +33,6 @@ spritedata $0a00 {
main {
const uword SP0X = $d000
const uword SP0Y = $d001
sub start() {
c64scr.print("balloon sprites!\n...we are all floating...\n")

114
examples/turtle-gfx.p8 Normal file
View File

@ -0,0 +1,114 @@
%import c64lib
%import c64flt
%import c64graphics
%option enable_floats
%zeropage basicsafe
main {
sub start() {
graphics.enable_bitmap_mode()
turtle.init()
ubyte i
for i in 0 to 255 {
while c64.RASTER {
}
}
for i in 0 to 100 {
turtle.fd(i+20)
turtle.rt(94)
}
forever {
}
}
}
turtle {
float xpos
float ypos
float angle
ubyte pendown
sub init() {
xpos = 160.0
ypos = 100.0
angle = 0.0
pendown = true
c64.SPRPTR[0] = $0d00 / 64
c64.SPENA = 1
c64.SP0COL = 5
turtlepos()
}
sub turtlepos() {
uword xx = xpos as uword
c64.SPXY[0] = lsb(xx) + 12
if msb(xx)
c64.MSIGX = 1
else
c64.MSIGX = 0
c64.SPXY[1] = lsb(ypos) + 40
}
sub fd(uword length) {
float flen = length as float
float sx = xpos
float sy = ypos
xpos += flen * sin(angle)
ypos -= flen * cos(angle)
turtlepos()
if pendown {
graphics.line(sx as uword, lsb(sy), xpos as uword, lsb(ypos))
}
}
sub rt(uword degrees) {
angle += rad(degrees as float)
}
sub lt(uword degrees) {
angle -= rad(degrees as float)
}
sub pu() {
pendown = false
}
sub pd() {
pendown = true
}
}
spritedata $0d00 {
; this memory block contains the sprite data
; it must start on an address aligned to 64 bytes.
%option force_output ; make sure the data in this block appears in the resulting program
ubyte[] balloonsprite = [ %00000000,%00000000,%00000000,
%00000000,%00000000,%00000000,
%00000000,%00000000,%00000000,
%00000000,%00000000,%00000000,
%00000000,%00000000,%00000000,
%00000000,%00000000,%00000000,
%00000000,%00000000,%00000000,
%00000000,%00000000,%00000000,
%00000000,%01111110,%00000000,
%00000000,%11000011,%00000000,
%00000000,%11000011,%00000000,
%00000000,%11000011,%00000000,
%00000000,%01111110,%00000000,
%00000000,%00000000,%00000000,
%00000000,%00000000,%00000000,
%00000000,%00000000,%00000000,
%00000000,%00000000,%00000000,
%00000000,%00000000,%00000000,
%00000000,%00000000,%00000000,
%00000000,%00000000,%00000000,
%00000000,%00000000,%00000000 ]
}