home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Inside Multimedia 1995 August
/
IMM0895.ISO01.iso
/
magazin
/
optix
/
disk1
/
optxppac.set
/
CMDLOGO.OPT
< prev
next >
Wrap
Text File
|
1995-04-21
|
1KB
|
49 lines
def(i)
def(j)
def(loci)
def(locj)
def(lock)
def(locl)
procedure cmd(xl,yo,dm,rot,blau,grau)
rem ****************************************************
rem zeichnet ein CMD-Logo
rem xl,yo = obere, linke Ecke
rem dm = Durchmesser (Höhe) des Logos
rem rot, blau, grau = die drei Systemfarben aus der aktuellen Palette
rem der 'WIN'-Puffer ist anschließend verändert
rem ****************************************************
locals(rad,lin)
locl:=0
rad := dm/2
lin := dm/30
copywin(xl+rad-lin-1,yo,xl+dm+(rad/2)+lin,yo+dm+1)
disk(xl+rad,yo+rad,rad,rot)
disk(xl+dm+(rad/2),yo+rad,rad,rot)
loadwin(xl+rad-lin-1,yo,0,0)
locj := ((dm-(rad/2))/2+lin)*880/1000
lock := dm+(rad/2)-2
setcolor(blau)
for loci:= 0 to locj-1 do
inc(locl,4)
line(xl+rad+loci+1,yo+(locl/5),xl+rad+loci+1,yo+dm-1,0)
line(xl+lock-loci+1,yo+(locl/5),xl+lock-loci+1,yo+dm-1,0)
next(loci)
disk(xl+rad-lin,yo+rad,dm*2/9,grau)
disk(xl+dm+(rad/2)+lin,yo+rad,dm*2/9,grau)
return
begin
for i:= 1 to 3 do
cmd(10+i*30*i,10+i*30*i,i*60,12,9,7)
next(i)
pause(0)
end