home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1995 August / IMM0895.BIN / magazin / optix / disk1 / optxppac.set / FRAME.INC < prev    next >
Text File  |  1995-04-27  |  1KB  |  42 lines
  1. procedure frame(xl,yo,xr,yu,col,dick)
  2.   rem ***  Erzeugt einen Rahmen m. den inneren Eckkoordinaten xl,yo,xr,yu
  3.   rem ***  und der Dicke 'dick'. Dabei wird bis zur halben Dicke
  4.   rem ***  des Rahmens jeder Linie fortlaufend ab der Farbe 'col' die
  5.   rem ***  jeweils folgende Farbe zugeordnet. Ab der halben Rahmendicke
  6.   rem ***  läuft die Farbzuordnung umgekehrt. Bei geeigneter Farbpalette
  7.   rem ***  kann so ein 'Rohrrahmen' erzeugt werden.
  8.   rem ***  z.B.:  GRADATION(240,249,12,24,15,24,48,30)
  9.   rem ***         FRAME(100,100,200,200,240,20)
  10.   rem ***
  11.   rem ***  nach Rückkehr ist SETCOLOR und VIEWPORT verändert.
  12.   locals(i,j)
  13.   viewport(xl,yo,xr,yu)
  14.   for i:=1 to dick/2 do
  15.     setcolor(col+i-1)
  16.     rectangle
  17.     incviewport
  18.   next(i)
  19.   if (dick/2)*2<>dick
  20.     incviewport
  21.   endif
  22.   for j:=1 to dick/2 do
  23.     setcolor(col+i-j)
  24.     rectangle
  25.     incviewport
  26.   next(j)
  27. return
  28.  
  29. begin
  30.  
  31.   clearscreen(8)
  32.  
  33.   gradation(100,120,10,8,12,50,40,63)
  34.   frame(100,100,200,200,100,40)
  35.   gradation(120,140,6,6,2,40,63,53)
  36.   frame(140,140,300,300,120,40)
  37.   gradation(140,160,10,6,6,63,42,42)
  38.   frame(40,40,400,400,140,40)
  39.  
  40. end
  41.  
  42.