中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net  论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
作者:
标题: [原创]中间渐渐变大的圆 上一主题 | 下一主题
523066680
银牌会员

SuperCleaner


积分 2362
发帖 1133
注册 2008-2-2
状态 离线
『楼 主』:  [原创]中间渐渐变大的圆

首发于http://bbs.bathome.cn/viewthread.php?tid=2666&extra=page%3D1&frombbs=1
由于greedsnake被人回了一个不好的帖,很影响心情,现在打算每次发特效帖先做声明了
声明:
    1.本帖发表特效,视觉类的代码.
    2.对特效,视觉类代码有偏见并且说话没水平的,就请不要回影响别人心情的帖.
    3.如果想要发表偏见的,"没有任何实际意义" "不务正业" 等这类肤浅的话,请不要拿来放.
      因为上面已经声明是特效了,偏见者进来还乱说话的扣分!!

url:以下是我对特效的观点帖.
@echo off &mode con cols=60 lines=32
title made by hi.baidu.com/523066680
call :setup oo.vbs
   ::开始调用vbs,事实上(3,1,13)原为3,2,13,不过我发现1也不错.
   for /l %%a in (3,1,13) do (cls &cscript oo.vbs //i %%a |more +2)
   pause
   exit
::说明,以下生成代码为"打包批处理.bat"打包oo.vbs的生成码.(本人是在宣传作品啊~)
:setup
set "act="
for /f "delims= eol=" %%a in (%~nx0) do (
  if "%%a"=="::%* end" (goto :eof)
  if defined act echo,%%a>>"%*"
  if "%%a"=="::%*" errcommand>"%*" 2>nul&set act=act
)

::oo.vbs
set i=wscript.arguments
wscript.echo Dotx2(i(0))
wscript.sleep 800

function Dotx2(n)
   for y = n to -n step -1
       x=sqr((n^2-y^2))*2
       if x>0 then x=x-1
       Dotx=space(x) & "*" &space(27-x)
       Dotx2=Dotx2 &StrReverse(Dotx) &Dotx & vbcrlf
   next
   Dotx2=space((14-n)*60) & Dotx2
end function
::oo.vbs end
为了方便理解,这里贴上最初画圆的vbs代码
for y = 5 to -5 step -1
x=sqr((25-y^2))*2         '设定公式为 x^2+y^2=25 即半径为5
if x>0 then x=x-1
Dotx=space(x) & "*" &space(10-x)
Dotx2=Dotx2 &StrReverse(Dotx) &Dotx & vbcrlf
next
msgbox Dotx2
主要是先以x正轴描点,然后往后边补空格,再倒过来接在前面,就变圆了.

   此帖被 +4 点积分     点击查看详情   
评分人:【 HAT 分数: +2  时间:2008-11-30 11:16
评分人:【 crazysakura 分数: +2  时间:2008-11-30 14:20




综合型编程论坛

我的作品索引
  
2008-11-30 09:58
查看资料  发送邮件  访问主页  发短消息 网志  OICQ (523066680)  编辑帖子  回复  引用回复
breakme
新手上路





积分 5
发帖 6
注册 2008-11-2
状态 离线
『第 2 楼』:  

发帖的人就是牛逼,这种效果你也做出来了

2008-11-30 10:54
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
YoDe
中级用户




积分 224
发帖 102
注册 2007-11-9
状态 离线
『第 3 楼』:  

牛 学习了

2008-11-30 11:50
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
wxcute
中级用户





积分 458
发帖 211
注册 2006-7-26
状态 离线
『第 4 楼』:  

EXIST 兄又来发特效了,支持一下。



┌───────┐
├→学习→实践→┤
└───────┘
2008-11-30 18:02
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
wwmmc
初级用户





积分 35
发帖 62
注册 2008-10-12
状态 离线
『第 5 楼』:  

虽然我看不大懂,可我知道 要学习

2008-12-1 08:45
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复

请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转: