honix

This is a SCRIPT-8 cassette. Click here to boot it.

honix

#ifdef GL_ES
precision mediump float;
#endif

#extension GL_OES_standard_derivatives : enable

uniform float time;
uniform vec2 mouse;
uniform vec2 resolution;

honix

void Update () {

    // ...
    
    // - Body
    //   \_ - Camera

    // Rotate full body right and left
    transform.Rotate(
        0,

honix

Red []

time: func [
	do-block 
	/repeat 
		n
	/local
		acc
		start
][

honix

Red []

let: func [
	binds 
	block 
	/local 
		ctx
][
	ctx: context append/only append binds copy [result: do] block
	select ctx 'result

honix

Red []

b: make image! 310x80

draw b [
	fill-pen red
	box 10x10 60x60

	fill-pen blue
	box 70x10 120x60

honix

Drawing app
Work in progress!

Red [
	Needs: 'View
]

pen-buffer-settings: [500x500 0.0.0.254]
buffer: make image! [500x500 100.100.100]
pen-buffer: make image! pen-buffer-settings

honix

Red [
	Needs: 'View
]

dangle: pi / 255
pi2:    pi * 2

angle:  0.0
radius: 200
buffer: make image! 500x500

honix

Red []

time: 0.0
radius: 200

view [
	base 500x500 rate 30 
	draw [line 250x250 100x100]
	on-time [
		time: time + 0.01

honix

;; http://www.ic.unicamp.br/~meidanis/courses/mc336/2006s2/funcional/L-99_Ninety-Nine_Lisp_Problems.html
;;
;; trying to use only these sacred symbols
;; (quote, atom, eq, car, cdr, cons and cond)

(defvar s '(a b c d))

(defun my-last (l)
  (if (cdr l)