entity/ent(1000),obj(1000)

number/mat(12)

l1:

ident/ select objects to transform ,ent,cnt,num,rsp

jump/l1:,trm:,,rsp

l2:

gpos/ select reference point ,x1,y1,z1,rsp

jump/l1:,trm:,,rsp

l3:

gpos/ select next point ,x2,y2,z2,rsp

jump/l2:,trm:,,rsp

l4:

x=x2-x1

y=y2-y1

z=z2-z1

mat=matrix/transl,x,y,z

obj=transf/mat,ent(1..num)

jump/l3:

trm:

halt-entity/ent (1000), obj (1000) number/mat (12) l1: ident/select objects to transform, ent, cnt, num, rspjump/l1:, trm:,, rspl2: gpos/select reference point, x1 , y1, z1, rspjump/l1:, trm:,, rspl3: gpos/select next point, x2, y2, z2, rspjump/l2:, trm:,, rspl4: x = x2-x1y = y2-y1z = z2-z1mat = matrix/transl, x, y, zobj = transf/mat, ent (1 .. num) jump/l3: trm: halt