Graphics: DrawRivet

       Name: DrawRivet                                               [Show more]
       Type: Subroutine
   Category: Graphics
    Summary: Draw a square rivet (2 pixels across, 4 pixels high)
    Context: See this subroutine in context in the source code
 References: This subroutine is called as follows:
             * DrawCanopy calls DrawRivet


 Arguments:

   X                    The x-coordinate of the top-left corner of the rivet

   Y                    The y-coordinate of the top-left corner of the rivet


.DrawRivet

 JSR VduPoint           \ Draw a point at (X, Y)

 DEY                    \ Draw a point at (X, Y - 1)
 JSR VduPoint

 DEY                    \ Draw a point at (X, Y - 2)
 JSR VduPoint

 DEY                    \ Draw a point at (X, Y - 3)
 JSR VduPoint

 INX                    \ Draw a point at (X + 1, Y - 3)
 JSR VduPoint

 INY                    \ Draw a point at (X + 1, Y - 2)
 JSR VduPoint

 INY                    \ Draw a point at (X + 1, Y - 1)
 JSR VduPoint

 INY                    \ Draw a point at (X + 1, Y)
 JSR VduPoint

 DEX                    \ Restore X to its original value

 RTS                    \ Return from the subroutine