home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1995 July / IMM0795.ISO / demo / optix / optxfpac.set / SCHLOSS.OPT < prev    next >
Text File  |  1995-05-08  |  1KB  |  55 lines
  1.  
  2. procedure frame(xl,yo,xr,yu,col,dick)
  3.   rem ***  Erzeugt einen Rahmen m. den inneren Eckkoordinaten xl,yo,xr,yu
  4.   rem ***  und der Dicke 'dick'. Dabei wird bis zur halben Dicke
  5.   rem ***  des Rahmens jeder Linie fortlaufend ab der Farbe 'col' die
  6.   rem ***  jeweils folgende Farbe zugeordnet. Ab der halben Rahmendicke
  7.   rem ***  läuft die Farbzuordnung umgekehrt. Bei geeigneter Farbpalette
  8.   rem ***  kann so ein 'Rohrrahmen' erzeugt werden.
  9.   rem ***  z.B.:  GRADATION(240,249,12,24,15,24,48,30)
  10.   rem ***         FRAME(100,100,200,200,240,20)
  11.   rem ***
  12.   rem ***  nach Rückkehr ist SETCOLOR und VIEWPORT verändert.
  13.   locals(i,j)
  14.   viewport(xl,yo,xr,yu)
  15.   for i:=1 to dick/2 do
  16.     setcolor(col+i-1)
  17.     rectangle
  18.     incviewport
  19.   next(i)
  20.   if (dick/2)*2<>dick
  21.     incviewport
  22.   endif
  23.   for j:=1 to dick/2 do
  24.     setcolor(col+i-j)
  25.     rectangle
  26.     incviewport
  27.   next(j)
  28. return
  29.  
  30. begin
  31.  
  32.   readfont(1,'tri22n.fnt')
  33.   font(1)
  34.   textcolor(255)
  35.   textbcolor(0)
  36.   writestyle(3)
  37.   textshadow(2,2)
  38.   gradation(1,85,0,0,0,63,0,0)
  39.   gradation(86,172,63,0,0,63,63,0)
  40.   gradation(173,254,63,63,0,0,0,0)
  41.   frame(xmax/3,ymax/2,xmax-xmax/3,ymax/2,1,254)
  42.   readwin('schloss.tga')
  43.   keycol(254)
  44.   key(on)
  45.   loadwin(xmax/2-winx/2/100*90,50,31,0)
  46.   printc(xmax/2,20,'TRANSPARENZ-RELIEF')
  47.   repeat
  48.     rotpal(1,254)
  49.   until mousek <> keypressed
  50.  
  51. end
  52.  
  53.  
  54.  
  55.