mirror of
https://github.com/irmen/prog8.git
synced 2025-01-12 19:29:50 +00:00
added rasterbars example
This commit is contained in:
parent
cad42ddc05
commit
27442c714e
@ -17,7 +17,7 @@
|
|||||||
str question = "How are you?\n"
|
str question = "How are you?\n"
|
||||||
|
|
||||||
; use iteration to write text
|
; use iteration to write text
|
||||||
for ubyte char in question {
|
for ubyte char in question { ; @todo fix iteration
|
||||||
c64.CHROUT(char)
|
c64.CHROUT(char)
|
||||||
}
|
}
|
||||||
|
|
||||||
|
40
examples/rasterbars.p8
Normal file
40
examples/rasterbars.p8
Normal file
@ -0,0 +1,40 @@
|
|||||||
|
%import c64utils
|
||||||
|
|
||||||
|
|
||||||
|
~ main {
|
||||||
|
|
||||||
|
sub start() {
|
||||||
|
c64.SCROLY &= %11101111 ; blank screen
|
||||||
|
c64utils.set_rasterirq_excl(40)
|
||||||
|
|
||||||
|
dontstop:
|
||||||
|
goto dontstop
|
||||||
|
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
~ irq {
|
||||||
|
|
||||||
|
const ubyte barheight = 4
|
||||||
|
ubyte[13] colors = [6,2,4,5,15,7,1,13,3,12,8,11,9]
|
||||||
|
ubyte color =0
|
||||||
|
ubyte ypos = 0
|
||||||
|
|
||||||
|
sub irq() {
|
||||||
|
ubyte rasterpos=c64.RASTER
|
||||||
|
A=c64.SP0X ; delay for align
|
||||||
|
A=c64.SP0X ; delay for align
|
||||||
|
if color!=len(colors) {
|
||||||
|
c64.EXTCOL = colors[color]
|
||||||
|
c64.RASTER = rasterpos+barheight
|
||||||
|
color++
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
ypos+=2
|
||||||
|
c64.EXTCOL = 0
|
||||||
|
c64.RASTER=sin8u(ypos)/2+40
|
||||||
|
color=0
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
@ -60,7 +60,7 @@
|
|||||||
if msb(x) c64.MSIGX++
|
if msb(x) c64.MSIGX++
|
||||||
c64.EXTCOL++
|
c64.EXTCOL++
|
||||||
}
|
}
|
||||||
c64.EXTCOL-=7 ; @todo for memory vars, this should not become more than 2 * dec but normal sbc instead
|
c64.EXTCOL-=7
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|
||||||
|
@ -1,8 +1,7 @@
|
|||||||
#!/usr/bin/env sh
|
#!/usr/bin/env sh
|
||||||
|
|
||||||
PROG8_COMPILER_DIR=compiler
|
PROG8CLASSPATH=./out/production/compiler
|
||||||
PROG8CLASSPATH=${PROG8_COMPILER_DIR}/out/production/compiler
|
|
||||||
KOTLINPATH=${HOME}/.IntelliJIdea2018.3/config/plugins/Kotlin
|
KOTLINPATH=${HOME}/.IntelliJIdea2018.3/config/plugins/Kotlin
|
||||||
LIBJARS=${KOTLINPATH}/lib/kotlin-stdlib.jar:${KOTLINPATH}/lib/kotlin-reflect.jar:${PROG8_COMPILER_DIR}/antlr/lib/antlr-runtime-4.7.1.jar
|
LIBJARS=${KOTLINPATH}/lib/kotlin-stdlib.jar:${KOTLINPATH}/lib/kotlin-reflect.jar
|
||||||
|
|
||||||
java -cp ${PROG8CLASSPATH}:${LIBJARS} prog8.StackVmMainKt $*
|
java -cp ${PROG8CLASSPATH}:${LIBJARS} prog8.StackVmMainKt $*
|
||||||
|
Loading…
x
Reference in New Issue
Block a user