View mold-red.red
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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"] |
View color-slider.red
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 ;) . |
View add-script.red
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
View iterated-faces.red
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
View resize-image.red
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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] |
View dates-calcs.red
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |