Knoeki strikes back with another lame piece of code...

usage:

/lsd-tunnel [w h]

width/height are optional, using anything higher than default does not guarantee a smooth experience.

(uncomment line 5 if you have whilefix.dll, which is highly reccomended)

EDIT: added a slightly different version... /lsd-tunnel2

alias lsd-tunnel {
   window -k0pdf @lsd-tunnel -1 -1 $iif($2 != $null, $1 $2, 320 200)
   var %count 2
   while (%count <= 14300) {
;      whilefix
      drawrot -fb @lsd-tunnel $rand(0,16777215) %count 0 0 $1 $2
      inc %count 2
   }
}

alias lsd-tunnel2 {
   window -k0pdf @lsd-tunnel -1 -1 $iif($2 != $null, $1 $2, 320 200)
   var %count 2
   var %subcount 0
   while (%count <= 14300) {
;      whilefix
      if (%subcount == 4) {
         var %direction 0
      }
      elseif (%subcount == 0) {
         var %direction 1
      }
      drawrot -fb @lsd-tunnel $rand(0,16777215) %subcount 0 0 $1 $2
      $iif(%direction == 1, inc, dec) %subcount 2
      inc %count 2
   }
}

alias -l whilefix {
   dll WhileFix.dll WhileFix .
}