.PS
cct_init

# Usual defs...
qrt=dimen_/4;
hlf=dimen_/2;
dim=dimen_;

Org: Here
bit=10mm__

# Bit timings. (I LOVE THIS BLOODY PACKAGE!!! Try this in any ``Cad''
# affair!!!!!!!!!!!!!!
{line up_ 1mm__}
for i = 1 to 10 do{
  line right_ bit
  {line up_ 1mm__}
  {sprintf("%g", i) at 2nd last line.center+(0,3mm__) }
}

# 1101011000 (Data Stream)---I should do this with a for too :-)
move to Org+(0,-5mm__)
{right_; "Data " rjust_ at Here+(0,-bit/2)}
line right_ 2*bit then down_ bit then right_ bit then up_ bit\
  then right_ bit then down_ bit then right_ bit then up_ bit\
  then right_ 2*bit then down_ bit then right 3* bit

# ASK (Sneaky zero: line to :-)
move to Org+(0,-25mm__)
SinOrg:Here
{right_; "ASK " rjust at Here}
for i = 0*bit to 2*bit by bit/20 do {
  line to (i,SinOrg.y+0.5*bit*sin(i*(4*pi_)/bit))
}
for i = 3*bit to 4*bit by bit/20 do {
  line to (i,SinOrg.y+0.5*bit*sin(i*(4*pi_)/bit))
}
for i = 5*bit to 7*bit by bit/20 do {
  line to (i,SinOrg.y+0.5*bit*sin(i*(4*pi_)/bit))
}
line to (10*bit,SinOrg.y)


# FSK 
move to Org+(0,-40mm__)
SinOrg:Here
{right_; "FSK " rjust at Here}
for i = 0*bit to 2*bit by bit/20 do {
  line to (i,SinOrg.y+0.5*bit*sin(i*(4*pi_)/bit))
}
for i = 2*bit to 3*bit by bit/20 do {
  line to (i,SinOrg.y+0.5*bit*sin(i*(2*pi_)/bit))
}
for i = 3*bit to 4*bit by bit/20 do {
  line to (i,SinOrg.y+0.5*bit*sin(i*(4*pi_)/bit))
}
for i = 4*bit to 5*bit by bit/20 do {
  line to (i,SinOrg.y+0.5*bit*sin(i*(2*pi_)/bit))
}
for i = 5*bit to 7*bit by bit/20 do {
  line to (i,SinOrg.y+0.5*bit*sin(i*(4*pi_)/bit))
}
for i = 7*bit to 10*bit by bit/20 do {
  line to (i,SinOrg.y+0.5*bit*sin(i*(2*pi_)/bit))
}

# PSK 
move to Org+(0,-55mm__)
SinOrg:Here
{right_; "PSK " rjust at Here}
for i = 0*bit to 2*bit by bit/20 do {
  line to (i,SinOrg.y+0.5*bit*sin(i*(4*pi_)/bit))
}
for i = 2*bit to 3*bit by bit/20 do {
  line to (i,SinOrg.y-0.5*bit*sin(i*(4*pi_)/bit))
}
for i = 3*bit to 4*bit by bit/20 do {
  line to (i,SinOrg.y+0.5*bit*sin(i*(4*pi_)/bit))
}
for i = 4*bit to 5*bit by bit/20 do {
  line to (i,SinOrg.y-0.5*bit*sin(i*(4*pi_)/bit))
}
for i = 5*bit to 7*bit by bit/20 do {
  line to (i,SinOrg.y+0.5*bit*sin(i*(4*pi_)/bit))
}
for i = 7*bit to 10*bit by bit/20 do {
  line to (i,SinOrg.y-0.5*bit*sin(i*(4*pi_)/bit))
}

"\tiny XSK" at (100mm__,-65mm__)
.PE