procedure(abCreateOceanForm()
    let((temp high)
	temp=hiCreateFloatField(
	    ?name 'temp
	    ?value 27.0
	    ?prompt "Temperature"
	    )
	high=hiCreateFloatField(
	    ?name 'high
	    ?value 5.0
	    ?prompt "High Voltage"
	    )
	hiCreateAppForm(
	    ?name 'abOceanForm
	    ?formTitle "Set OCEAN Parameters"
	    ?fields
		list(
		    list(temp 0:0 400:30 100)
		    list(high 0:30 400:30 100)
		    )
	    ?callback 'abOceanFormCB
	    ) ; hiCreateAppForm
	) ; let
    ) ; procedure
	
procedure(abOceanFormCB(form)
    temp(form->temp->value)
    desVar("high" form->high->value)
    run()
    selectResults('tran)
    plot(v("/a") v("/b"))
    ; display form again? - this makes sure it is not
    ; called directly from the callback to avoid us getting too
    ; nested
    hiRegTimer("abDisplayOceanForm()" 0)
    ) ; procedure

procedure(abDisplayOceanForm()
    unless(boundp('abOceanForm)
	abCreateOceanForm())
    hiDisplayForm(abOceanForm)
    ) ; procedure

procedure(abSetupSimulation()
    simulator('spectre)
    design("./simulation/rcac/spectre/schematic/netlist/netlist")
    analysis('tran ?stop 200n)
    ; turn off info and warnings
    option(?categ 'analog 'info "no")
    option(?categ 'analog 'warn "no")
    ; display my form to ask the user to set variables/temperature
    abDisplayOceanForm()
    )