honix

from tkinter import *
from math import sin, cos

master = Tk()

c = Canvas(master, width=230, height=230)
c.pack()

def create_good_rectangle(c, x1, y1, x2, y2, feather, res=5, color='black'):
    points = []

honix

(ql:quickload :sketch)

(in-package :sketch)

(defstruct point
  (x 0.0 :type short-float)
  (y 0.0 :type short-float))

(defparameter *pen* (make-pen :fill +black+
			      :stroke +black+

honix

(defun weak-tripo (n)
  (case n 
    (0 0) 
    (1 0) 
    (2 1)
    (t (+ (weak-tripo (- n 1))
	  (weak-tripo (- n 2))
	  (weak-tripo (- n 3))))))

(let ((table (make-hash-table)))

honix

" github.com/honix
" VIM CONFIGURATION

set nocompatible

""" VISUALS
" Visualy combos
    set showcmd
" Display line numbers on the left
    set number

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)

honix

Red []

time: 0.0
radius: 200

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

honix

Red [
	Needs: 'View
]

dangle: pi / 255
pi2:    pi * 2

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

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 []

b: make image! 310x80

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

	fill-pen blue
	box 70x10 120x60

honix

Red []

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