电脑BAT程序 实现3D立体球体
1.用法
在电脑桌面新建一个文本文档,然后将代码复制到文本文档里,再将后缀改为".bat"。
可以用来给同事装逼!!!
2.代码
话不多数,直接上代码。
代码如下:
chcp 437
if "%1"=="" (for %%a in ( FontSize:00080008FontFamily:00000030WindowSize:003d0050ScreenColors:0000000fCodePage:000001b5ScreenBufferSize:003d0050) do for /f "tokens=1,2 delims=:" %%b in ("%%a") do (>nul reg add HKCU\Console\DosBatch_3D_Engine /v %%b /t reg_dword /d 0x%%c /f )start "DosBatch_3D_Engine" /max "%ComSpec%" /c "%~s0" 1&goto:eof) else ( >nul reg delete HKCU\Console\DosBatch_3D_Engine /f )@echo off & setlocal & title Sphere 3D & set /a cols=100, lines=70 & goto :Init_system:Mainset /a ar=100, rt=0, ds=0, cx=cols/2, cz=4000, cY=lines/2(set SIN=set _PLOT$_=set _$PLOT_=set _empty=set lines=set cols=for /L %%\ in (1000,-1,0) do (set /a "rt+=31416/60"if !ds! lss 1000 set /a ds+=10setlocalset /a "a=(15708-rt) %% 62832, c=(a>>31|1)*a"if !c! gtr 47124 (set /a "a=a-(a>>31|1)*62832, b=%SIN%, a=rt %% 62832, c=(a>>31|1)*a") else (if !c! gtr 15708 (set /a "a=(a>>31|1)*31416-a, b=%SIN%, a=rt %% 62832, c=(a>>31|1)*a") else set /a "b=%SIN%, a=rt %% 62832, c=(a>>31|1)*a")if !c! gtr 47124 (set /a "a=a-(a>>31|1)*62832, a=%SIN%") else (if !c! gtr 15708 (set /a "a=(a>>31|1)*31416-a, a=%SIN%") else set /a "a=%SIN%")for %%f in ("0 9999" "-5000 8661" "-8661 5000" "-9999 0" "-8661 -5000" "-5000 -8661" "0 -9999" "5000 -8661" "8661 -5000" "9999 0" "8661 5000" "5000 8661") do for /f "tokens=1,2" %%g in (%%f) do (for %%t in ("3827 9239" "7071 7071" "9239 3827" "9999 0" "9239 -3827" "7071 -7071" "3827 -9239") do for /f "tokens=1,2" %%u in (%%t) do (set /a "ax=ar*%%h/10000*%%u/10000, az=ar*%%g/10000*%%u/10000, ay=ar*%%v/10000, aax=(ax*b/10000-(ay*a/10000+az*b/10000)*a/10000)*b/10000-(ay*b/10000-az*a/10000)*a/10000, aay=(ax*b/10000-(ay*a/10000+az*b/10000)*a/10000)*a/10000+(ay*b/10000-az*a/10000)*b/10000, e=ax*a/10000+(ay*a/10000+az*b/10000)*b/10000, c=ds*aax/(e-cz)+cx, d=ds*aay/(e-cz)+cy" if not defined L!d! set L!d!=%_empty%if !e! lss 0 (%_$PLOT_% !c! !d! 1 %_PLOT$_%) else %_$PLOT_% !c! !d! 4 %_PLOT$_%) )if not "!OT!"=="!time:~-1!" (cls & (For /L %%l in (1,1,%lines%) do if not defined L%%l (echo() else echo( !L%%l!)>CONif "!OT!"=="0" title Sphere 3D [%%\]endlocalset OT=!time:~-1!) else endlocal)
)
goto :eof:Init_systemsetlocal DisableDelayedExpansionset /a cc=cols+2, ll=lines+2
( mode %cc%,%ll% & clsfor /F "Tokens=1 delims==" %%v in ('set') do set "%%v="set /a cols=%cols%, lines=%lines%
)set "_$PLOT_=For /F usebackq^ tokens^=1-3 %%x in ('"set "_PLOT$_=') do set /a f=%%x+1 & For %%w in (!f!) do set L%%y=!L%%y:~0,%%x!!g:~%%z,1!!L%%y:~%%w!"set "SIN=(a-a*a/1920*a/312500+a*a/1920*a/15625*a/15625*a/2560000-a*a/1875*a/15360*a/15625*a/15625*a/16000*a/44800000)"setlocal EnableDelayedExpansioncolor 0aFor /L %%l in (1,1,%cols%) do set "_empty=!_empty! "set g= .±2@"
Goto :Main
看完后别忘给我关注呀!!!
电脑BAT程序 实现3D立体球体相关推荐
- unity3d 模拟电脑实现_Unity3D实现3D立体游戏原理及过程
下面的教程是我今天整理的资料,教大家一步步完成自己的3D立体游戏,并向大家介绍一些3D成像的原理. 理论上,每个普通的非立体3d游戏,都可以改为3D立体游戏,看完这篇帖子,你们都可以把自己之前做过的3 ...
- 抖音程序员HTML相册,快手抖音程序员表白女朋友3D立体相册源码html网页相册代码...
前几天分享了一套源码,今天又为大家带来一套类似的源码,希望大家喜欢! 快手抖音很火的程序员女朋友3D立体相册源码html网页相册代码,经测试在IE8浏览器下无法预览,建议使用支持HTML5与css3效 ...
- 计算机3d影视的应用程序,用电脑也能看3D电影?捡起吃灰的3D眼镜!
用电脑也能看3D电影?捡起吃灰的3D眼镜! 2020-04-06 16:26:35 5点赞 13收藏 1评论 过年闲着没事在家,整理杂物的时候整理出2副3D眼镜(购买创维电视送的,两个镜片都灰灰的那种 ...
- 还在买鲜花送女神?手把手教你搭建3D立体相册网站,包女神稀饭
是不是一款人见人爱的相册网站,看下图演示马上知晓.360度3D立体旋转,随意放大缩小任一张照片,合适每一个女生的小胃口,保证女神眼前一亮,对您刮目相看. 我们的特点是--情人节圣诞节女神生日纪念日都适 ...
- Facebook Surround 360 环境配置指南(3D立体全景)
FaceBook 开源的surround360系统,3D沉浸式全景VR. 开源的软件系统配置在文档里有记录,这里看到该博主做了测试,转载后参照博主文章做测试,关于文章转载如有不妥之处,请联系本文. - ...
- 3D立体游戏的起源和目前的发展
随着时间的不断流逝,很多事物都在历史长河中不断的被淘汰,又有许多事物不断的萌发着.每一个事物的出现都是秉承着要为人类做出贡献或者给人类带来欢乐的目的.自从游戏的出现,人类就难以拜托它给人们带来的强大乐 ...
- C#不登录电脑启动程序
C#不登录电脑启动程序 原文:C#不登录电脑启动程序 我们知道开机自启动程序如果在用户不登录的情况下是不启动的,但是服务类程序是可以跨过用户登录启动的,例如IIS服务,SQL服务.如果我们已经写好了桌 ...
- java3d翻转纪念相册_抖音上很火的3D立体动态相册实现代码!
前言: 圣诞节快到了,是不是要给女朋友或者正在追求的妹子一点小惊喜呢,今天这篇博客就分享下前端代码如何实现3D立体动态相册.赶紧学会了,来制作属于我们程序员的浪漫吧!先上效果图,来引起下你们的兴趣. ...
- Unity3D实现3D立体游戏原理及过程
下面的教程是我今天整理的资料,教大家一步步完成自己的3D立体游戏,并向大家介绍一些3D成像的原理. 理论上,每个普通的非立体3d游戏,都可以改为3D立体游戏,看完这篇帖子,你们都可以把自己之前做过的3 ...
最新文章
- linux修改定时后如何保存文件夹,linux定时任务的一些相关操作汇总
- python中matplotlib条形图-python matplotlib库绘制条形图练习题
- mybatis自学笔记-1
- php hibernate,Hibernate总结
- 使用VS进行工作流开发系列博客5-Developing Workflows in VS: Part 4 - Design and Bind Your Forms...
- 【机器学习-西瓜书】二、性能度量:召回率;P-R曲线;F1值;ROC;AUC
- Source Insight 3.5 序列号分享
- win10专业版激活时提示无法连接到internet怎么办?
- 复制整个文件夹下的文件(无限递归复制子文件夹)
- cdn贝免费套餐_CDN贝网站seo
- 【每日一题】一起冲击蓝桥杯吧——Day09【蓝桥真题一起练】
- 中英文常用标点符号统一清洗为英文格式
- 原著《西游记》中的几点不解和穿帮
- git生成公钥的步骤
- 苹果用 45 分钟,抽了整个行业仨嘴巴
- EF6 批量更新删除数据
- 利盟Lexmark Intuition S508 一体机驱动
- DirectDraw基础篇(学东西还是基础的好哦!)
- 赛门铁克:与神州云科合作达成两大目标
- 永久免费内网穿透很简单,一看就明白(长文)