Re: Remember the NSProgressIndicator OS X?

[Wouter]

Re: Remember the NSProgressIndicator OS X?
        •        From: Klaus Major
        •         Subject: Re: Remember the NSProgressIndicator OS X?
        •         Date: Fri, 16 Jul 2004 13:52:56 -0700
Hi Wouter,
actually it was me who posted this question long ago ;-)

snip
Wow, dat is heelemal COOL, hartelijk bedankt!!!!!
:-)
Greetings,
WA
Regards and groetjes
Klaus Major

Tnx to all responders.
A small update with a slightly different approach.
Better simulation, but still no antialiased graphics :-(
Less overhead, only 6 moving lines.
And well within the scriptlimits of "doing" things ( in the runLines 
handler :-)

constant cStar = "grc runningStarX"
local aPoints,runState,Cp
on mouseUp
  if runstate  = 0 then set the label of me to "Stop Running"
  else set the label of me to "Start Running"
  if runstate <> 0  then
    stopLines
    exit to top
  end if
  put the right of me + 20,item 2 of the loc of me into CP
  put 9 into runState
  delete var aPoints
  prepArray  13,7
  startLines
  runLines
end mouseUp
on runLines
  if runState <> 0 then
    do aPoints[runstate]
    if runstate = 12 then put 1 into runstate
    else add 1 to runState
    send "runLines" to me in 70 millisecs
  end if
end runLines
on stopLines
  repeat with i = 7 down to 1
    put cStar & i into tStar
    hide tSTar
    wait 50 millisecs
  end repeat
  put 0 into runState
  delete grp "runningStarX"
end stopLines
on startLines
  repeat 2
    put cStar & 7 into tZeroStar
    do aPoints[0]
    put 244 into tC
    set the colors of tZeroStar to tC,tC,tC
    show tZeroStar
    repeat with i = 1 to 6
      put cStar & i into tStar
      do aPoints[runstate]
      subtract 2 from tC
      set the colors of tZeroStar to tC,tC,tC
      if runstate = 12 then put 1 into runstate
      else add 1 to runState
      if not the visible of tStar then show tStar
      wait 70 millisecs
    end repeat
  end repeat
end startLines
on prepArray  tG,tK
  if there is no grp "runningStarX" then goCreateSome
  put item 1 of Cp into tX
  put item 2 of Cp into tY
  put (2 * pi / 12) into sRad
  repeat with i = 1 to 12
    put trunc(tG * cos (sRad * i)) + tX into a
    put trunc(tG * sin (sRad * i)) + tY into b
    put trunc(tK * cos (sRad * i)) + tX into c
    put trunc(tK * sin (sRad * i)) + tY into d
    put quote & a,b & quote && "& cr &" & quote& c,d & quote into 
aTemp[i]
  end repeat
  repeat with j = 1 to 12
    repeat with i = 1 to 6
      put cStar & i into tStar
      put j - i  + 1 into x
      if x <= 0 then add 12 to x
      put "set the points of" && the name of tStar && "to" && aTemp[x] 
after  aPoints[j]
    end repeat
    if j <> 1 then put  "& cr & cr &" & aTemp[j]   after aTemp[0]
    else put aTemp[j]   after aTemp[0]
  end repeat
  put cStar& "7" into tStar
  put "set the points of" && the name of tStar && "to" && aTemp[0]  & 
cr  into aPoints[0]
end prepArray

on goCreateSome
  put 220 into tC
  repeat with i = 7 down to 1
    put tC,tC,tC into tColors[i]
    subtract 20 from tC
  end repeat
  repeat with i = 7 down to 1
    put cStar&i into tStar
    do "create invisible" && tStar
    set the style of tStar to polygon
    set the linesize of tStar to 2
    set the colors of tStar to tColors[i]
    put the name of tStar && "and "  after tList
  end repeat
  delete last word of tList
  do "group" && tList
  set the name of last grp to "runningStarX"
  choose browse tool
end goCreateSome
Greetings,
WA
_______________________________________________
use-revolution mailing list
[EMAIL PROTECTED]
http://lists.runrev.com/mailman/listinfo/use-revolution