Create a lisp code that can follow the below requirements.

Define the Point class to represent a point in $3$D space with $\backslash ($ x$,$ y$,$ z $\backslash )$ coordinates.

Define the Color class to represent RGBA color with $\backslash ($ r$,$ g$,$ b$,$ a $\backslash )$ values.

Define the Shape class with properties for points, fill color, stroke color, stroke width, and a boolean isClosed.

Implement the Scene class with a list of shapes and a background color.

Implement factory functions to create instances of the shapes listed:

$1.($make$-$shape points $\backslash$&key is$-$closed?$)$

$2.($make$-$square length$)$

$3.($make$-$rectangle width length$)$

$4.($make$-$pentagon diameter$)$

$5.($make$-$hexagon diameter$)$

$6.($make$-$heptagon diameter$)$

$7.($make$-$octagon diameter$)$

$8.($make$-$circle diameter num$-$points$)$

$9.($make$-$spiral diameter num$-$loops num$-$points$)$

$10.($make$-$sine$-$curve diameter num$-$points$)$

Implement the following methods in the Shape class for transforming shapes:

$1.($defmethod move$-$shape$-$by $(($shape shape$)($offset point$))...)$

$2.($defmethod rotate$-$shape$-$by $(($shape shape$)($angle number$))...)$

$3.($defmethod scale$-$shape$-$by $(($shape shape$)($scale point$))...)$

$4.($defmethod randomize$-$shape$-$points $(($shape shape$)($delta number$))...)$

$-$ adds a random value in the range $(-$delta, delta$)$ to the coordinates of each shape point

Use OpenGL calls to draw shapes in the scene.

Generate procedural scenes using code to create patterns and shapes, then capture $3$ screenshot images at $700$ x $700$ resolution.