dockimbel

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

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

; 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

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

Red [
	Author: "ifgem"
]

#do [
	macro: context [

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

dockimbel

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

dockimbel

Red [
   description: {
      Attempt to copy Haiku Editor 
      (http://forthsalon.appspot.com/haiku-editor)
   }
]

map: func [s 'word body] [
   bind body 'word
   forall s [

dockimbel

Red [
	Title:   "BMR (Basal Metabolic Rate) Calculator"
	Author:  "Gregg Irwin"
	File: 	 %bmr-calc.red
	Needs:	 View
	Comment: {
		An experiment in reactivity and data modeling.
		
		145 lines with blanks and comments removed.
		

dockimbel

Red []

#system [
	#import [
		"shell32.dll" stdcall [
			ShellExecute: "ShellExecuteW" [
				hwnd         [integer!]
				lpOperation  [c-string!]
				lpFile       [c-string!]
				lpParameters [integer!]

dockimbel

Red[
    Title: "Raytracer"
    Needs: 'View
    Notes: "Simple raytracer based on 'Ray Tracing in One Weekend' by Peter Shirley"
]

vec3_dot: function [a[vector!] b[vector!]] [
    reduce (a/1 * b/1) + (a/2 * b/2) + (a/3 * b/3)
]