home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1995 August / IMM0895.BIN / magazin / optix / disk1 / optxppac.set / CMDWAHL.OPT < prev    next >
Text File  |  1995-05-05  |  4KB  |  183 lines
  1.  
  2. def(i)
  3. def(j)
  4. def(c)
  5. def(m)
  6. def(t)
  7. def(dum1)
  8. def(dum2)
  9. def(dum3)
  10.  
  11. defs(dum1$)
  12. defs(dum2$)
  13.  
  14. procedure cmd(xl,yo,dm,rot,blau,grau)
  15.  
  16.    rem ****************************************************
  17.    rem zeichnet ein CMD-Logo
  18.    rem xl,yo           = obere, linke Ecke
  19.    rem dm              = Durchmesser (Höhe) des Logos
  20.    rem rot, blau, grau = die drei Systemfarben aus der aktuellen Palette
  21.    rem der 'WIN'-Puffer ist anschließend verändert
  22.    rem ****************************************************
  23.  
  24.    locals(i,j,k,l,rad,lin)
  25.    rad := dm/2
  26.    lin := dm/30
  27.    copywin(xl+rad-lin-1,yo,xl+dm+(rad/2)+lin,yo+dm+1)
  28.    disk(xl+rad,yo+rad,rad,rot)
  29.    disk(xl+dm+(rad/2),yo+rad,rad,rot)
  30.    loadwin(xl+rad-lin-1,yo,0,0)
  31.    j := ((dm-(rad/2))/2+lin)*880/1000
  32.    k := dm+(rad/2)-2
  33.    setcolor(blau)
  34.    for i:= 0 to j-1 do
  35.      inc(l,4)
  36.      line(xl+rad+i+1,yo+(l/5),xl+rad+i+1,yo+dm-1,0)
  37.      line(xl+k-i+1,yo+(l/5),xl+k-i+1,yo+dm-1,0)
  38.    next(i)
  39.    disk(xl+rad-lin,yo+rad,dm*2/9,grau)
  40.    disk(xl+dm+(rad/2)+lin,yo+rad,dm*2/9,grau)
  41.  
  42. return
  43.  
  44. procedure dither(flg,x,y,c,d,r)
  45.   rem   *** zeichnet eine Dither-Block auf Hintergrund 4*(64*l)
  46.   rem   *** flg = verlauf v.oben nach unten (0) oder umgekehrt (1)
  47.   rem   *** x,y = X-/Y-Koord. f.linke, obere BoxEcke
  48.   rem   *** c   = Dither-Farbe       d   = Verlaufshöhe
  49.   rem   *** r   = Höhen-Raster (Ditherhöhe=64 * r)
  50.   rem   *** erwartet die glob.Var's  'DUM1$','DUM2$','DUM1','DUM2' u.'DUM3'
  51.   locals(i,j,k,l)
  52.   dum1$:='00 22 20 02 11 33 31 13 10 32 30 12 01 23 21 03 '
  53.   for i:=0 to d*r-1 do
  54.     for j:=0 to i/r do
  55.      dum2$:=dum1$
  56.      mid(dum2$,j*3+1,1)
  57.      val(dum2$,dum1,dum3)
  58.      dum2$:=dum1$
  59.      mid(dum2$,j*3+2,1)
  60.      val(dum2$,dum2,dum3)
  61.      if flg<>0
  62.        plotc(x+dum1,y+dum2+i*4,c)
  63.      else
  64.        plotc(x+dum1,y+d*r*4-1-dum2-i*4,c)
  65.      endif
  66.     next(j)
  67.   next(i)
  68. return
  69.  
  70. begin
  71.  
  72.   readfont(1,'hel15x29.fnt')
  73.   font(1)
  74.   textshadow(1,1)
  75.   writestyle(3)
  76.  
  77.   clearscreen(3)
  78.   dither(0,0,0,11,6,3)
  79.   copywin(0,0,3,80)
  80.   for i:=0 to 640 step 4 do
  81.     loadwin(i,0,0,0)
  82.   next(i)
  83.   dither(1,0,408,0,6,3)
  84.   copywin(0,408,3,479)
  85.   for i:=0 to 640 step 4 do
  86.     loadwin(i,408,0,0)
  87.   next(i)
  88.  
  89.   line(40,392,540,392,0)
  90.   textcolor(11)
  91.   textbcolor(15)
  92.   writestyle(2)
  93.   textspeed(600)
  94.  
  95.   readsound('boing.wav')
  96.   startsound
  97.  
  98.   printc(280,120,'CMD-Hochrechnung "OPTIX-Wahlen 1995"')
  99.   textcolor(15)
  100.   textbcolor(0)
  101.   gradation(16,21,11,9,1,56,45,0)
  102.   gradation(22,27,1,11,6,0,55,30)
  103.   gradation(28,33,12,3,12,63,15,63)
  104.  
  105.   for i:=0 to 20 do
  106.     setcolor(21)
  107.     line(160-i,350+i*2,220-i,350+i*2,0)
  108.     line(160-i,350+i*2+1,220-i,350+i*2+1,0)
  109.     setcolor(27)
  110.     line(260-i,350+i*2,320-i,350+i*2,0)
  111.     line(260-i,350+i*2+1,320-i,350+i*2+1,0)
  112.     setcolor(33)
  113.     line(360-i,350+i*2,420-i,350+i*2,0)
  114.     line(360-i,350+i*2+1,420-i,350+i*2+1,0)
  115.   next(i)
  116.   setcolor(20)
  117.   line(160-i,350+i*2+1,220-i,350+i*2+1,0)
  118.   setcolor(26)
  119.   line(260-i,350+i*2+1,320-i,350+i*2+1,0)
  120.   setcolor(32)
  121.   line(360-i,350+i*2+1,420-i,350+i*2+1,0)
  122.   setcolor(18)
  123.   line(220-i,350+i*2+1,220,350,0)
  124.   setcolor(24)
  125.   line(320-i,350+i*2+1,320,350,0)
  126.   setcolor(30)
  127.   line(420-i,350+i*2+1,420,350,0)
  128.  
  129.   pause(500)
  130.   keycol(3)
  131.   key(on)
  132.   setcolor(0)
  133.  
  134.   writestyle(3)
  135.  
  136.   printat(120,400,'Sonstige')
  137.   copywin(140,350,220,391)
  138.   startsound
  139.   for i:=0 to 130 do
  140.     line(220,350-i/3*2,220+i/3,350-i/3*2,0)
  141.     loadwin(140,350-i,0,0)
  142.   next(i)
  143.   printc(170,400-i+5,'23,7')
  144.  
  145.   printat(235,400,'Andere')
  146.   copywin(240,350,320,391)
  147.   startsound
  148.   for i:=0 to 90 do
  149.     line(320,350-i/3*2,320+i/3,350-i/3*2,0)
  150.     loadwin(240,350-i,0,0)
  151.   next(i)
  152.   printc(270,400-i+5,'16,2')
  153.  
  154.   readsound('capumusi.snd')
  155.   startsound
  156.   printat(340,400,'OPTIX')
  157.   copywin(340,350,420,391)
  158.   for i:=0 to 366 do
  159.     line(420,350-i/4*2,420+i/4,350-i/4*2,0)
  160.     loadwin(340,350-i,0,0)
  161.     pause(10)
  162.   next(i)
  163.   readsound('klirr.snd')
  164.   startsound
  165.   cmd(349-1,220-1,24,255,255,255)
  166.   cmd(349+1,220+1,24,0,0,0)
  167.   cmd(349  ,220  ,24,12,9,7)
  168.   textspeed(0)
  169.   for j:=0 to 10 do
  170.     textcolor(30)
  171.     printc(280,460,'CMD würde OPTIX nehmen!!')
  172.     printc(370,180,'51,9')
  173.     wait(100)
  174.     textcolor(15)
  175.     printc(280,460,'CMD würde OPTIX nehmen!!')
  176.     printc(370,180,'51,9')
  177.     wait(100)
  178.   next(j)
  179.  
  180.   sync(11000)
  181.  
  182. end
  183.