save drawing to file
This commit is contained in:
parent
ed717cd95d
commit
e042895190
2 changed files with 16 additions and 0 deletions
BIN
one_line.txt
Normal file
BIN
one_line.txt
Normal file
Binary file not shown.
|
@ -1,7 +1,9 @@
|
||||||
|00 @System &vector $2 &expansion $2 &wst $1 &rst $1 &metadata $2 &r $2 &g $2 &b $2 &debug $1 &state $1
|
|00 @System &vector $2 &expansion $2 &wst $1 &rst $1 &metadata $2 &r $2 &g $2 &b $2 &debug $1 &state $1
|
||||||
|10 @Console &vector $2 &read $1 &pad $4 &type $1 &write $1 &error $1
|
|10 @Console &vector $2 &read $1 &pad $4 &type $1 &write $1 &error $1
|
||||||
|20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1
|
|20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1
|
||||||
|
|80 @Controller/vector $2 &button $1 &key $1
|
||||||
|90 @Mouse/vector $2 &x $2 &y $2 &state $5 &scrolly &scrolly-hb $1 &scrolly-lb $1
|
|90 @Mouse/vector $2 &x $2 &y $2 &state $5 &scrolly &scrolly-hb $1 &scrolly-lb $1
|
||||||
|
|a0 @File/vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
@ -33,6 +35,13 @@
|
||||||
( set pxs-pt to start of pixels )
|
( set pxs-pt to start of pixels )
|
||||||
;pxs ;pxs-pt STA2
|
;pxs ;pxs-pt STA2
|
||||||
;on-mouse .Mouse/vector DEO2
|
;on-mouse .Mouse/vector DEO2
|
||||||
|
;on-controller .Controller/vector DEO2
|
||||||
|
BRK
|
||||||
|
|
||||||
|
@on-controller
|
||||||
|
.Controller/key DEI
|
||||||
|
( if "e" key is pressed )
|
||||||
|
#65 EQU ?write-drawing-file-to-disk
|
||||||
BRK
|
BRK
|
||||||
|
|
||||||
@add-px-to-drawing
|
@add-px-to-drawing
|
||||||
|
@ -79,6 +88,13 @@
|
||||||
&end
|
&end
|
||||||
JMP2r
|
JMP2r
|
||||||
|
|
||||||
|
@write-drawing-file-to-disk
|
||||||
|
;/filename .File/name DEO2
|
||||||
|
#1550 .File/length DEO2
|
||||||
|
;pxs .File/write DEO2
|
||||||
|
JMP2r
|
||||||
|
&filename "one_line.txt $1
|
||||||
|
|
||||||
@on-mouse ( -> )
|
@on-mouse ( -> )
|
||||||
.Mouse/x DEI2 .x STZ2
|
.Mouse/x DEI2 .x STZ2
|
||||||
.Mouse/y DEI2 .y STZ2
|
.Mouse/y DEI2 .y STZ2
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue