greggirwin

divisible?: func [a b] [0 = remainder a b]

; This doesn't work like R3 in how negative widths work.
forskip: func [
	"Evaluates a block at regular intervals in a series."
	'word [word!] "Word referring to the series to traverse (modified)"
	width [integer!] "Interval size (width of each skip)"
	body  [block!] "Body to evaluate at each position"
	/local orig result op
][

greggirwin

map-each: function [
	"Evaluates body for each value(s) in a series, returning all results."
	'word [word! block!] "Word, or words, to set on each iteration"
	data [series! map!] 
	body [block!]
] [
	collect [
		foreach :word data [
			if not unset? set/any 'tmp do body [keep/only :tmp]
		]

greggirwin

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

system/view/auto-sync?: no

greggirwin

Red [
	Title:	"Red O'clock"
	Author:	"Gregg Irwin"
	File:	%analog-clock.red
	Tabs:	4
	Needs:	View
	Purpose: {
		- Introduce some basic Red concepts, like functions and datatypes
		- Show how the DRAW block and timer events work in the View system
	}

greggirwin

Red [
	Title:   "Calculator"
	File:    %calculator.r
	Version: 0.0.1
	;Date:    18-Jun-2016
	Author:  [
		REBOL version ["Jeff Kreis" "Allen Kamp" "Carl Sassenrath"]
		Red port "Gregg Irwin"
	]
	Purpose: "Simple numeric calculator."

greggirwin

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

;ii Red is very flexible, allowing you to structure your code in
;ii many different ways. While it's almost never a good idea to
;ii write "clever" code, it can be very powerful to write code 

greggirwin

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

;ii Red is very flexible, allowing you to structure your code in
;ii many different ways. While it's almost never a good idea to
;ii write "clever" code, it can be very powerful to write code 

greggirwin

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

system/view/auto-sync?: no

greggirwin

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

system/view/auto-sync?: no			; We'll call SHOW when we want to update the UI

greggirwin

	sign?*: func [
		check?  [logic!]
		return: [red-integer!]
		/local
			i   [red-integer!]
			f	[red-float!]
			res [red-logic!]
			ret [integer!]
	][
		#typecheck -sign?-								;-- `sign?` would be replaced by lexer