PC World Komputer 1996 May/PCW596.iso/polskie/eduk/genfast/genfast.lzh/DEMO_03.PAK/SYMU_20T.DA_

INI File | 1996-02-08 | 3KB | 162 lines

[1!]

@SetColors(0,0);

@Line(50,270,50,1);
@Line(50,150,220,150);
@Line(420,150,600,150);
@Line(45,5,50,1);
@Line(55,5,50,1);
@Line(592,145,600,150);
@Line(592,155,600,150);

@SetPosition(10,1);
@FastWrite('150%');
@SetPosition(10,47);
@FastWrite('100%');
@SetPosition(15,97);
@FastWrite('50%');
@SetPosition(25,147);
@FastWrite('0%');
@SetPosition(10,197);
@FastWrite('-50%');
@SetPosition(10,247);
@FastWrite('-100%');
@SetPosition(605,158);
@FastWrite('t');

@SetColors(0,0);
@SetPosition(60,271);
@FastWrite('Wzmocnienie');
@SetPosition(75,281);
@FastWrite('w [dB]');

@SetPosition(485,271);
@FastWrite('Przesuniæcie');
@SetPosition(505,281);
@FastWrite('czasowe');
@SetPosition(519,291);
@FastWrite('[ns]');

@L:=0
@J:=0
@SetColors(8,15);
@DrawButton(40,300,70,320,5,500,'<','');
@SetColors(13,0);
@Bar(72,300,118,320);
@SetColors(0,0);
@WriteValue(72,300,118,320,0,1,%J);
@SetColors(8,15);
@DrawButton(120,300,150,320,5,501,'>','');

@DrawButton(470,300,500,320,5,502,'<','');
@SetColors(13,0);
@Bar(502,300,568,320);
@SetColors(0,0);
@WriteValue(502,300,568,320,0,1,%L);
@SetColors(8,15);
@DrawButton(570,300,600,320,5,503,'>','');

@DrawButton(260,300,360,320,5,504,'RYSOWANIE','');

@ShowScreen;

@SetColors(0,0);
@A:=0
@E:=150
@B:=0
@Repeat:200
@Line(50,150,600,150);
@C:=sin(3.14159*%A/200)
@K:=%C*%C*100
@C:=%K
@Line(%A+220,%E,%A+221,150-%C);
@E:=150-%C
@If (%B=10) then GoSub:507;
@A:=%A+1
@B:=%B+1
@Next;

[3]
@CheckEvents;

[500]
@If (%J=-9) then GoTo:3;
@J:=%J-0.5
@SetColors(13,0);
@Bar(72,300,118,320);
@SetColors(0,0);
@WriteValue(72,300,118,320,0,1,%J);
@GoTo:3

[501]
@If (%J=9) then GoTo:3;
@J:=%J+0.5
@SetColors(13,0);
@Bar(72,300,118,320);
@SetColors(0,0);
@WriteValue(72,300,118,320,0,1,%J);
@GoTo:3

[502]
@If (%L=-1000) then GoTo:3;
@L:=%L-50
@SetColors(13,0);
@Bar(502,300,568,320);
@SetColors(0,0);
@WriteValue(502,300,568,320,0,1,%L);
@GoTo:3

[503]
@If (%L=1000) then GoTo:3;
@L:=%L+50
@SetColors(13,0);
@Bar(502,300,568,320);
@SetColors(0,0);
@WriteValue(502,300,568,320,0,1,%L);
@GoTo:3

[504]
@Clear(220,1,420,259);
@SetColors(0,0);
@GoTo:521

[507]
@Line(221+%A,150,221+%A,150-%C);
@B:=0;
@Return;

[521]
@G:=((%J*5.5/100)+1)*100
@H:=%L/2500
@SetColors(0,0);
@A:=0
@E:=150
@F:=150
@B:=0
@Repeat:200
@C:=sin(3.14159*%A/200)
@I:=%C*%C
@C:=%I*%G
@Line(%A+220,%E,%A+221,150-%C);
@E:=150-%C
@D:=(sin(3.14159*%A/100)*%G*%H)-((%G-100)*%I)
@If (%D>%C) then GoTo:531;
[532]
@Line(%A+220,%F,%A+221,150-%D);
@F:=150-%D
@If (%B=10) then GoTo:530;
[522]
@A:=%A+1
@B:=%B+1
@Next;
@GoTo:3

[530]
@Line(%A+221,150-%D,%A+221,150-%C);
@B:=0
@GoTo:522

[531]
@D:=%C
@GoTo:532