@verb #2711:"gasket" any any any rdo #9620
@program #2711:"gasket" any any any
centrex = 43
centrey = centrex
pointx1 = centrex
pointy1 = centrey - 39
pointx2 = centrex + 36
pointy2 = centrey + 17
pointx3 = centrex - 36
pointy3 = pointy2
"draw Tri"
this:line(pointx1, pointy1, pointx2, pointy2)
this:line(pointx2, pointy2, pointx3, pointy3)
this:line(pointx3, pointy3, pointx1, pointy1)
"INI"
oldpointx = pointx1
oldpointy = pointy1
for i in [1..toint(argstr)]
  rndpoint = random(3)
  if (rndpoint == 1)
    newpointx = pointx1
    newpointy = pointy1
  endif
  if (rndpoint == 2)
    newpointx = pointx2
    newpointy = pointy2
  endif
  if (rndpoint == 3)
    newpointx = pointx3
    newpointy = pointy3
  endif
  vpointx = (oldpointx + newpointx) / 2
  vpointy = (oldpointy + newpointy) / 2
  this:point(vpointx, vpointy)
  oldpointx = vpointx
  oldpointy = vpointy
endfor
"Last modified by velusip (#9620) on Tue Feb 24 13:21:21 2004 MST."
.