Nenad Rakocevic dockimbel

Passionate software builder, entrepreneur, science addict, rebelling against complexity.

greggirwin / arity-of.red

Last active April 12, 2021 17:47

Red arity-of function

	; We have other reflective functions (words-of, body-of, etc.), but
	; this is a little higher level, sounded fun to do, and may prove
	; useful as we write more Red tools. It also shows how to make your
	; own typesets and use them when parsing.

	arity-of: function [
	"Returns the fixed-part arity of a function spec"
	spec [any-function! block!]
	/with refs [refinement! block!] "Count one or more refinements, and add their arity"
	][

greggirwin / vid-pico-sheet.red

Last active August 19, 2017 15:13

VID version of Nenad's Native Red PicoSheet

	Red [
	Title: "Tiny VID Spreadsheet"
	Author: ["Gregg Irwin" "based on Nenad's Native PicoSheet"]
	Needs: View
	]

	sheet-size: 8x8
	cell-size: 100x24

	L: charset "ABCDEFGHIabcdefghi"

SteeveGit / svg.r

Created July 1, 2016 15:44

	REBOL []

	src: read %lizard.svg

	transparent: 0.0.0.255

	;** Stack operations

	pile: tail reduce [copy [pen transparent]] ;** by default, no pen color
	rollback: does [pile: back pile]

greggirwin / vector-balls.red

Last active July 8, 2016 09:29

Red Vector Balls

	Red [
	Title: "Vector Balls Demo"
	Author: ["Nenad Rakocevic" "Gregg Irwin"]
	Date: "[2-feb-2001 15-jun-2016]"
	File: %vector-balls.red
	Version: 0.4
	History: {[
	0.2 12-jun-2000 "First version released."
	0.3 02-feb-2001 "Speed field added"
	0.4 26-jun-2016 "Ported to Red by Gregg"

greggirwin / view-hanoi.red

Last active December 14, 2016 05:51

Graphical Red Towers of Hanoi

	Red [
	File: %view-hanoi.red
	Author: "Gregg Irwin"
	Date: "4-Oct-2001 — 26-Jun-2016"
	Needs: View
	]

	num-disks: 5 ; Have to set this here until it gets into the UI.
	disk-height: 15
	disk-cell-width: 20 ; Smallest disk is 1 cell wide

greggirwin / resize-image.red

Created June 19, 2016 19:30

Red interactive image resizing demo

	Red [
	Title: "Draw Image Resizing Test"
	Author: [REBOL version "Carl Sassenrath" Red port "Gregg Irwin"]
	Version: 0.0.1
	Needs: View
	]

	distance: func [pos [pair!]][square-root add pos/x 2 pos/y 2]

	grab-size: 5

greggirwin / fill-pen-lab.red

Created June 18, 2016 02:55

Fill-pen Lab for Red

greggirwin / paint.red

Last active February 8, 2018 18:28

Red Paint (World's smallest paint program)

	Red [
	title: "Paint"
	Author: [REBOL version "Frank Sievertsen" Red port "Gregg Irwin"]
	File: %paint.red
	Tabs: 4
	Needs: View
	version: 0.0.2
	]

	draw-blk: copy []

greggirwin / bubbles.red

Last active June 17, 2016 23:23

Animated bubbles

	Red [
	Title: "Bubbles"
	Author: [REBOL version "Gabriele Santilli" Red port "Gregg Irwin"]
	File: %bubbles.red
	Tabs: 4
	Needs: View
	]

	system/view/auto-sync?: no

qtxie / sparks.red

Last active June 17, 2016 03:19