Keskustelu: Yleinen keskustelu: Moi! OhjelMoi!

Sallittaneen täällä pieni taiteen esittely? Onhan kuitenkin teos ohjelmoitu ja nimeltään "Moi! OhjelMoi!"

Saan animaatioteokseni esille Suomen Taiteilijat ry:n vuosinäyttelyyn. Teos on 32 minuuttia ja 50 sekuntia pitkä

https://youtu.be/FkNYtzQUJLk

Sitä esitetään NonStoppina Kaapelitehtaalla roudaamassani pikku televisiossa. Se sisältää noin 20 sekunnin pituisia erilaisia animaatioita, joita on siis huimat about 32*3=96 kpl.

Animaatiot ovat melko alkeellisia eivätkä vastaa ihan nykyaikaa, mutta silti itse tykkään.

Alustavat soundit myös on ohjelmoitu REBOL:lla tähän tapaan muun muassa:

rebol[]
print "Generating sounds..."

; Generate a ping waveform as a binary value:
make-ping: func [len pitch /local ping] [
    ping: copy #{}
    for amplitude len 1 -1 [
        for phase 1 360 pitch [
            val: 128 + to-integer 127 * sine phase
            val: amplitude * val / len
            append ping to-char val
        ]
    ]
    ping
]

x0: 20
r: 20
pings: copy[]
apuri: 1
for kierros 1 4 1 [
for dalfa 10 360 10 [
	alfa: 0
	while [alfa < (kierros * 360)][
		p: x0 + (r * cosine alfa) + apuri
		p2: x0 + (r * sine alfa) + apuri
		pingx: make-ping (to-integer p2)  (to-integer p)
		append pings pingx
		alfa: alfa + dalfa
	]
]
; Set up the sound sample parameters:
sample: make sound [
    rate: 44100 / 2
    channels: 1
    bits: 8
    volume: 0.5
    data: #{}
]
amount: length? pings
print amount
print "Arrange pings in a sequence:"
for kerta 1 10 1 [
	for ind 1 amount 1 [
	    append sample/data (pings/(ind))
	]
]
sound-port: open sound://
insert sound-port sample

wait sound-port
close sound-port

Tuo koodi tuottaa tällaiset soundit: https://petke.info/REBOLsoundeja.mp3

Olen sitten kovasti käsitellyt soundeja ilmaisella monipuolisella Audacity ohjelmalla: https://www.audacityteam.org/ mutta siis tuo yllä oleva on kokonaan tuolla yo ohjelmalla luotu eikä sitä olla käsitelty. Ohjelman tuottamat soundit olisivat jatkuneet vaikka kuinka pitkään, mutta panin .mp3 äänityksen poikki, vaikka kyllähän tuokin teos hieman muuttui kolmen minuutin kohdalla vaikka tuntui aluksi, että se junnaisi paikallaan. On kiva tutkia ja kokeilla mitä soundeja sattuu tulemaan. En minä tuota koodia ihan ymmärrä, mutta kunhan teen siihen muutoksia ja kuuntelen mitä se tuottaa.

Jaksoin nyt vasta vilkaista tätä, ja vaikutelmana oli huikea kokoelma 1990-luvun ”näytönsäästäjiä”. Osasta ei ihan tiedä, onko ne tehty tarkoituksella vai onko kyseessä onnekas vahinko jossain geometrisessa kaavassa. Liikesumennus (motion blur) tai edes korkeampi kuvataajuus (fps) tekisi tuosta vielä mukavamman katsoa. Harmi, että et ollut paikalla 12 vuotta sitten kilpailuissamme aiheista Säveltävä ohjelma ja Piirtävä ohjelma.