;---------------------------------------
;shade bob
;---------------------------------------

px       = $ae
py       = $af
liczx    = $90
liczy    = $91
plot     = $0b00

         *= $0800

         jmp circle
         jmp triangle
         jmp box
box      stx px
         sty py
         lda #$00
         sta liczx
         sta liczy
p1       lda px
         clc
         adc liczx
         tax
         lda py
         clc
         adc liczy
         tay
         jsr plot
         inc liczx
         lda liczx
         cmp #$05
         bne p1
         lda #$00
         sta liczx
         inc liczy
         lda liczy
         cmp #$09
         bne p1
         rts
circle   stx px
         sty py
         lda px
         clc
         adc #$02
         tax
         ldy py
         jsr plot
         lda px
         clc
         adc #$01
         tax
         ldy py
         iny
         jsr plot
         lda px
         clc
         adc #$02
         tax
         ldy py
         iny
         jsr plot
         lda px
         clc
         adc #$03
         tax
         ldy py
         iny
         jsr plot

         lda px
         clc
         adc #$01
         tax
         lda py
         clc
         adc #$07
         tay
         jsr plot

         lda px
         clc
         adc #$01
         tax
         lda py
         clc
         adc #$07
         tay
         jsr plot
         lda px
         clc
         adc #$02
         tax
         lda py
         clc
         adc #$07
         tay
         jsr plot

         lda px
         clc
         adc #$03
         tax
         lda py
         clc
         adc #$07
         tay
         jsr plot

         lda px
         clc
         adc #$02
         tax
         lda py
         clc
         adc #$08
         tay
         jsr plot

         lda #$00
         sta liczx
         lda #$02
         sta liczy
p2       lda px
         clc
         adc liczx
         tax
         lda py
         clc
         adc liczy
         tay
         jsr plot
         inc liczx
         lda liczx
         cmp #$05
         bne p2
         lda #$00
         sta liczx
         inc liczy
         lda liczy
         cmp #$07
         bne p2
         rts

triangle stx px
         sty py

         lda px
         clc
         adc #$03
         tax
         ldy py
         jsr plot
         lda px
         clc
         adc #$03
         tax
         ldy py
         iny
         jsr plot

         lda px
         clc
         adc #$02
         tax
         lda py
         clc
         adc #$02
         tay
         jsr plot

         lda px
         clc
         adc #$03
         tax
         lda py
         clc
         adc #$02
         tay
         jsr plot

         lda px
         clc
         adc #$04
         tax
         lda py
         clc
         adc #$02
         tay
         jsr plot


         lda px
         clc
         adc #$02
         tax
         lda py
         clc
         adc #$03
         tay
         jsr plot

         lda px
         clc
         adc #$03
         tax
         lda py
         clc
         adc #$03
         tay
         jsr plot

         lda px
         clc
         adc #$04
         tax
         lda py
         clc
         adc #$03
         tay
         jsr plot

         lda px
         clc
         adc #$01
         tax
         lda py
         clc
         adc #$04
         tay
         jsr plot

         lda px
         clc
         adc #$02
         tax
         lda py
         clc
         adc #$04
         tay
         jsr plot

         lda px
         clc
         adc #$03
         tax
         lda py
         clc
         adc #$04
         tay
         jsr plot

         lda px
         clc
         adc #$04
         tax
         lda py
         clc
         adc #$04
         tay
         jsr plot

         lda px
         clc
         adc #$05
         tax
         lda py
         clc
         adc #$04
         tay
         jsr plot

         lda px
         clc
         adc #$01
         tax
         lda py
         clc
         adc #$05
         tay
         jsr plot

         lda px
         clc
         adc #$02
         tax
         lda py
         clc
         adc #$05
         tay
         jsr plot

         lda px
         clc
         adc #$03
         tax
         lda py
         clc
         adc #$05
         tay
         jsr plot

         lda px
         clc
         adc #$04
         tax
         lda py
         clc
         adc #$05
         tay
         jsr plot

         lda px
         clc
         adc #$05
         tax
         lda py
         clc
         adc #$05
         tay
         jsr plot

         lda px
         clc
         adc #$01
         tax
         lda py
         clc
         adc #$08
         tay
         jsr plot

         lda px
         clc
         adc #$02
         tax
         lda py
         clc
         adc #$08
         tay
         jsr plot

         lda px
         clc
         adc #$03
         tax
         lda py
         clc
         adc #$08
         tay
         jsr plot

         lda px
         clc
         adc #$04
         tax
         lda py
         clc
         adc #$08
         tay
         jsr plot

         lda px
         clc
         adc #$05
         tax
         lda py
         clc
         adc #$08
         tay
         jsr plot

         lda #$00
         sta liczx
         lda #$06
         sta liczy
p3       lda px
         clc
         adc liczx
         tax
         lda py
         clc
         adc liczy
         tay
         jsr plot
         inc liczx
         lda liczx
         cmp #$07
         bne p3
         lda #$00
         sta liczx
         inc liczy
         lda liczy
         cmp #$08
         bne p3
         rts

