commit 8c33174
Devine Lu Linvega
·
2026-03-21 19:47:35 +0000 UTC
parent 439a7c2
Formatted perifs
1 files changed,
+24,
-22
+24,
-22
1@@ -10,7 +10,7 @@
2 |000
3
4 @center/x $2 &y $2
5- @wheelposy $1 &lo $1
6+ @wheel/y $1 &y-lo $1
7
8 |100
9
10@@ -146,31 +146,34 @@
11 .center/x LDZ2 #0018 SUB2 .Screen/x DEO2
12 .center/y LDZ2 #0022 ADD2 .Screen/y DEO2
13 #05ff ;small/icn #16 <draw-times> }
14- ( | wheel counter )
15+ POP !wheel/<redraw>
16+
17+@wheel/<redraw> ( -- )
18 .center/x LDZ2 #0047 ADD2 .Screen/x DEO2
19 .center/y LDZ2 #0010 ADD2 .Screen/y DEO2
20- .wheelposy/lo LDZ hex/<draw-byte>
21+ .&y-lo LDZ hex/<draw-byte>
22 ( | wheel )
23 .center/x LDZ2 #0048 ADD2 .Screen/x DEO2
24 .center/y LDZ2 #0020 ADD2 .Screen/y DEO2
25- #05ff ;wheel/icns #16 <draw-times>
26- #05ff ;wheel/icns #0010 ADD2 #16 <draw-times>
27- #00 draw-wheel-points
28- .wheelposy LDZ2k .Mouse/scrolly DEI2 ADD2 ROT STZ2
29- #01 draw-wheel-points
30- ( | return )
31- POP JMP2r
32-
33-@draw-wheel-points ( color -- )
34- ,&px STR .wheelposy LDZ2
35- DUP2 #0010 ADD2
36- /offset ( >> )
37-&offset ( wheelpos* -- )
38- DUP2 #001f AND2 .center/x LDZ2 #0048 ADD2 /load .Screen/x DEO2
39+ #05ff ;&icns #16 <draw-times>
40+ #05ff ;&icns #0010 ADD2 #16 <draw-times>
41+ #00 /<draw-points>
42+ .&y LDZ2k .Mouse/scrolly DEI2 ADD2 ROT STZ2
43+ #01
44+ ( >> )
45+
46+@wheel/<draw-points> ( color -- )
47+ ,&px STR
48+ .&y LDZ2 DUP2 #0010 ADD2 /offset
49+ ( >> )
50+ &offset ( wheelpos* -- )
51+ DUP2 #001f AND2 .center/x LDZ2 #0048 ADD2 /load .Screen/x DEO2
52 #0018 ADD2 #001f AND2 .center/y LDZ2 #0020 ADD2 /load .Screen/y DEO2
53- LIT [ &px $1 ] .Screen/pixel DEO JMP2r
54-&load ( offset* base* -- coord* )
55- SWP2 ;wheel/offsets ADD2 LDA #00 SWP ADD2 JMP2r
56+ [ LIT &px $1 ] .Screen/pixel DEO
57+ JMP2r
58+
59+ &load ( offset* base* -- coord* )
60+ SWP2 ;&offsets ADD2 LDA #00 SWP ADD2 JMP2r
61
62 (
63 @|Generics )
64@@ -316,12 +319,11 @@
65 0018 2420 2020 2418 0038 2424 2424 2438
66 001c 2020 3820 201c 001c 2020 3820 2020 ]
67
68-( 16x16 base wheel image )
69 @wheel/icns [
70 0718 2040 4080 8081 c030 0804 0402 0202
71 8080 4040 2018 0700 0202 0404 0830 c000 ]
72
73-( pt1=+0,+24, pt2=+16,+8 )
74 @wheel/offsets [
75 07 08 09 0a 0b 0b 0c 0c 0c 0c 0c 0b 0b 0a 09 08
76 07 06 05 04 03 03 02 02 02 02 02 03 03 04 05 06 ]
77+