-
Notifications
You must be signed in to change notification settings - Fork 82
/
graphic11.src
38 lines (31 loc) · 1.14 KB
/
graphic11.src
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
.page
.subttl 'graphics11'
; multicolor color values
colval
.byte $ff,$aa,$55,$00
; angval -- table of angle values on 10 degree boundaries
; values based as fraction of 65536
angval
.byte $00,$00 ;sine 00 degrees - .0000
.byte $2c,$71 ;sine 10 degrees - .1736
.byte $57,$8d ;sine 20 degrees - .3420
.byte $80,$00 ;sine 30 degrees - .5000
.byte $a4,$8f ;sine 40 degrees - .6428
.byte $c4,$19 ;sine 50 degrees - .7660
.byte $dd,$b2 ;sine 60 degrees - .8660
.byte $f0,$90 ;sine 70 degrees - .9397
.byte $fc,$1c ;sine 80 degrees - .9848
.byte $ff,$ff ;sine 90 degrees - 1.0000
; incval -- table of incremental values between 10 degrees
; values based on fraction of 65536
incval
.byte $04,$72 ; 01 - 09 degrees - .01739
.byte $04,$50 ; 11 - 19 degrees - .01692
.byte $04,$0b ; 21 - 29 degrees - .01592
.byte $03,$a8 ; 31 - 39 degrees - .01443
.byte $03,$28 ; 41 - 49 degrees - .01252
.byte $02,$90 ; 51 - 59 degrees - .01023
.byte $01,$e3 ; 61 - 69 degrees - .00762
.byte $01,$28 ; 71 - 79 degrees - .00477
.byte $00,$63 ; 81 - 89 degrees - .00179
;.end