Code

[akevalion]

canvas := RSCanvas new.
canvas color: Color black.
polygons := OrderedCollection new.
radius := 18.
altitude := 3 sqrt * radius.
total := 18.
cos := (1/3 * Float pi) cos.
svg := RSSVGPath new.
path := ''.
hex := [ 
	| points |
	points := (0 to: Float twoPi by: Float twoPi / 6) allButLast 
		collect: [ :a | (a sin@a cos) * radius ].
		
	RSPolygon new
		points: points;
		yourself.
	 ].

(total negated to: total) do: [ :x |
	| y1 y2 |
	y1 := total negated max: x negated - total.
	y2 := total min: total - x.
	(y1 to: y2) do: [ :y |
		| xx yy poly pts |
		xx := (x * altitude) + (cos * y * altitude).
		yy := y * radius * 1.5.
		poly := (hex value position: xx @ yy).
		polygons add: poly.
		pts := poly points collect: [ :pt | pt + poly position ].
		path := path , 'M ', pts first x asString, ' ', pts first y asString. 
		pts allButFirst do: [ :pt | path := path , ' L ', pt x asString, ' ', pt y asString ].
		path := path , ' Z '.
	]
].
svg svgPath: path.
paint := LinearGradientPaint fromArray: { 
	0 -> Color transparent.
	0.5 -> Color blue translucent.
	1 -> Color transparent }.
paint start: svg extent / -2.0; stop: svg extent / 2.0.
svg noPaint; border: (RSBorder new width: 3; color: paint).
canvas newAnimation 
	repeat;
	duration: 4 seconds;
	onStepDo: [ :t | paint colorRamp at: 2 put: t->Color blue translucent ].


canvas addAll: polygons.
canvas add: svg.
mouseX := 600.
canvas when: RSMouseMove do: [ :evt | mouseX := evt position x ].
update := [ :t |
	polygons do: [ :p |
		| angle distance satu |
		angle := (p position transposed angle + t) / Float twoPi.
		distance := 1- (p position r/ (altitude * total)).
		satu := mouseX abs / canvas extent x.
		p color: (Color h: angle * 360 s: satu v: distance*0.95+ 0.05)
	].
	canvas signalUpdate ].
canvas newAnimation
	loops: 7;
	easing: RSEasing backOut;
	from: 0; to: Float twoPi;
	duration: 2 seconds;
	onStepDo: update.
(canvas animationFrom: { 
	canvas transitionAnimation
		easing: RSEasing backOut;
		duration: 900 milliSeconds;
		from: Float twoPi; to: 0;
		onStepDo: update.
	canvas transitionAnimation
		easing: RSEasing backOut;
		from: 0; to: Float twoPi;
		duration: 900 milliSeconds;
		onStepDo: update.
}) repeat; delay: 14 seconds.
"(SampledSound soundNamed: 'getaway') play."
canvas @ RSCanvasController.
canvas open
	setLabel: 'Getaway HEX';
	extent:  1280@720.

[akevalion]

canvas := RSCanvas new.
canvas color: Color black.
polygons := OrderedCollection new.
radius := 18.
altitude := 3 sqrt * radius.
total := 18.
cos := (1/3 * Float pi) cos.
svg := RSSVGPath new.
path := ''.
hex := [ 
	| points |
	points := (0 to: Float twoPi by: Float twoPi / 6) allButLast 
		collect: [ :a | (a sin@a cos) * radius ].
		
	RSPolygon new
		points: points;
		yourself.
	 ].

(total negated to: total) do: [ :x |
	| y1 y2 |
	y1 := total negated max: x negated - total.
	y2 := total min: total - x.
	(y1 to: y2) do: [ :y |
		| xx yy poly pts |
		xx := (x * altitude) + (cos * y * altitude).
		yy := y * radius * 1.5.
		poly := (hex value position: xx @ yy).
		polygons add: poly.
		pts := poly points collect: [ :pt | pt + poly position ].
		path := path , 'M ', pts first x asString, ' ', pts first y asString. 
		pts allButFirst do: [ :pt | path := path , ' L ', pt x asString, ' ', pt y asString ].
		path := path , ' Z '.
	]
].
svg svgPath: path.
paint := LinearGradientPaint fromArray: { 
	0 -> Color transparent.
	0.25 -> Color transparent.
	0.5 -> Color white translucent.
	0.75 -> Color transparent.
	1 -> Color transparent }.
paint start: svg extent / -2.0; stop: svg extent / 2.0.
svg noPaint; border: (RSBorder new width: 3; color: paint).
canvas newAnimation 
	repeat;
	duration: 229 milliSeconds;
	onStepDo: [ :t | paint colorRamp
		at: 2 put: (t - 0.25) ->Color transparent; 
		at: 3 put: t->Color white translucent;
		at: 4 put: (t+0.25)->Color transparent ].
composite := RSComposite new.
canvas add: composite.
composite addAll: polygons.
composite adjustToChildren.
composite add: svg.
satu := 1.
update := [ :t |
	polygons do: [ :p |
		| angle distance |
		angle := (p position transposed angle + t) / Float twoPi.
		distance := 1- (p position r/ (altitude * total)).		
		p color: (Color h: angle * 360 s: satu v: distance*0.95+ 0.05)
	].
	canvas signalUpdate ].

update value: 0.



shadow := hex value.
shadow noPaint.
canvas add: shadow.
shadow pushBack.
shadow border: (RSBorder new width: 10).
currentLoop := 0.

canvas newAnimation
	duration: 229 milliSeconds;
	loops: 32*7.3;
	from: svg extent x * 0.3;
	to: svg extent x * 1.3;
	onStepDo: [ :t |
		(currentLoop between: 32*3.5 and: 32*5.5)
			ifTrue: [ shadow size: 10 ]
		ifFalse: [ 
			shadow border color: (Color h: currentLoop * 360 / 32 s: 0.5 v: 0.5).
			shadow size: t.
		] 
		 ];
	when: RSAnimationLoopEvent do: [ :evt | 
		currentLoop := evt currentLoop ].
inc := Float twoPi / 6.


0 to: 64 do: [ :i |
	
	canvas newAnimation
		duration: 916 milliSeconds;
		delay: (i * 916) milliSeconds;
		easing: RSEasing bounceOut;	
		from: i * inc;
		to: (i +1) * inc;
		onStepDo: [ :t |
			| p |
			p := composite position.
			composite matrix
				loadIdentity;
				translation: p;
				rotateByRadians: t.
		].
	
].

canvas newAnimation
	delay: 57.66666 seconds;
	duration: 2.5 seconds; 
	from: 1;
	to: 0;
	onStepDo: [ :t | 
		shadow size: 10.
		satu := t.
		update value: 0 ].
canvas @ RSCanvasController new noLegend.
canvas.
canvas videoExporter
	duration: (8 * 8+3) seconds;
	keepTempDir;
	p2160;
	export