SteeveGit

# Created by Steeve Antoine
#
# Before anything, START Outlook (keep the app open) and select the "receipt" folder
#
# Ok, that's lot of useless comments but I know me... 
# After some months I will forget the purpose of some (obvious) code.

# PRINCIPE
# Les titres (subject) des emails du jour sont lus à haute voix
# ... avec une voix féminine en français mais évidement on peut la changer dans la fonction <tell>

SteeveGit

REBOL []

src: read/string  %lizard.svg; %corner.svg ;

;** Stack operations
pile: tail reduce [copy [pen 0.0.0.255]]	;** by default, no pen color 
rollback: does [pile: back pile]
push: does [clear pile: change/only pile copy []]
pop: func ['v][rollback unless empty? pile/1 [append/only append new-line pile/0 true :v new-line pile/1 true]]
pop-flat: does [rollback out pile/1]

SteeveGit

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]

SteeveGit

### USE CASE 
#	date: 19/05/2016
#	system: Ubuntu 64 + wine 32 bits, Proc intel i5

# Replace the file %red-master/system/utils/profiler.r
#   by the current file
# Edit the file %red-master/system/compiler.r
#   and change the line ~11 to "profiler/active?: yes""
# Open a rebol2 console and compile the red's console

SteeveGit

change: func [
	"Changes a value in a series and returns the series after the change."
	series [series!] "Series at point to change"
	value [any-type!] "The new value"
	/part {Limits the amount to change to a given length or position.}
		range [number! series! pair!]
	/only "Changes a series as a series."
	/dup "Duplicates the change a specified number of times."
		count [number! pair!]
][

SteeveGit

Red [
  Title: "FORSKIP function"
  Author: "Nenad Rakocevic"
  Purpose: "Direct port of the REBOL2 forskip function"
]

forskip: func [
    "Evaluates a block for periodic values in a series."
    'word [word!] "Word set to each position in series and changed as a result"
    skip-num [integer!] "Number of values to skip each time"