points_num_sh equ 66 ;32+2+16*2
faces_num_Sh equ 60  ;8*4+6+9*2+4

xyz0_sh label word
dw -14,-24,+08       ;0
dw +14,-24,+08
dw -20,-08,+12       ;2
dw +20,-08,+12
dw -18,+12,+11       ;4
dw +18,+12,+11
dw -08,+28,+04       ;6
dw +08,+28,+04
;-)
dw -14,-24,-08       ;8
dw +14,-24,-08
dw -20,-08,-12       ;10
dw +20,-08,-12
dw -18,+12,-11       ;12
dw +18,+12,-11
dw -08,+28,-04       ;14
dw +08,+28,-04
;-[
dw -19,-25,+02       ;16
dw +19,-25,+02      
dw -28,-07,+03       ;18
dw +28,-07,+03
dw -24,+13,+03       ;20
dw +24,+13,+03
dw -10,+31,+02       ;22
dw +10,+31,+02
;-)
dw -19,-25,-02       ;24
dw +19,-25,-02       
dw -28,-07,-03       ;26
dw +28,-07,-03
dw -24,+13,-03       ;28
dw +24,+13,-03
dw -10,+31,-02       ;30
dw +10,+31,-02
;-<
dw -04,+34,+00       ;32
dw +04,+34,+00

dw -41,-34,-06       ;34
dw -47,-13,-08
dw -47,+15,-08
dw -38,+45,-05
;->
dw -39,-30,-15       ;38
dw -43,-14,-18
dw -43,+16,-18
dw -35,+41,-14
;---- 
dw -41,-34,+06       ;42
dw -47,-13,+08
dw -47,+15,+08
dw -38,+45,+05
;-> 
dw -39,-30,+15       ;46
dw -43,-14,+18
dw -43,+16,+18
dw -35,+41,+14

dw +41,-34,-06       ;50
dw +47,-13,-08
dw +47,+15,-08
dw +38,+45,-05
;->
dw +39,-30,-15       ;54
dw +43,-14,-18
dw +43,+16,-18
dw +35,+41,-14
;----
dw +41,-34,+06       ;58
dw +47,-13,+08
dw +47,+15,+08
dw +38,+45,+05
;->
dw +39,-30,+15       ;62
dw +43,-14,+18
dw +43,+16,+18
dw +35,+41,+14       ;65

facecolors_sh label byte
db 14 dup (32)
db 32;64
db 7 dup (32)
db 32; 64
db 7 dup (32)
db 32;64
db 32,32,32,32,32,32,32
db 6+6+6 dup (64)
db 4 dup (96)

faces_sh label word
dw 06,07,33,32
dw 14,15,33,32
dw 06,22,32,06
dw 07,23,33,07
dw 14,30,32,14
dw 15,31,33,15
dw 22,30,32,22
dw 23,31,33,23
;-<
dw 00,01,03,02
dw 02,03,05,04
dw 04,05,07,06
dw 08,09,11,10
dw 10,11,13,12
dw 12,13,15,14
;-[
dw 00,01,17,16
dw 01,03,19,17
dw 03,05,21,19
dw 05,07,23,21
dw 07,06,22,23
dw 06,04,20,22
dw 04,02,18,20
dw 02,00,16,18
;
dw 08,09,25,24
dw 09,11,27,25
dw 11,13,29,27
dw 13,15,31,29
dw 15,14,30,31
dw 14,12,28,30
dw 12,10,26,28
dw 10,08,24,26
;-}
dw 16,17,25,24
dw 17,19,27,25
dw 19,21,29,27
dw 21,23,31,29
dw 23,22,30,31
dw 22,20,28,30
dw 20,18,26,28
dw 18,16,24,26

dw 18+16,19+16,27+16,26+16
dw 19+16,20+16,28+16,27+16
dw 20+16,21+16,29+16,28+16
;-
dw 18+16,19+16,23+16,22+16
dw 19+16,20+16,24+16,23+16
dw 20+16,21+16,25+16,24+16
;+
dw 26+16,27+16,31+16,30+16
dw 27+16,28+16,32+16,31+16
dw 28+16,29+16,33+16,32+16

dw 34+16,35+16,43+16,42+16
dw 35+16,36+16,44+16,43+16
dw 36+16,37+16,45+16,44+16
;-
dw 34+16,35+16,39+16,38+16
dw 35+16,36+16,40+16,39+16
dw 36+16,37+16,41+16,40+16
;+
dw 42+16,43+16,47+16,46+16
dw 43+16,44+16,48+16,47+16
dw 44+16,45+16,49+16,48+16

dw 18,20,44,43
dw 26,28,36,35
dw 19,21,60,59
dw 27,29,52,51