home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1995 August / IMM0895.ISO01.iso / magazin / optix / disk1 / optxppac.set / STEMPEL.OPT < prev    next >
Text File  |  1995-05-05  |  3KB  |  132 lines
  1. def(i)
  2. def(j)
  3. def(k)
  4. def(l)
  5. def(flag)
  6.  
  7. begin
  8.  
  9.   rem ***************************************************************
  10.   rem *** Bei 'ACTIVEPAGE-tauglichen' Grafikkarten bitte dieses 'flag'
  11.   rem *** auf Null setzen, um zu sehen, wie's geht.
  12.  
  13.           flag:=1
  14.  
  15.   rem ***************************************************************++++
  16.  
  17.   readfont(1,'tri22n.fnt')
  18.   readsound('huii.snd')
  19.   setcolor(255)
  20.   font(1)
  21.   texttrnsp(off)
  22.   textcolor(0)
  23.   textbcolor(222)
  24.  
  25.     activepage(flag)
  26.  
  27.   fadeout(0)
  28.   keycol(160)
  29.   key(on)
  30.   readpic('rot_frog.bmp')
  31.  
  32.   clearscreen(100)
  33.   font(0)
  34.   sysfont(3,1)
  35.   printc(400,200,'Diese Aktionen finden bei')
  36.   printc(400,216,'geeigneten Grafikkarten')
  37.   printc(400,232,'unsichtbar in der ACTIVEPAGE(1)')
  38.   printc(400,248,'statt.')
  39.   sysfont(1,1)
  40.   loadwin(0,0,21,0)
  41.   loadwin(winx/4,0,21,0)
  42.   loadwin(winx/4*2,0,21,0)
  43.   scrtobuf
  44.   readpic('rot_frog.bmp')
  45.   key(off)
  46.   startsound
  47.   loadpic(0,0)
  48.  
  49.   printc(100,90,'1) Hintergrund "basteln"')
  50.  
  51.     pause(2001-2000*flag)
  52.  
  53.   font(1)
  54.  
  55.   gradation(240,254,2,3,18,32,51,63)
  56.   for i:=0 to 14 do
  57.    setcolor(240+i)
  58.    line(140,i*2,280,i*2,0)
  59.    line(140,i*2+1,280,i*2+1,0)
  60.    line(140,56-i*2,280,56-i*2,0)
  61.    line(140,56-i*2-1,280,56-i*2-1,0)
  62.   next(i)
  63.   setcolor(255)
  64.  
  65.     pause(2001-2000*flag)
  66.  
  67.   textw('OPTIX',i)
  68.   printat(10,300,'OPTIX')
  69.  
  70.   font(0)
  71.   printc(100,360,'2) Schriftzug deckend schreiben')
  72.  
  73.    pause(2001-2000*flag)
  74.  
  75.   copywin(10,300,10+i-1,332)
  76.   keycol(0)
  77.   key(on)
  78.  
  79.   loadwin(10,30,0,0)
  80.   loadwin(145,8,0,0)
  81.   copywin(10,30,10+i-1,62)
  82.   keycol(222)
  83.  
  84.   printat(10,120,'3) Stempel-"Maske" kopieren')
  85.   printat(10,130,'und mit TEXTCOLOR-')
  86.   printat(10,140,'KEYCOL auf Quell-Bild legen')
  87.  
  88.     pause(2001-2000*flag)
  89.  
  90.   viewport(260,170,600,260)
  91.   cbox(8,100,0)
  92.   activepage(0)
  93.  
  94.   setrgbcolor(20,20,20,240)
  95.   viewport(260,270,600,360)
  96.   cbox(5,240,10)
  97.   loadwin(300,300,8,120)
  98.  
  99.     activepage(flag)
  100.  
  101.   copywin(145,10,265,40)
  102.   printc(430,250,'4) mit TEXTBCOLOR-KEYCOL neuzeichnen')
  103.   activepage(0)
  104.  
  105.  
  106.   for i:=0 to 14 do
  107.    setcolor(240+i)
  108.    line(440,292+i*2,580,292+i*2,0)
  109.    line(440,292+i*2+1,580,292+i*2+1,0)
  110.    line(440,348-i*2,580,348-i*2,0)
  111.    line(440,348-i*2-1,580,348-i*2-1,0)
  112.   next(i)
  113.  
  114.   font(1)
  115.   texttrnsp(1)
  116.   textcolor(255)
  117.   textbcolor(0)
  118.   writestyle(3)
  119.   textshadow(2,2)
  120.   printat(450,300,'OPTIX')
  121.   printat(449,299,'OPTIX')
  122.   loadwin(450,302,8,220)
  123.  
  124.   font(0)
  125.   printc(430,280,'Text-Stanze     Relief-Prägung')
  126.  
  127.   pause(0)
  128.  
  129. end
  130.  
  131.  
  132.