Hier sind: 

Inhalt
getlfreesprites
getfreikanal
listlabels
deletemarkers
zeitlog

Inhalt von Sprites & Labels vom. 28.03.98
  Übersicht  
 -- Tools for Sprites, Labels, Benchmarking 
  
  
 on getLFreeSprites  
   --   returns a list of empty sprites (D6) 
   --   gibt eine Liste freier Sprites 
  
 on getFreiKanal wo 
   --   returns the first or last empty sprite 
   --   gibt den ersten oder letzten freien Sprite 
  
 on listLabels  
   --sorgt   dafür, daß man mit "put getaprop(glplabels,marker(0))"  
   --den   Text des aktuellen Labels abfragen kann 
  
 on deleteMarkers  
   --   vorsicht, das vieh ist gruendlich! 
   --   delete all markers 
  
 on ZeitLog Param 
   --   log the ticks for simple benchmarking 
   --   Laufzeit testen 
 

Inhalt    top    Callers     
  
 on getLFreeSprites  
   -- returns a list of empty sprites (D6) 
   -- gibt eine Liste freier Sprites 
   set Lerg=[] 
   repeat with kanal=1  to 120 
     if the membernum of sprite kanal =0 and the puppet of sprite kanal = 0 then append Lerg,kanal 
   end repeat 
    
   return Lerg 
 end 
  
 

Inhalt    top    Callers     
  
 on getFreiKanal wo 
   -- returns the first or last empty sprite 
   -- gibt den ersten oder letzten freien Sprite 
   set LSprites=getLFreeSprites() 
    
   if wo=#top then 
     set erg=getLast(LSprites) 
   else 
     set erg=getat(LSprites,1) 
   end if 
    
   return erg 
 end 
  
  
 

Inhalt    top    Callers     
  
 on listLabels  
   --sorgt dafür, daß man mit "put getaprop(glplabels,marker(0))"  
   --den Text des aktuellen Labels abfragen kann 
   global gLpLabels 
   set gLplabels=[:] 
   repeat with i = 1 to the number of lines in the labellist 
     addprop gLpLabels,label(line i of the labellist),line i of the labellist 
   end repeat 
 end 
  
  
 

Inhalt    top    Callers     
  
 on deleteMarkers  
   -- vorsicht, das vieh ist gruendlich! 
   -- delete all markers 
    
   repeat while the number of lines of the labellist > 1 
     go frame (line 1 of the labellist) 
     set the framelabel = 0 
     updatestage 
   end repeat 
 end 
  
  
  
 

Inhalt    top    Callers     
  
 on ZeitLog Param 
   -- log the ticks for simple benchmarking 
   -- Laufzeit testen 
   global gVorZeit,gZeitleiste 
   set tmp=the timer 
   if voidP(gZeitleiste) then set gZeitleiste=[:] 
    
   if param=#Init then 
     set gVorZeit = tmp 
   else     
     --Zeit-Test 
     addProp gZeitleiste,Param,tmp - gVorZeit 
     put gZeitleiste 
   end if 
 end 
  
  
  
  
  
 -- /IHV  
  
 
 
 
  
 
 
  
 
 
  
 
 
  
 
 
  
 
 
  
 
 
  
 
 
  HTML created by dp tiny script documenting xtra v0.2 28.03.98
pageID=SpriteTools