Feb 14th

[René Micout]

Boum ! J'ai le cœur qui fait boum !

Le 14 févr. 2010 à 08:54, Scott Rossi a écrit :

> Nice Malte.
> 
> Here's a solution that is nowhere near as elegant as Malte's code, but the
> result is perhaps a bit more "tactile"  :-)
> 
> on mouseUp
>   buildV
>   buildO -1
>   buildO 1
>   runAnim
> end mouseUp
> 
> command buildO M
>   put "style,opaque,linesize,backcolor," & \
>          "width,height,antialiased" into V1
>   put "oval,true,0,red,120,120,true" into V2
>   put 1 into N
>   repeat for each item P in V1
>      set the P of the templateGraphic to item N of V2;add 1 to N
>   end repeat
>   put loc of this cd into tLoc
>   add (M*46) to item 1 of tLoc
>   if M = -1 then add 1 to item 1 of tLoc
>   add -68 to item 2 of tLoc
>   set loc of the templateGraphic to tLoc
>   create grc
>   set fillGradient of last grc to gfx(long id of last grc)
>   reset the templateGraphic
> end buildO
> 
> command buildV
>   put "style,opaque,linesize,backcolor,width,height," & \
>          "antialiased,polysides,angle" into V1
>   put "regular,true,0,red,231,160,true,3,90" into V2
>   put 1 into N
>   repeat for each item P in V1
>      set the P of the templateGraphic to item N of V2;add 1 to N
>   end repeat
>   set loc of the templateGraphic to loc of this cd
>   create grc
>   set dropshadow of last grc to sfx()
>   reset the templateGraphic
> end buildV
> 
> function gfx pObj
>   put "type,from,via,to,quality,repeat,wrap,mirror" into V1
>   put "radial"&cr&"0,0"&cr&"0,0"&cr&"0,0"&cr&"good" & \
>          cr&1&cr&"false"&cr&"false" into V2
>   put 1 into N
>   repeat for each item P in V1
>      put line N of V2 into A[P];add 1 to N
>   end repeat
>   put -37 into M
>   put rect of pObj into R
>   put loc of pObj into L
>   put item 1 of L,item 2 of L + M into A["from"]
>   put item 3 of R,item 2 of L + M into A["via"]
>   put item 1 of L,item 4 of R + M into A["to"]
>   put 0,255,190,190&cr&1,255,0,0 into A["ramp"]
>   return A
> end gfx
> 
> function sfx
>   put "opacity,blendmode,size,distance,filter," & \
>          "knockout,spread,angle" into V1
>   put "255,normal,20,10,gaussian,true,0,90" into V2
>   put 1 into N
>   repeat for each item P in V1
>      put item N of V2 into A[P];add 1 to N
>   end repeat
>   put "0,0,0" into A["color"]
>   return A
> end sfx
> 
> on runAnim
>   put number of grcs into gNum
>   repeat with N = 0 to 1
>      set width of grc (gNum - N) to width of grc (gNum - N) + 10
>      set height of grc (gNum - N) to height of grc (gNum - N) + 10
>   end repeat
>   set bottom of grc (gNum - 2) to bottom of grc (gNum - 2) + 8
>   wait 300 millisecs with messages
>   repeat with N = 0 to 1
>      set width of grc (gNum - N) to width of grc (gNum - N) - 10
>      set height of grc (gNum - N) to height of grc (gNum - N) - 10
>   end repeat
>   set bottom of grc (gNum - 2) to bottom of grc (gNum - 2) - 8
>   send "runAnim" to me in 750 millisecs
> end runAnim
> 
> 
> 
> Happy V-Day,
> 
> Scott Rossi
> Creative Director
> Tactile Media, UX Design
> 
> 
> _______________________________________________
> use-revolution mailing list
> use-revolution at lists.runrev.com
> Please visit this url to subscribe, unsubscribe and manage your subscription preferences:
> http://lists.runrev.com/mailman/listinfo/use-revolution