Somebody posted this as a comment on this project: https://scratch.mit.edu/projects/173244211/ I copied it. Then I modified it.