File: diffraction.tao

package info (click to toggle)
taopm 1.0-7
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 6,972 kB
  • sloc: sh: 9,809; cpp: 5,161; yacc: 2,298; lex: 464; makefile: 434; ansic: 57
file content (35 lines) | stat: -rwxr-xr-x 1,067 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Audio rate: 44100;

Rectangle source(150 Hz, 300 Hz, 20 secs);
Rectangle dest(150 Hz, 300 Hz, 20 secs);

Init:
    source.lockCorners();
    dest.lockCorners();

    source.lock(0.000000, 0.050000, top, top);
    source.lock(0.070000, 0.120000, top, top);
    source.lock(0.140000, 0.190000, top, top);
    source.lock(0.210000, 0.260000, top, top);
    source.lock(0.280000, 0.330000, top, top);
    source.lock(0.350000, 0.400000, top, top);
    source.lock(0.420000, 0.470000, top, top);
    source.lock(0.490000, 0.540000, top, top);
    source.lock(0.560000, 0.610000, top, top);
    source.lock(0.630000, 0.680000, top, top);
    source.lock(0.700000, 0.750000, top, top);
    source.lock(0.770000, 0.820000, top, top);
    source.lock(0.840000, 0.890000, top, top);
    source.lock(0.910000, 0.960000, top, top);
    source.lock(0.980000, 1.000000, top, top);

    Join source(centre, top) to dest(centre, bottom);

    dest.setMagnification(5.0);
    ...

Score 5 secs:
    At 0 secs for 0.1 msecs:
        source(0.5,bottom).applyForce(50);
	...
    ...