home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1995 August / IMM0895.ISO01.iso / magazin / optix / disk1 / optxppac.set / MOLLEFEM.OPT < prev    next >
Text File  |  1995-04-29  |  2KB  |  110 lines
  1.  
  2. def(i)
  3. def(j)
  4.  
  5. procedure quattro(x,y,b,h,s)
  6.   locals(i,r)
  7.   b:=b/2
  8.   h:=h/2
  9.   for i:=0 to b-1 step s do
  10.     r:=i*(((h/b)*10)/10)
  11.     copywin(x+1  ,y+1,x+(b-1)-i,y+(h-1)-r)
  12.     loadwin(x,y,0,0)
  13.     copywin(x+b+i,y+1,x+b+i-1+(b-1)-i,y+(h-1)-r)
  14.     loadwin(x+b+1+i,y,0,0)
  15.     copywin(x+1,y+h+r,x+(b-1)-i,y+h+r-1+(h-1)-r)
  16.     loadwin(x,y+h+1+r,0,0)
  17.     copywin(x+b+i,y+h+r,x+b+i-1+(b-1)-i,y+h+r-1+(h-1)-r)
  18.     loadwin(x+b+1+i,y+h+1+r,0,0)
  19.   next(i)
  20. return
  21.  
  22. procedure frame(xl,yo,xr,yu,col,dick)
  23.   rem ***  Erzeugt einen Rahmen m. den inneren Eckkoordinaten xl,yo,xr,yu
  24.   rem ***  und der Dicke 'dick'. Dabei wird bis zur halben Dicke
  25.   rem ***  des Rahmens jeder Linie fortlaufend ab der Farbe 'col' die
  26.   rem ***  jeweils folgende Farbe zugeordnet. Ab der halben Rahmendicke
  27.   rem ***  läuft die Farbzuordnung umgekehrt. Bei geeigneter Farbpalette
  28.   rem ***  kann so ein 'Rohrrahmen' erzeugt werden.
  29.   rem ***  z.B.:  GRADATION(240,249,12,24,15,24,48,30)
  30.   rem ***         FRAME(100,100,200,200,240,20)
  31.   rem ***
  32.   rem ***  nach Rückkehr ist SETCOLOR und VIEWPORT verändert.
  33.   locals(i,j)
  34.   viewport(xl,yo,xr,yu)
  35.   for i:=1 to dick/2 do
  36.     setcolor(col+i-1)
  37.     rectangle
  38.     incviewport
  39.   next(i)
  40.   if (dick/2)*2<>dick
  41.     incviewport
  42.   endif
  43.   for j:=1 to dick/2 do
  44.     setcolor(col+i-j)
  45.     rectangle
  46.     incviewport
  47.   next(j)
  48. return
  49.  
  50. begin
  51.  
  52. setvol(11)
  53. readsound('1234.snd')
  54.  
  55. readpal('mollefem.pal')
  56. setallpal
  57. gradation(246,255,0,0,0,10,63,10)
  58. gradation(236,245,0,0,0,10,63,10)
  59.  
  60. frame(26,22,26,22,246,20)
  61. copywin(6,2,45,41)
  62. for i:=6 to 566 step 40 do
  63.    for j:=2 to 402 step 40 do
  64.      loadwin(i,j,0,0)
  65.    next(j)
  66. next(i)
  67.  
  68. frame(66,62,66,62,236,20)
  69. copywin(46,42,85,81)
  70. for i:=46 to 526 step 40 do
  71.    for j:=42 to 362 step 40 do
  72.      loadwin(i,j,0,0)
  73.    next(j)
  74. next(i)
  75.  
  76. quattro(46,42,160,160,3)
  77. quattro(46,282,160,160,3)
  78. quattro(446,42,160,160,3)
  79. quattro(446,282,160,160,3)
  80.  
  81. for i:=0 to 54 do
  82.    gradation(236,245,0,0,0,i,13,60-i)
  83.    pause(30)
  84. next(i)
  85.  
  86. viewport(88,48,542,412)
  87. cbox(5,255,1)
  88. frame(88,48,542,412,246,20)
  89.  
  90. readfont(1,'bit16x16.FNT')
  91. font(1)
  92. textcolor(116)
  93. textbcolor(100)
  94. textshadow(1,1)
  95. writestyle(3)
  96. printc(320,70,'Multimedia')
  97. textbcolor(144)
  98. printc(320,425,'zum Selbermachen...')
  99. viewport(120,95,535,400)
  100. cbox(9,0,0)
  101.  
  102. readfilm('mollefem.mvi')
  103. soundloop(1)
  104. startsound
  105. showfilm(110,85,0,20)
  106.  
  107.  
  108.  
  109. end
  110.