home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1995 August / IMM0895.BIN / magazin / optix / disk1 / optxppac.set / CMDLOGO.OPT < prev    next >
Text File  |  1995-04-21  |  1KB  |  49 lines
  1.  
  2. def(i)
  3. def(j)
  4.  
  5. def(loci)
  6. def(locj)
  7. def(lock)
  8. def(locl)
  9.  
  10. procedure cmd(xl,yo,dm,rot,blau,grau)
  11.  
  12.    rem ****************************************************
  13.    rem zeichnet ein CMD-Logo
  14.    rem xl,yo           = obere, linke Ecke
  15.    rem dm              = Durchmesser (Höhe) des Logos
  16.    rem rot, blau, grau = die drei Systemfarben aus der aktuellen Palette
  17.    rem der 'WIN'-Puffer ist anschließend verändert
  18.    rem ****************************************************
  19.  
  20.    locals(rad,lin)
  21.    locl:=0
  22.    rad := dm/2
  23.    lin := dm/30
  24.    copywin(xl+rad-lin-1,yo,xl+dm+(rad/2)+lin,yo+dm+1)
  25.    disk(xl+rad,yo+rad,rad,rot)
  26.    disk(xl+dm+(rad/2),yo+rad,rad,rot)
  27.    loadwin(xl+rad-lin-1,yo,0,0)
  28.    locj := ((dm-(rad/2))/2+lin)*880/1000
  29.    lock := dm+(rad/2)-2
  30.    setcolor(blau)
  31.    for loci:= 0 to locj-1 do
  32.      inc(locl,4)
  33.      line(xl+rad+loci+1,yo+(locl/5),xl+rad+loci+1,yo+dm-1,0)
  34.      line(xl+lock-loci+1,yo+(locl/5),xl+lock-loci+1,yo+dm-1,0)
  35.    next(loci)
  36.    disk(xl+rad-lin,yo+rad,dm*2/9,grau)
  37.    disk(xl+dm+(rad/2)+lin,yo+rad,dm*2/9,grau)
  38.  
  39. return
  40.  
  41. begin
  42.  
  43.   for i:= 1 to 3 do
  44.     cmd(10+i*30*i,10+i*30*i,i*60,12,9,7)
  45.   next(i)
  46.   pause(0)
  47.  
  48. end
  49.