编程C,C ++,Java,PHP,Ruby,图灵,VB
计算机科学加拿大 
编程C,C ++,Java,PHP,Ruby,图灵,VB  

用户名:   Password: 
 登记登记   
 冷却效果
指数 -> 编程,图灵 -> 提交意见书
查看上一个主题 可打印的版本下载主题利率主题订阅本主题私人信息刷新页面 查看下一个主题
作者 信息
COPTHESAINT.




 邮政 发布: 2008年11月11日星期二3:58  帖子主题:冷却效果

有很好的效果吗?
为什么不在这里发布!
这是一个真正的一个真棒

代码:
view.set.("graphics:max; max;脱机; nocursor")
     
环形

    for x : 1 .. 200
        var b := Rand.Int (1,999)
        var fnt2 := Font.New ("Ariel:600x200")
        for i : 1 .. 100
        drawfillbox (0 + (i * 5), 0 + (i * 5), maxx - (i * 5), maxy - (i * 5), x div 2)
        Draw.Box (0 + (i * 5), 0 + (i * 5), maxx - (i * 5), maxy - (i * 5), white)
        Font.Draw (intstr (b), 0,(maxy div 2)-300, fnt2, black)
            end for       
        drawfillbox (0 + (x * 5), 0 + (x * 5), maxx - (x * 5), maxy - (x * 5), x)
        Draw.Box (0 + (x * 5), 0 + (x * 5), maxx - (x * 5), maxy - (x * 5), white)
        Font.Draw (intstr (b), 0,(maxy div 2)-300, fnt2, black)
        delay (50)
        View.Update
            end for

结束循环
赞助
赞助
赞助
赞助
罗布巴




 邮政 发布: 2008年11月11日星期二4:16下午  发布主题:RE:COOL效果

有用的东西像绘图抛物线一样。

图灵:

程序 drawParabola. (x:,y: ,xlen. : ,ylen. : ,Col. :)
  var. xn,yn: 真实的
  为了 t:1 .. 10000
    xn:=0.5 * xlen * (t) + X.
    yn:=0.5 * ylen * COS. (2 * T. ) + y- 圆形的 (0.5 * ylen. )
    绘图 ( 圆形的 ( XN. ), 圆形的 ( yn. ) ,Col. )
  结尾 为了
结尾 drawParabola.

drawParabola.(100,100,50,60,45)
画框(99,99,101,101,54)       
画框(75,40,125,40,78)
画框(75,40,75,100,78)

虫子




 邮政 发布: 2008年11月11日星期二4:36 PM  发布主题:RE:COOL效果

下载是在帖子中

基本上,它需要图片的像素,并在突然变形到图片之前以看似随机的模式下屏幕下降。我有一个更好的像素在不同的速度下落下,这取决于他们来自目的地的距离。
萨德




 邮政 发布: 2008年11月11日星期二6:31  发布主题:RE:COOL效果

CoptheSaint @Tue 2008年11月11日3:58 PM写道:
为什么不在这里发布!


这通常是原因。
虫子




 邮政 发布: 2008年11月11日星期二8:34  发布主题:RE:COOL效果

嗯,我通过了测试(我看了它跑约75分钟)
[Gandalf]




 邮政 发布: 2008年11月11日星期二上午9:07  发布主题:RE:COOL效果

好吧,你已经拥有它是自己的帖子,因为这篇文章本质上是一个“Trippy Flash”,锁定。

编辑:HRM,但75分钟?你可能想把你的眼睛检查或一些这样的!
从上一个显示帖子:   
    指数 -> 编程,图灵 -> 提交意见书
查看上一个主题 告诉一个朋友可打印的版本下载主题利率主题订阅本主题私人信息刷新页面 查看下一个主题

11  [ 6 Posts ]
跳到:   


Style:  
搜索: