| # | User | Message | Date |
| 49 | Rebolek | press "Open" to see some presets | 11-Jul 17:48 |
| 48 | Rebolek | It's nothing special, but it works :) | 11-Jul 17:48 |
| 47 | Rebolek | http://www.rebol.org/cgi-bin/cgiwrap/rebol/view-script.r?script=texture-lab.r | 11-Jul 17:47 |
| 46 | Reichart | Look towards people in the video game business....they did lots of this in the 80-90s | 11-Jul 17:40 |
| 45 | Geomol | Or know of a good place to look for texture producing algorithms? | 9-May 16:41 |
| 44 | Geomol | Has anyone got experience with this Texturing Tool? http://www.mapzoneeditor.com/index.php | 9-May 16:40 |
| 43 | Rebolek | you're welcome :) | 20-Aug-07 13:12 |
| 42 | Robert | I will play around with this. | 20-Aug-07 8:28 |
| 41 | Robert | Thx a lot!! :-) | 20-Aug-07 8:28 |
| 40 | Rebolek | REBOL [] colors: [ ; 7 primary colors bn-green 0.102.76 green-field 51.133.110 reed-green 102.163.146 patina-green 153.194.183 glass-green 204.224.219 light-green 232.241.239 ash-gray 209.209.209 ; 7 secondary colors midnight 0.29.43 foggy-morning 31.93.154 hazy-day 102.154.204 light-mint 154.204.205 terra-cotta 205.153.103 desert-sand 229.201.115 sunflower 254.191.0 ] change-colors: func [val /local h hsv][ forskip colors 2 [ hsv: rgb-to-hsv colors/2 h: hsv/1 + val // 255 hsv/1: h colors/2: hsv-to-rgb hsv ] ~b1/color: colors/bn-green ~b2/color: colors/green-field ~b3/color: colors/reed-green ~b4/color: colors/patina-green ~b5/color: colors/glass-green ~b6/color: colors/light-green ~b7/color: colors/ash-gray ~b11/color: colors/midnight ~b12/color: colors/foggy-morning ~b13/color: colors/hazy-day ~b14/color: colors/light-mint ~b15/color: colors/terra-cotta ~b16/color: colors/desert-sand ~b17/color: colors/sunflower ] lay: layout [ across ~b1: box colors/bn-green ~b2: box colors/green-field ~b3: box colors/reed-green ~b4: box colors/patina-green ~b5: box colors/glass-green ~b6: box colors/light-green ~b7: box colors/ash-gray return ~b11: box colors/midnight ~b12: box colors/foggy-morning ~b13: box colors/hazy-day ~b14: box colors/light-mint ~b15: box colors/terra-cotta ~b16: box colors/desert-sand ~b17: box colors/sunflower return button "change color" [change-colors 64 show lay] ] view lay | 20-Aug-07 6:50 |
| 39 | Robert | It's stated that this palette is specialy designed to harmonize. And I want to get a palette being based on blue with the same properties. | 20-Aug-07 6:33 |
| 38 | Robert | This is my colour palette: ; 7 primary colors bn-green: 0.102.76 green-field: 51.133.110 reed-green: 102.163.146 patina-green: 153.194.183 glass-green: 204.224.219 light-green: 232.241.239 ash-gray: 209.209.209 ; 7 secondary colors midnight: 0.29.43 foggy-morning: 31.93.154 hazy-day: 102.154.204 light-mint: 154.204.205 terra-cotta: 205.153.103 desert-sand: 229.201.115 sunflower: 254.191.0 | 20-Aug-07 6:32 |
| 37 | Chris | But now there are native hsv functions... | 19-Aug-07 19:28 |
| 36 | Chris | I wrote this before HSV functions were added to /View, but it still works: http://www.ross-gill.com/r/hsv-lab.r | 19-Aug-07 19:24 |
| 35 | Rebolek | Robert, convert your colors to HSV and change Hue. | 19-Aug-07 16:44 |
| 34 | Chris | What does your colour palette look like? e.g. [0.0.100 5.8.189] ? | 19-Aug-07 16:25 |
| 33 | Robert | Hi, I have a question concerning color palette conversions. I have a color palette of greens that I would like to convert to blue using the same "look and style" as the green ones. Is this possible? | 19-Aug-07 7:13 |
| 32 | Steeve | sorry | 17-Feb-07 2:07 |
| 31 | Steeve | by lists, i mean, block of values | 17-Feb-07 2:07 |
| 30 | Maxim | (did you see the !Liquid group on the left? | 17-Feb-07 2:07 |
| 29 | Steeve | well, can you synchronise lists or only single values | 17-Feb-07 2:07 |
| 28 | Steeve | (that's not my question) | 17-Feb-07 2:06 |
| 27 | Maxim | moving to liquid group... | 17-Feb-07 2:06 |
| 26 | Steeve | it's your work isn't it ? | 17-Feb-07 2:05 |
| 25 | Maxim | yes? | 17-Feb-07 2:05 |
| 24 | Steeve | btw, i have a question on liquid | 17-Feb-07 2:05 |
| 23 | Steeve | different concept | 17-Feb-07 2:04 |
| 22 | Steeve | hum ok, it's more advanced than my try | 17-Feb-07 2:04 |
| 21 | Maxim | the layers will allow us to optimise what gets refreshed and allow us to stack some properties of all graphic elements on the same layer, even if the graphic elements themselves are rendered as a list (of overlapping things) | 17-Feb-07 2:03 |
| 20 | Steeve | i try | 17-Feb-07 2:02 |
| 19 | Maxim | do read http://www.pointillistic.com/open-REBOL/moa/steel/retools/download/regraph.r | 17-Feb-07 2:02 |
| 18 | Maxim | it was just a graphic editing engine proof of concept for my dataflow engine... of which I am now building the v2 of the graphic engine, which allows your graphic elements to render into parrallel layers. | 17-Feb-07 2:01 |
| 17 | Steeve | on rebol.org ? | 17-Feb-07 1:59 |
| 16 | Steeve | don't remember | 17-Feb-07 1:58 |
| 15 | Steeve | i'm not sure | 17-Feb-07 1:58 |
| 14 | Maxim | did you try out regraph demo? | 17-Feb-07 1:58 |
| 13 | Steeve | ok | 17-Feb-07 1:58 |
| 12 | Maxim | both scripts on rebol.org | 17-Feb-07 1:58 |
| 11 | Steeve | demo-ay ? | 17-Feb-07 1:57 |
| 10 | Maxim | btw steeve tried your little demos... nice | 17-Feb-07 1:57 |
| 9 | Steeve | someone tried to adapt FFT on Rebol ? | 17-Feb-07 1:56 |
| 8 | Maxim | btw, 'SEGMENT also supports none! which effectively returns that argument's postion, usefull to make segments which reach one of both ends of a line. | 14-Feb-07 19:32 |
| 7 | Maxim | here is segment... a cousin to between which returns two coordinates at one... usefull to draw segments of a bigger line in other colors (handles for example) ;-------------------- ;- segment() ;-------------------- segment: func [ {compute the specified segment from the line} start [pair!] end [pair!] from [decimal! integer! none!] to [decimal! integer! none!] /local vector points length ][ ; solve "degenerate case" first if equal? start end [return reduce [start start]] vector: end - start length: vlength vector ;---------- ; FROM if integer? from [ ; convert from to decimal from: from / length ] if none? from [ from: 0 ] if negative? from [ ; this case lets us define a segment using the end as the reference from: 1 + from ; from is negative, so this actually substracts from length ] ;---------- ; TO if integer? to [ ; convert to, to decimal to: to / length ] if none? to [ to: 1 ] if negative? to [ ; this case lets us define a segment using the end as the reference to: 1 + to ; to is negative, so this actually substracts from length ] reduce [start + to-pair reduce [to-integer vector/x * from to-integer vector/y * from] start + to-pair reduce [to-integer vector/x * to to-integer vector/y * to] ] ] | 14-Feb-07 19:30 |
| 6 | Maxim | this is my final function, I removed the rounding as it created a lot of noise in position, (not the fault of the round function but the act or rounding itself, would snap the position back and forth while dragging) I also use the vector's length using an hypothenuse formula (similar to distance), cause your previous example did not properly scale to the vector's maximum size. I also added support for supplying a negative value for 'AT argument so that it actually offsets from the end, which is very usefull. vlength: func [v] [v: v * v square-root v/x + v/y] between: func [ {compute the specified point on the line} start [pair!] end [pair!] at [decimal! integer!] /local vector points ] [ ; solve "degenerate case" first if equal? start end [return start] vector: end - start if integer? at [ ; convert AT to decimal at: at / (to-integer vlength vector) ] if negative? at [ at: 1 + at ] start + to-pair reduce [to-integer vector/x * at to-integer vector/y * at] ] | 14-Feb-07 19:28 |
| 5 | Maxim | thanks I'll test it out shortly ! :-D | 13-Feb-07 19:10 |
| 4 | Ladislav | how about this? between: func [ {compute the specified point on the line} start [pair!] end [pair!] at [decimal! integer!] /local vector points ] [ ; solve "degenerate case" first if equal? start end [return start] vector: end - start if integer? at [ ; convert AT to decimal points: max abs vector/x abs vector/y at: at / points ] start + to pair! reduce [round vector/x * at round vector/y * at] ] | 13-Feb-07 17:08 |
| 3 | Maxim | actually the AT argument could be negative or larger than 1 (which indicates points beyond coords) and should also support an integer! , which would change the measure of 'AT to be pixels, instead of a scaling. | 13-Feb-07 15:58 |
| 2 | Maxim | does anyone have a fast function which will give me (any) point along the line which goes from one coord to another? X---------(o)---X the func spec would be: between [start [pair] end [pair] at [decimal!] ] where 'at is a decimal ranging from 0 to 1 | 13-Feb-07 15:55 |
| 1 | Maxim | LADISLAV POSTED THIS in rebgui group: this DISTANCE? version looks twice as fast as the one currently distributed: distance?: make function! [ "Returns the distance between two points." p1 [pair!] "First point" p2 [pair!] "Second point" ][ p1: p1 - p2 p1: p1 * p1 square-root p1/x + p1/y ] | 13-Feb-07 15:51 |