Nenad Rakocevic dockimbel

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

dockimbel / persist-faces.red

Last active March 22, 2018 04:18

Save and reload a View face tree

	Red [
	Purpose: "Demo how to serialize/deserialize a face tree on disk"
	]

	mold-face: function [root [object!] return: [string!]][
	foreach-face root [
	face/parent: none face/state: none
	if font: face/font [font/parent: none font/state: none]
	if para: face/para [para/parent: none]
	]

dockimbel / parse-info.red

Last active October 24, 2017 08:46

Function to get stats about internal parse states usage for a given parsing job.

	Red [
	Title: "Parse Info"
	Purpose: {
	Provides some stats about internal parse states usage for a given parsing job.
	Could be used as a way to compare efficiency of different parsing strategies.
	}
	Date: 06-Oct-2017
	]

	context [

dockimbel / closure-by-value.red

Last active October 4, 2017 16:19

"Capture by value" closure generator

	Red [
	Purpose: {Implementation of a "capture-by-value" closure generator}
	Date: 4-Oct-2017
	]

	collect-words: function [
	spec [any-list!]
	/deep
	/set
	/to-set

dockimbel / sum-bench.red

Created October 1, 2017 16:38

	Red [
	Note: "https://gitter.im/red/red?at=59d0e788f7299e8f539496d3"
	]

	time-it: func [block /count ct /local t baseline][
	ct: any [ct 1]
	t: now/time/precise
	loop ct [do []]
	baseline: now/time/precise - t
	t: now/time/precise

dockimbel / logo_turtle.red

Last active November 23, 2017 23:56 — forked from mydoghasworms/logo_turtle.red

	turtle: #()

	win: layout [ panel [
	tfield: base 500x500 white draw []
	origin tfield/offset tlayer: base 500x500 255.255.255.255 draw [] ]
	panel [
	text "History" return history: text-list 200x350 data [] return
	panel [ button "Save" [save request-file history/data]
	button "Load" [commands: load request-file foreach cmd commands [process-cmd cmd]] ]
	return status: text "" 200x25 ]

dockimbel / dyn-board.red

Last active July 8, 2017 15:52

Dynamic View usage example: drawing a board of buttons

	Red [
	Title: "Dynamic View usage example"
	Author: "Nenad Rakocevic"
	Date: 08/07/2017
	]

	generate: function [board [pair!] sz [pair!] return: [block!]][
	pane: make block! sz/x * sz/y
	pos: 1x1
	count: 1

dockimbel / arity-of.red

Created April 24, 2017 02:51 — forked from greggirwin/arity-of.red

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

dockimbel / load-any.red

Created March 22, 2017 07:31

Experimental generic loader for non-Red input text.

	Red []

	load-any: function [input [string!]][
	out: make block! 100
	junk: none

	until [
	result: load/trap/next input 'pos
	either error? result/3 [
	append any [junk junk: make string! 20] result/2/1

dockimbel / template.red

Created January 14, 2017 15:01 — forked from ifgem/template.red

	Red [
	Author: "ifgem"
	]

	#do [
	macro: context [

	make-object-spec: function [words] [
	spec: copy []

dockimbel / heart-animation.red

Created January 10, 2017 05:16 — forked from DideC/heart-animation.red

Heart animation for Red (only). Now with a complete control panel to play with the animations parameters. Nice time eater ;-)

	Red [
	title: "Heart animation"
	author: "Didier Cadieu"
	notes: {
	Traduction in Red/Rebol of Terebus Volodymyr javascript demo : http://codepen.io/tvolodimir/pen/wqKuJ
	}
	Needs: View
	]

	;*** Settings