PICScript - Example Horizon Script

This example script demonstrates:

The declaration of two input horizons (surfacein) and the use of their aliases in a script
Use of the if () {} else {} function
Use of the isnopick() function

We have picked the Minerva horizon for our entire 3D. We also have picks for the bottom of a channel that crosses the 3D. We would like to produce a horizon that has the channel picks where they exist and the Minerva picks where we have no channel picks.

Colors have been added for this example. PICScript does not support colored text.

//HorizonScriptMode

//This is a comment line

//DECLARATION SECTION

//Declare input horizons and aliases

surfacein Minerva from time as main;

surfacein Bottom_Channel from time as channel;

//define the output attribute

output time;

//FUNCTION SECTION

//test "channel" to see if it has no pick

//if true (it has no pick),

// write a value from "main" to "time"

//if false (it does have a pick),

// write the value to "time"

func {

if (isnopick (channel)) {

time = main;

} else {

time = channel;

}

}