greggirwin

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

Red [
	Title:   "Fill-pen Lab"
	Author:  "Gregg Irwin"
	File: 	 %fill-pen-lab.red
	Needs:	 View
]

to-color: function [r g b][
	color: 0.0.0
	if r [color/1: to integer! 256 * r]

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
]

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

grab-size: 5

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:  "Gradient Lab"
	Author: "Gregg Irwin"
	File: 	%gradient-lab.red
	Needs:	View
	Notes: {
		Found Carl's old R2 version after starting this from %fill-pen-lab.red,
		so took some ideas from that too.
	}
]

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