https://github.com/iamfirecracker/sketch-fun

Let's have fun with Sketch, the Common Lisp framework inspired by the Processing language
https://github.com/iamfirecracker/sketch-fun

Last synced: 13 days ago
JSON representation

Let's have fun with Sketch, the Common Lisp framework inspired by the Processing language

• Host: GitHub
• URL: https://github.com/iamfirecracker/sketch-fun
• Owner: iamFIREcracker
• License: mit
• Created: 2021-11-15T07:03:25.000Z (about 3 years ago)
• Default Branch: main
• Last Pushed: 2023-11-08T19:52:26.000Z (about 1 year ago)
• Last Synced: 2023-11-08T20:30:30.154Z (about 1 year ago)
• Language: Common Lisp
• Size: 56.6 KB
• Stars: 3
• Watchers: 1
• Forks: 0
• Open Issues: 0
• Metadata Files:
  • Readme: README.md
  • License: LICENSE

Awesome Lists containing this project

README

        
# Having fun with Sketch

## Setup

Make sure .asd files in the current directory can be loaded by ASDF:

    (pushnew '*default-pathname-defaults* asdf:*central-registry*)

Load the main system:

    (ql:quickload "sketch-fun")

## Experiments

### Doom's Fire

![Doom's Fire](./images/doomfire.png)

- Credits: [fabiensanglard/DoomFirePSX](https://github.com/fabiensanglard/DoomFirePSX/blob/master/flames.html)

Load the system:

    (ql:quickload "sketch-fun/doomfire")

Start the experiment:

    (doomfire:start)

Reset it (i.e. delete all the points):

    (doomfire:clear)

Stop it:

    (doomfire:stop)

### Quadtree

![Quadtree](./images/quadtree.png)

- Mouse click or drag-n-dop events add some random points to the plane (around

  the pointer location)

- All the points of the plane are fed into a quadtree, whose space subdivisions

  are rendered as gray rectangles

- A "search box" (the magenta rectangle) follows the mouse location, and is

  used to query the quadtree for all the points contained within that area

- The text at the bottom of the window shows the total number of elements

  contained in the quadtree, versus the number of checks that had to be done to

  figure out if a point was in the rectangle or not

- Credits: [The Coding Train - Coding Challenge #98: Quadtree](https://www.youtube.com/watch?v=OJxEcs0w_kE)

Load the system:

    (ql:quickload "sketch-fun/quadtree")

Start the experiment:

    (quadtree:start)

Reset it (i.e. delete all the points):

    (quadtree:clear)

Stop it:

    (quadtree:stop)

### 10 PRINT

![10 PRINT](./images/10print.png)

- Origin: [10print.org](https://10print.org/)

Load the system:

    (ql:quickload "sketch-fun/10print")

Start the experiment:

    (10print:start)

Stop it:

    (10print:stop)

### Tangent Lines

![Tangent lines](./images/tanlines.png)

- Credits: [Reddit: Tangent lines to sine function seem to create an

  interesting

  pattern](https://www.reddit.com/r/math/comments/3kj8jg/tangent_lines_to_sine_function_seem_to_create_an/)

Load the system:

    (ql:quickload "sketch-fun/tanlines")

Start the experiment:

    (tanlines:start)

Stop it:

    (tanlines:stop)