REVO2700 spikes 1 ,, z m U Lucida Grande cREVGeneral scripteditorvscroll 0breakpointconditions scripteditorselection 0breakpoints breakpointstates stackfileversion 2.7 cREVGeometryCache stackID 1733 @ cREVGeometryCacheIDs 1199645597648 10031199646146308 10061199663423168 12761199662705716 10121199662341793 10101199661713351 10081199662731360 10141199645669006 1005 cREVGeometrycache total 8order spikes K U W l S ! S l cREVGeneral revUniqueID 1199646146308 circle K p : h cREVGeneral revUniqueID 1199645597648 i p m cREVGeneral revUniqueID 1199663423168 do spikes EpIon mouseUp put field "number" into theSpikes repeat until 360 mod theSpikes = 0 add one to theSpikes end repeat put theSpikes into field "number" put the width of graphic "circle" div 2 into theRad put the loc of graphic "circle" into theLoc put 360 div theSpikes into theAngle repeat for theSpikes times add theAngle to theArc put pointOnCircle(theLoc,theArc,theRad) & return after thePoints end repeat put char 1 to -2 of thePoints into thePoints put line -1 of thePoints & return & thePoints & return & line 1 of thePoints into theCompare repeat with x = 1 to the number of lines in thePoints put line x of theCompare & return & line x + 2 of theCompare into arrayPoints[line x of thePoints] end repeat put the keys of arrayPoints & return & "-" & return & thePoints repeat for each line theKey in thePoints put arrayPoints[theKey] into currPoints put currPoints put pointonline(theKey, line 1 of currPoints,distance(theKey, line 1 of currPoints) div 3) & return after newPoints put pointonline(theKey, theLoc,-(distance(theKey, theLoc) div 3)) & return after newPoints put pointonline(theKey, line 2 of currPoints,distance(theKey, line 2 of currPoints) div 3) & return after newPoints end repeat set the points of graphic "spikes" to newPoints & line 1 of newPoints end mouseUp vV R 2 cREVGeneral scriptChecksum ZqyyKv?handlerList mouseUpscriptSelection char 1229 to 1228revUniqueID 1199645669006 bookmarks scripteditorvscroll 0scripteditorselection 0tempScript prevHandler mouseUpscript
on mouseUp
put field "number" into theSpikes
repeat until 360 mod theSpikes = 0
add one to theSpikes
end repeat
put theSpikes into field "number"
put the width of graphic "circle" div 2 into theRad
put the loc of graphic "circle" into theLoc
put 360 div theSpikes into theAngle
repeat for theSpikes times
add theAngle to theArc
put pointOnCircle(theLoc,theArc,theRad) & return after thePoints
end repeat
put char 1 to -2 of thePoints into thePoints
put line -1 of thePoints & return & thePoints & return & line 1 of thePoints into theCompare
repeat with x = 1 to the number of lines in thePoints
put line x of theCompare & return & line x + 2 of theCompare into arrayPoints[line x of thePoints]
end repeat
put the keys of arrayPoints & return & "-" & return & thePoints
repeat for each line theKey in thePoints
put arrayPoints[theKey] into currPoints
put currPoints
put pointonline(theKey, line 1 of currPoints,distance(theKey, line 1 of currPoints) div 3) & return after newPoints
put pointonline(theKey, theLoc,-(distance(theKey, theLoc) div 3)) & return after newPoints
put pointonline(theKey, line 2 of currPoints,distance(theKey, line 2 of currPoints) div 3) & return after newPoints
end repeat
set the points of graphic "spikes" to newPoints & line 1 of newPoints
end mouseUp
number )` W d cREVGeneral revUniqueID 1199661713351 4 Field )` P 8e cREVGeneral revUniqueID 1199662341793 -1 -2 3 4 5 6 8 *9 10 12 15 18 20 24 30 36 *40 45 60 72 90 120 180 360 scale Epon mouseUp lock screen repeat with x = the number of graphics down to 1 if word 1 of the short name of graphic x = "spikes" and word 2 of the short name of graphic x is a number then delete graphic x end if end repeat --exit mouseUp put field "scale" into theTimes put the loc of graphic "spikes" into theLoc put the width of graphic "circle" div theTimes into theStep repeat for theTimes times add theStep to theWidth clone graphic "circle" set the name of it to "spikes" && theWidth set the width of graphic ("spikes" && theWidth) to theWidth set the height of graphic ("spikes" && theWidth) to theWidth set the loc of graphic ("spikes" && theWidth) to theLoc end repeat end mouseUp t. R 2 cREVGeneral scriptChecksum ?Ɉ.)h2 bookmarks revUniqueID 1199662705716handlerList mouseUpscriptSelection char 25 to 24prevHandler mouseUptempScript scripton mouseUp
lock screen
repeat with x = the number of graphics down to 1
if word 1 of the short name of graphic x = "spikes" and word 2 of the short name of graphic x is a number then
delete graphic x
end if
end repeat
--exit mouseUp
put field "scale" into theTimes
put the loc of graphic "spikes" into theLoc
put the width of graphic "circle" div theTimes into theStep
repeat for theTimes times
add theStep to theWidth
clone graphic "circle"
set the name of it to "spikes" && theWidth
set the width of graphic ("spikes" && theWidth) to theWidth
set the height of graphic ("spikes" && theWidth) to theWidth
set the loc of graphic ("spikes" && theWidth) to theLoc
end repeat
end mouseUp
scale )` 0 d cREVGeneral revUniqueID 1199662731360 3 spikes 50 K l 2 2 h cREVGeneral revUniqueID 1251883115147 spikes 100 K S d d h cREVGeneral revUniqueID 1251883115149 spikes 150 K p : h cREVGeneral revUniqueID 1251883115151