static void shiftX (I, double xfrom, double xto) {
iam (Sampled);
inherited (Sampled) shiftX (me, xfrom, xto);
NUMshift (& my x1, xfrom, xto);
}
void structPointProcess :: v_shiftX (double xfrom, double xto) {
PointProcess_Parent :: v_shiftX (xfrom, xto);
for (long i = 1; i <= nt; i ++) {
NUMshift (& t [i], xfrom, xto);
}
}
void structSampled :: v_shiftX (double xfrom, double xto) {
Sampled_Parent :: v_shiftX (xfrom, xto);
NUMshift (& our x1, xfrom, xto);
}
