ARCHITECTURE sinusodial OF voltage_source IS
  QUANTITY v ACROSS i THROUGH lt TO rt;
BEGIN
  v == (amplitude * sin(k * MATH_2_PI * now)) + offset;
END architecture sinusodial;

ARCHITECTURE pulse OF voltage_source IS
  QUANTITY v ACROSS i THROUGH lt TO rt;
  SIGNAL source_sig: real := 0.0;
BEGIN
  p:PROCESS
  BEGIN
    source_sig <= (amplitude/2.0) + offset;
    WAIT FOR width;
    source_sig <= - (amplitude/2.0) + offset;
    WAIT FOR period - width;
  END process p;
  -- BREAK v => 0.0;
  
  v == source_sig;
  
END architecture pulse;