home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1995 July / IMM0795.ISO / demo / optix / optxfpac.set / FRAME.INC < prev    next >
Text File  |  1995-04-05  |  909b  |  28 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.