luce80

Red [
	title: "Mold the System object"
	author: "Marco Antoniazzi"
	History: [
		0.1.0 [18-08-2013 "Done"]
		0.2.0 [16-04-2016 "Fixed unset values"]
		0.3.0 [23-08-2018 "Added 3 dots ..."]
		0.4.0 [26-08-2018 "Added checks actions"]
		0.5.0 [16-05-2020 "Fixed throw(s) by adding <none>. Added undirize. Added history."]
		0.6.0 [19-05-2020 "Red version"]

luce80

Red [
	Title:   "Red VID reactive script in 3 versions"
	Author:  "luce80 derived from Nenad Rakocevic"
	File: 	 %color-slider.red
	Needs:	 'View
	License: "MIT"
	Notes:	 {
		Demo of chained reactive programming, moving the sliders changes text, field, progress and the box's color
		which in turn, changes the bottom text font color. Also changing field changes slider that changes all
		the rest ;) .

luce80

Red [
	title: "Update red scripts collection list"
	file: %add-script.red
	author: "Marco Antoniazzi"
	license: "Do with this code whatever you want, giving credit to me is NOT required"
	email: [luce80 AT alice DOT it]
	date: 01-07-2018
	version: 1.0.1
	Purpose: "Help update red scripts collection list"
	Needs: 'View

luce80

Red [
	title: "Iterated faces in Red"
	file: %iterated-faces.red
	author: "Marco Antoniazzi"
	license: "Do with this code whatever you want, giving credit to me is NOT required"
	email: [luce80 AT alice DOT it]
	date: 13-01-2018
	version: 0.0.6
	Purpose: "Create iterated faces as those found in Rebol View"
	Needs: View

luce80

Red [
	Title:   "Draw Image Resizing Test"
	Author:  [REBOL version "Carl Sassenrath" Red port "Gregg Irwin" Reacting version "Marco Antoniazzi"]
	Version: 0.0.2
	File:	 %resize-image.red
	Needs:   View
]

img: load/as any [
	attempt [read/binary img-url: https://pbs.twimg.com/profile_images/501701094032941056/R-a4YJ5K.png]

luce80

Red [
	Author: "luce80"
	Licence: 'PD
]

; from https://en.wikipedia.org/wiki/Julian_day
julian-day-number: func [day month year /local a y m] [ ; in Red 0.6.2, integer calcs give integer result so we could remove to-integer(s)
	; TBD check params
	a: to-integer 14 - month / 12
	y: year + 4800 - a