将此源码输出的折线改为输出直线

编写要求：

s1:zig(4,10),colorFF9933; polyline(refx(cross(s1,ref(s1,1)),1),l),linedot,colorFF9933; polyline(refx(cross(ref(s1,1),s1),1),h),linedot,colorFF9933;，此源码输出的为折现，我想改为输出直线，如何修改

解答：

?s1:zig(4,10);

s2:PEAK(4,10,1);