[PD-cvs] pd/src desire.tk,1.1.2.375,1.1.2.376

[chunlee]

Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8278

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
leetspeak filter in proc say!!!!


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.375
retrieving revision 1.1.2.376
diff -C2 -d -r1.1.2.375 -r1.1.2.376
*** desire.tk	19 Aug 2006 15:35:02 -0000	1.1.2.375
--- desire.tk	19 Aug 2006 16:26:37 -0000	1.1.2.376
***************
*** 411,420 ****
  }
  
  proc say {k args} {
!   global text
    if {[llength $args]} {
      set text($k) [lindex $args 0]
    } {
!     if {[info exist text($k)]} {return $text($k)} {return "{{$k}}"}
    }
  }
--- 411,428 ----
  }
  
+ #temporary
+ set leet 1
+ 
  proc say {k args} {
!   global text leet
    if {[llength $args]} {
      set text($k) [lindex $args 0]
    } {
!     if {[info exist text($k)]} {
!         if {$leet} {
! 	set l33t [string map -nocase {a 4 e 3 t 7 s 5 i 1 o 0 g 9} $text($k)]
! 	return $l33t} else {return $text($k)}
! 	#return $text($k)
! 	} else {return "{{$k}}"}
    }
  }
***************
*** 957,963 ****
          default {concat 1}}]
  set look(minobjwidth) 21
- 
  set scale(canned) [list 25 33 50 75 100 125 150 200 250 300 400]
! set crosshair(hairstate) 1
  set crosshair(hairsnap) 1
  #-----------------------------------------------------------------------------------#
--- 965,970 ----
          default {concat 1}}]
  set look(minobjwidth) 21
  set scale(canned) [list 25 33 50 75 100 125 150 200 250 300 400]
! set crosshair(hairstaste) 1
  set crosshair(hairsnap) 1
  #-----------------------------------------------------------------------------------#