I made one too but it's not very fast
also note that in the included example the windows create light instead of shadows.
Attached File(s)
-
lite.mzx (0bytes)
Number of downloads: 105
Posted 20 April 2005 - 02:39 AM
Posted 20 April 2005 - 05:58 AM
Posted 22 April 2005 - 12:30 PM
Posted 22 April 2005 - 06:33 PM
Posted 22 April 2005 - 06:43 PM
Posted 23 April 2005 - 02:34 AM
Posted 23 April 2005 - 03:43 AM
Posted 23 April 2005 - 05:12 AM
Posted 28 May 2005 - 01:44 AM
Posted 28 May 2005 - 02:39 AM
Posted 28 May 2005 - 04:52 AM
Posted 28 May 2005 - 05:00 AM
Posted 28 May 2005 - 05:46 AM
Nova Star, on May 28 2005, 12:00 AM, said:
Posted 28 May 2005 - 08:31 AM
Posted 28 May 2005 - 09:45 AM
Posted 28 May 2005 - 11:47 AM
Posted 28 May 2005 - 12:00 PM
This post has been edited by Torte: 28 May 2005 - 12:01 PM
Posted 28 May 2005 - 03:20 PM
set "commands" to "(30000)" scrollview position 1 0 set "local" to 0 set "local2" to 0 set "multiplier" to 70 set "c_divisions" to 220 : "l" set "local3" to "('sqrt('local'-480^2+('local2'-240^2))'%256-64)" inc "local3" by "('sqrt('local'-800^2+('local2'-560^2))'*4/3%256-64)" set "local3" to "('local3'>0 * 'local3')" set "local3" to "('local3'*255/384)" put "local3" Solid p00 at "('local'+81)" "local2" inc "local" by 1 if "local" != 1360 then "l" set "local" to 0 inc "local2" by 1 * "&local2&/880" if "local2" != 880 then "l" set "local2" to 0 set "imagex" to 640 set "imagey" to 400 : "opening file" set "bitmap.bmp" to "FWRITE_OPEN" : "header" . "14 bytes" . "Signature 2 bytes Should be 'BM'" set "fwrite" to 66 set "fwrite" to 77 . "File size in bytes, 4 bytes" set "size" to "('imagex'*'imagey'*4+54)" set "fwrite" to "('size'%256)" set "fwrite" to "('size'/256%256)" set "fwrite" to "('size'/256/256%256)" set "fwrite" to "('size'/256/256/256%256)" . "Unused, 4 bytes" set "fwrite" to 0 set "fwrite" to 0 set "fwrite" to 0 set "fwrite" to 0 . "Offset to Raster Data, 4 bytes" set "fwrite" to 54 set "fwrite" to 0 set "fwrite" to 0 set "fwrite" to 0 : "info header" . "40 bytes" . "size of info header = 40" set "fwrite" to 40 set "fwrite" to 0 set "fwrite" to 0 set "fwrite" to 0 . "width 4 bytes" set "fwrite" to "('imagex'%256)" set "fwrite" to "('imagex'/256%256)" set "fwrite" to "('imagex'/256/256%256)" set "fwrite" to "('imagex'/256/256/256%256)" . "height 4 bytes" set "fwrite" to "('imagey'%256)" set "fwrite" to "('imagey'/256%256)" set "fwrite" to "('imagey'/256/256%256)" set "fwrite" to "('imagey'/256/256/256%256)" . "number of planes (1) 2 bytes" set "fwrite" to 1 set "fwrite" to 0 . "BitCount 2 bytes 24bit=24" set "fwrite" to 24 set "fwrite" to 0 . "compression 4 bytes 0=none" set "fwrite" to 0 set "fwrite" to 0 set "fwrite" to 0 set "fwrite" to 0 . "image size but no compression = 0 4 bytes" set "fwrite" to 0 set "fwrite" to 0 set "fwrite" to 0 set "fwrite" to 0 . "horizontal resolution in pixels per meter 4 bytes" set "fwrite" to 0 set "fwrite" to 1 set "fwrite" to 0 set "fwrite" to 0 . "vertical 4 bytes" set "fwrite" to 0 set "fwrite" to 1 set "fwrite" to 0 set "fwrite" to 0 . "number of actually used colors 4 bytes" set "fwrite" to 0 set "fwrite" to 1 set "fwrite" to 0 set "fwrite" to 0 . "number of important colors 4 bytes 0=all" set "fwrite" to 16 set "fwrite" to 0 set "fwrite" to 0 set "fwrite" to 0 . "no color table because 24 bit format" : "raster data" set "yl" to "('imagey'-1)" set "xl" to 0 : "loop" set "local" to 0 set "re" to 0 set "bl" to 0 : "l2" set "board_x" to "('subx'*3+'xl'*2+81)" set "board_y" to "('suby'*3+'yl'*2)" set "t" to "('board_color'/('subx'+'suby'))" inc "local" by "board_color" inc "re" by "('board_color'>150 * ('board_color'-150))" inc "bl" by "('board_color'>70 * ('board_color'-70))" inc "subx" by 1 if "subx" != 10 then "l2" set "subx" to 0 inc "suby" by 1 if "suby" != 10 then "l2" set "suby" to 0 set "local" to "('local'/30)" set "bl" to "('bl'/30)" set "re" to "('re'/30)" set "local" to "('local'<256 * 'local' + ('local'>255 * 255) )" set "re" to "('re'<256 * 're' + ('re'>255 * 255) )" set "bl" to "('bl'<256 * 'bl' + ('bl'>255 * 255) )" . "blue?!?" set "fwrite" to "re" . "green" set "fwrite" to "bl" . "red!?!" set "fwrite" to "local" inc "xl" by 1 if "xl" != "imagex" then "loop" * "&yl&" wait for 1 set "xl" to 0 dec "yl" by 1 if "yl" != -1 then "loop" . "the end" set "" to "FWRITE_OPEN" [ "THE END" end
This post has been edited by LogiCow: 28 May 2005 - 03:39 PM
Posted 28 May 2005 - 03:31 PM
Posted 28 May 2005 - 03:40 PM
Posted 28 May 2005 - 03:40 PM
This post has been edited by LogiCow: 28 May 2005 - 03:40 PM
Posted 29 May 2005 - 01:37 AM