Inspired by [url=https://www.geogebra.org/u/jotab]Jean-Baptiste Etienne[br][br][/url]From [url=https://www.geogebra.org/m/xebcyrrk]Des prismes de hauteurs dymamiques ![/url]

[code][/code][code]speed = 1[br]t = Slider(0, 2pi, 0.01, speed, 200, false, true, false, false)[br]f(x, y) = 1.5 * sin(1/4x - 1/4y) cos(1/4x + 1/4y + t)[br][br]A1 = (0, 1)[br]A2 = (1, 1)[br]A3 = (1, 0)[br]A4 = (0, 0)[br][br]s1 = Polygon(A1, A2, A3, A4)[br][br]n = 6[br]Ln = -n...n[br]LV = Flatten( Zip(Zip(Vector((0, 0, 0), (j, k, f(j, k))), k, Ln), j, Ln) )[br]LT = Zip( Translate(s1, vec), vec, LV ) [br][br]SetActiveView( -1 )[br]SetBackgroundColor( "Black" )[br]StartAnimation(t, true)[br][br]#---Extra Settings---#[br][br]SetVisibleInView(f, -1, false)[br][br]SetVisibleInView(A1, -1, false)[br]SetVisibleInView(A2, -1, false)[br]SetVisibleInView(A3, -1, false)[br]SetVisibleInView(A4, -1, false)[br]SetVisibleInView(A1, 1, false)[br]SetVisibleInView(A2, 1, false)[br]SetVisibleInView(A3, 1, false)[br]SetVisibleInView(A4, 1, false)[br][br]SetVisibleInView(s1, -1, false)[br]SetVisibleInView(s1, 1, false)[br]SetVisibleInView(a1, 1, false)[br]SetVisibleInView(a2, 1, false)[br]SetVisibleInView(a3, 1, false)[br]SetVisibleInView(a4, 1, false)[br]SetVisibleInView(a1, -1, false)[br]SetVisibleInView(a2, -1, false)[br]SetVisibleInView(a3, -1, false)[br]SetVisibleInView(a4, -1, false)[/code]