├── .gitignore ├── LICENSE ├── README.md ├── Wargames-copyright.txt ├── Wargames.ttf ├── editundo.ttf ├── editundo.txt ├── escenario.lisp ├── fondo.png ├── gen-imagen.lisp ├── mapas.lisp ├── mc-wolf3d.asd ├── mc-wolf3d.lisp ├── package.lisp ├── personajes.lisp ├── pics ├── 00-paredventana.png ├── 01-paredplana.png ├── 02-paredescalera.png ├── 03-piso.png ├── 04-paredconcontroles.png ├── 05-paredplanaint.png ├── 06-paredelevador.png ├── 07-paredconmapa.png ├── 08-paredventana01.png ├── 09-portal.png ├── 10-portalA-000.png ├── 10-portalA-045.png ├── 10-portalA-090.png ├── 10-portalA-135.png ├── 10-portalA-180.png ├── 10-portalA.png ├── 11-escalera.png ├── 12-pared.png ├── 13-pared-ventana.png ├── 14-techo-escalera.png ├── 15-rayos-01.png ├── 16-traje.png ├── 17-lampara-01.png ├── 18-trajem.png ├── 19-robot.png └── manos.png ├── sonidos.lisp ├── sonidos ├── 001-34736__drni__gas-stove-space-ship-short.ogg ├── 002-22331__black-boe__wind.ogg └── 003-27568__suonho__memorymoon-space-blaster-plays.ogg ├── sprites.lisp ├── texturas.lisp ├── wolf3d01.png ├── wolf3d02.png ├── wolf3d03.png ├── wolf3d04.png ├── wolf3d05.png ├── wolf3d06.png ├── wolf3d07.png ├── wolf3d08.png ├── wolf3d09.png └── wolf3d10.png /.gitignore: -------------------------------------------------------------------------------- 1 | *~ 2 | /mc-wolf3d 3 | bocetos/ 4 | bocetos/* 5 | -------------------------------------------------------------------------------- /LICENSE: -------------------------------------------------------------------------------- 1 | GNU GENERAL PUBLIC LICENSE 2 | Version 3, 29 June 2007 3 | 4 | Copyright (C) 2007 Free Software Foundation, Inc. 5 | Everyone is permitted to copy and distribute verbatim copies 6 | of this license document, but changing it is not allowed. 7 | 8 | Preamble 9 | 10 | The GNU General Public License is a free, copyleft license for 11 | software and other kinds of works. 12 | 13 | The licenses for most software and other practical works are designed 14 | to take away your freedom to share and change the works. By contrast, 15 | the GNU General Public License is intended to guarantee your freedom to 16 | share and change all versions of a program--to make sure it remains free 17 | software for all its users. We, the Free Software Foundation, use the 18 | GNU General Public License for most of our software; it applies also to 19 | any other work released this way by its authors. You can apply it to 20 | your programs, too. 21 | 22 | When we speak of free software, we are referring to freedom, not 23 | price. Our General Public Licenses are designed to make sure that you 24 | have the freedom to distribute copies of free software (and charge for 25 | them if you wish), that you receive source code or can get it if you 26 | want it, that you can change the software or use pieces of it in new 27 | free programs, and that you know you can do these things. 28 | 29 | To protect your rights, we need to prevent others from denying you 30 | these rights or asking you to surrender the rights. Therefore, you have 31 | certain responsibilities if you distribute copies of the software, or if 32 | you modify it: responsibilities to respect the freedom of others. 33 | 34 | For example, if you distribute copies of such a program, whether 35 | gratis or for a fee, you must pass on to the recipients the same 36 | freedoms that you received. You must make sure that they, too, receive 37 | or can get the source code. And you must show them these terms so they 38 | know their rights. 39 | 40 | Developers that use the GNU GPL protect your rights with two steps: 41 | (1) assert copyright on the software, and (2) offer you this License 42 | giving you legal permission to copy, distribute and/or modify it. 43 | 44 | For the developers' and authors' protection, the GPL clearly explains 45 | that there is no warranty for this free software. For both users' and 46 | authors' sake, the GPL requires that modified versions be marked as 47 | changed, so that their problems will not be attributed erroneously to 48 | authors of previous versions. 49 | 50 | Some devices are designed to deny users access to install or run 51 | modified versions of the software inside them, although the manufacturer 52 | can do so. This is fundamentally incompatible with the aim of 53 | protecting users' freedom to change the software. The systematic 54 | pattern of such abuse occurs in the area of products for individuals to 55 | use, which is precisely where it is most unacceptable. Therefore, we 56 | have designed this version of the GPL to prohibit the practice for those 57 | products. If such problems arise substantially in other domains, we 58 | stand ready to extend this provision to those domains in future versions 59 | of the GPL, as needed to protect the freedom of users. 60 | 61 | Finally, every program is threatened constantly by software patents. 62 | States should not allow patents to restrict development and use of 63 | software on general-purpose computers, but in those that do, we wish to 64 | avoid the special danger that patents applied to a free program could 65 | make it effectively proprietary. To prevent this, the GPL assures that 66 | patents cannot be used to render the program non-free. 67 | 68 | The precise terms and conditions for copying, distribution and 69 | modification follow. 70 | 71 | TERMS AND CONDITIONS 72 | 73 | 0. Definitions. 74 | 75 | "This License" refers to version 3 of the GNU General Public License. 76 | 77 | "Copyright" also means copyright-like laws that apply to other kinds of 78 | works, such as semiconductor masks. 79 | 80 | "The Program" refers to any copyrightable work licensed under this 81 | License. Each licensee is addressed as "you". "Licensees" and 82 | "recipients" may be individuals or organizations. 83 | 84 | To "modify" a work means to copy from or adapt all or part of the work 85 | in a fashion requiring copyright permission, other than the making of an 86 | exact copy. The resulting work is called a "modified version" of the 87 | earlier work or a work "based on" the earlier work. 88 | 89 | A "covered work" means either the unmodified Program or a work based 90 | on the Program. 91 | 92 | To "propagate" a work means to do anything with it that, without 93 | permission, would make you directly or secondarily liable for 94 | infringement under applicable copyright law, except executing it on a 95 | computer or modifying a private copy. Propagation includes copying, 96 | distribution (with or without modification), making available to the 97 | public, and in some countries other activities as well. 98 | 99 | To "convey" a work means any kind of propagation that enables other 100 | parties to make or receive copies. Mere interaction with a user through 101 | a computer network, with no transfer of a copy, is not conveying. 102 | 103 | An interactive user interface displays "Appropriate Legal Notices" 104 | to the extent that it includes a convenient and prominently visible 105 | feature that (1) displays an appropriate copyright notice, and (2) 106 | tells the user that there is no warranty for the work (except to the 107 | extent that warranties are provided), that licensees may convey the 108 | work under this License, and how to view a copy of this License. If 109 | the interface presents a list of user commands or options, such as a 110 | menu, a prominent item in the list meets this criterion. 111 | 112 | 1. Source Code. 113 | 114 | The "source code" for a work means the preferred form of the work 115 | for making modifications to it. "Object code" means any non-source 116 | form of a work. 117 | 118 | A "Standard Interface" means an interface that either is an official 119 | standard defined by a recognized standards body, or, in the case of 120 | interfaces specified for a particular programming language, one that 121 | is widely used among developers working in that language. 122 | 123 | The "System Libraries" of an executable work include anything, other 124 | than the work as a whole, that (a) is included in the normal form of 125 | packaging a Major Component, but which is not part of that Major 126 | Component, and (b) serves only to enable use of the work with that 127 | Major Component, or to implement a Standard Interface for which an 128 | implementation is available to the public in source code form. A 129 | "Major Component", in this context, means a major essential component 130 | (kernel, window system, and so on) of the specific operating system 131 | (if any) on which the executable work runs, or a compiler used to 132 | produce the work, or an object code interpreter used to run it. 133 | 134 | The "Corresponding Source" for a work in object code form means all 135 | the source code needed to generate, install, and (for an executable 136 | work) run the object code and to modify the work, including scripts to 137 | control those activities. However, it does not include the work's 138 | System Libraries, or general-purpose tools or generally available free 139 | programs which are used unmodified in performing those activities but 140 | which are not part of the work. For example, Corresponding Source 141 | includes interface definition files associated with source files for 142 | the work, and the source code for shared libraries and dynamically 143 | linked subprograms that the work is specifically designed to require, 144 | such as by intimate data communication or control flow between those 145 | subprograms and other parts of the work. 146 | 147 | The Corresponding Source need not include anything that users 148 | can regenerate automatically from other parts of the Corresponding 149 | Source. 150 | 151 | The Corresponding Source for a work in source code form is that 152 | same work. 153 | 154 | 2. Basic Permissions. 155 | 156 | All rights granted under this License are granted for the term of 157 | copyright on the Program, and are irrevocable provided the stated 158 | conditions are met. This License explicitly affirms your unlimited 159 | permission to run the unmodified Program. The output from running a 160 | covered work is covered by this License only if the output, given its 161 | content, constitutes a covered work. This License acknowledges your 162 | rights of fair use or other equivalent, as provided by copyright law. 163 | 164 | You may make, run and propagate covered works that you do not 165 | convey, without conditions so long as your license otherwise remains 166 | in force. You may convey covered works to others for the sole purpose 167 | of having them make modifications exclusively for you, or provide you 168 | with facilities for running those works, provided that you comply with 169 | the terms of this License in conveying all material for which you do 170 | not control copyright. Those thus making or running the covered works 171 | for you must do so exclusively on your behalf, under your direction 172 | and control, on terms that prohibit them from making any copies of 173 | your copyrighted material outside their relationship with you. 174 | 175 | Conveying under any other circumstances is permitted solely under 176 | the conditions stated below. Sublicensing is not allowed; section 10 177 | makes it unnecessary. 178 | 179 | 3. Protecting Users' Legal Rights From Anti-Circumvention Law. 180 | 181 | No covered work shall be deemed part of an effective technological 182 | measure under any applicable law fulfilling obligations under article 183 | 11 of the WIPO copyright treaty adopted on 20 December 1996, or 184 | similar laws prohibiting or restricting circumvention of such 185 | measures. 186 | 187 | When you convey a covered work, you waive any legal power to forbid 188 | circumvention of technological measures to the extent such circumvention 189 | is effected by exercising rights under this License with respect to 190 | the covered work, and you disclaim any intention to limit operation or 191 | modification of the work as a means of enforcing, against the work's 192 | users, your or third parties' legal rights to forbid circumvention of 193 | technological measures. 194 | 195 | 4. Conveying Verbatim Copies. 196 | 197 | You may convey verbatim copies of the Program's source code as you 198 | receive it, in any medium, provided that you conspicuously and 199 | appropriately publish on each copy an appropriate copyright notice; 200 | keep intact all notices stating that this License and any 201 | non-permissive terms added in accord with section 7 apply to the code; 202 | keep intact all notices of the absence of any warranty; and give all 203 | recipients a copy of this License along with the Program. 204 | 205 | You may charge any price or no price for each copy that you convey, 206 | and you may offer support or warranty protection for a fee. 207 | 208 | 5. Conveying Modified Source Versions. 209 | 210 | You may convey a work based on the Program, or the modifications to 211 | produce it from the Program, in the form of source code under the 212 | terms of section 4, provided that you also meet all of these conditions: 213 | 214 | a) The work must carry prominent notices stating that you modified 215 | it, and giving a relevant date. 216 | 217 | b) The work must carry prominent notices stating that it is 218 | released under this License and any conditions added under section 219 | 7. This requirement modifies the requirement in section 4 to 220 | "keep intact all notices". 221 | 222 | c) You must license the entire work, as a whole, under this 223 | License to anyone who comes into possession of a copy. This 224 | License will therefore apply, along with any applicable section 7 225 | additional terms, to the whole of the work, and all its parts, 226 | regardless of how they are packaged. This License gives no 227 | permission to license the work in any other way, but it does not 228 | invalidate such permission if you have separately received it. 229 | 230 | d) If the work has interactive user interfaces, each must display 231 | Appropriate Legal Notices; however, if the Program has interactive 232 | interfaces that do not display Appropriate Legal Notices, your 233 | work need not make them do so. 234 | 235 | A compilation of a covered work with other separate and independent 236 | works, which are not by their nature extensions of the covered work, 237 | and which are not combined with it such as to form a larger program, 238 | in or on a volume of a storage or distribution medium, is called an 239 | "aggregate" if the compilation and its resulting copyright are not 240 | used to limit the access or legal rights of the compilation's users 241 | beyond what the individual works permit. Inclusion of a covered work 242 | in an aggregate does not cause this License to apply to the other 243 | parts of the aggregate. 244 | 245 | 6. Conveying Non-Source Forms. 246 | 247 | You may convey a covered work in object code form under the terms 248 | of sections 4 and 5, provided that you also convey the 249 | machine-readable Corresponding Source under the terms of this License, 250 | in one of these ways: 251 | 252 | a) Convey the object code in, or embodied in, a physical product 253 | (including a physical distribution medium), accompanied by the 254 | Corresponding Source fixed on a durable physical medium 255 | customarily used for software interchange. 256 | 257 | b) Convey the object code in, or embodied in, a physical product 258 | (including a physical distribution medium), accompanied by a 259 | written offer, valid for at least three years and valid for as 260 | long as you offer spare parts or customer support for that product 261 | model, to give anyone who possesses the object code either (1) a 262 | copy of the Corresponding Source for all the software in the 263 | product that is covered by this License, on a durable physical 264 | medium customarily used for software interchange, for a price no 265 | more than your reasonable cost of physically performing this 266 | conveying of source, or (2) access to copy the 267 | Corresponding Source from a network server at no charge. 268 | 269 | c) Convey individual copies of the object code with a copy of the 270 | written offer to provide the Corresponding Source. This 271 | alternative is allowed only occasionally and noncommercially, and 272 | only if you received the object code with such an offer, in accord 273 | with subsection 6b. 274 | 275 | d) Convey the object code by offering access from a designated 276 | place (gratis or for a charge), and offer equivalent access to the 277 | Corresponding Source in the same way through the same place at no 278 | further charge. You need not require recipients to copy the 279 | Corresponding Source along with the object code. If the place to 280 | copy the object code is a network server, the Corresponding Source 281 | may be on a different server (operated by you or a third party) 282 | that supports equivalent copying facilities, provided you maintain 283 | clear directions next to the object code saying where to find the 284 | Corresponding Source. Regardless of what server hosts the 285 | Corresponding Source, you remain obligated to ensure that it is 286 | available for as long as needed to satisfy these requirements. 287 | 288 | e) Convey the object code using peer-to-peer transmission, provided 289 | you inform other peers where the object code and Corresponding 290 | Source of the work are being offered to the general public at no 291 | charge under subsection 6d. 292 | 293 | A separable portion of the object code, whose source code is excluded 294 | from the Corresponding Source as a System Library, need not be 295 | included in conveying the object code work. 296 | 297 | A "User Product" is either (1) a "consumer product", which means any 298 | tangible personal property which is normally used for personal, family, 299 | or household purposes, or (2) anything designed or sold for incorporation 300 | into a dwelling. In determining whether a product is a consumer product, 301 | doubtful cases shall be resolved in favor of coverage. For a particular 302 | product received by a particular user, "normally used" refers to a 303 | typical or common use of that class of product, regardless of the status 304 | of the particular user or of the way in which the particular user 305 | actually uses, or expects or is expected to use, the product. A product 306 | is a consumer product regardless of whether the product has substantial 307 | commercial, industrial or non-consumer uses, unless such uses represent 308 | the only significant mode of use of the product. 309 | 310 | "Installation Information" for a User Product means any methods, 311 | procedures, authorization keys, or other information required to install 312 | and execute modified versions of a covered work in that User Product from 313 | a modified version of its Corresponding Source. The information must 314 | suffice to ensure that the continued functioning of the modified object 315 | code is in no case prevented or interfered with solely because 316 | modification has been made. 317 | 318 | If you convey an object code work under this section in, or with, or 319 | specifically for use in, a User Product, and the conveying occurs as 320 | part of a transaction in which the right of possession and use of the 321 | User Product is transferred to the recipient in perpetuity or for a 322 | fixed term (regardless of how the transaction is characterized), the 323 | Corresponding Source conveyed under this section must be accompanied 324 | by the Installation Information. But this requirement does not apply 325 | if neither you nor any third party retains the ability to install 326 | modified object code on the User Product (for example, the work has 327 | been installed in ROM). 328 | 329 | The requirement to provide Installation Information does not include a 330 | requirement to continue to provide support service, warranty, or updates 331 | for a work that has been modified or installed by the recipient, or for 332 | the User Product in which it has been modified or installed. Access to a 333 | network may be denied when the modification itself materially and 334 | adversely affects the operation of the network or violates the rules and 335 | protocols for communication across the network. 336 | 337 | Corresponding Source conveyed, and Installation Information provided, 338 | in accord with this section must be in a format that is publicly 339 | documented (and with an implementation available to the public in 340 | source code form), and must require no special password or key for 341 | unpacking, reading or copying. 342 | 343 | 7. Additional Terms. 344 | 345 | "Additional permissions" are terms that supplement the terms of this 346 | License by making exceptions from one or more of its conditions. 347 | Additional permissions that are applicable to the entire Program shall 348 | be treated as though they were included in this License, to the extent 349 | that they are valid under applicable law. If additional permissions 350 | apply only to part of the Program, that part may be used separately 351 | under those permissions, but the entire Program remains governed by 352 | this License without regard to the additional permissions. 353 | 354 | When you convey a copy of a covered work, you may at your option 355 | remove any additional permissions from that copy, or from any part of 356 | it. (Additional permissions may be written to require their own 357 | removal in certain cases when you modify the work.) You may place 358 | additional permissions on material, added by you to a covered work, 359 | for which you have or can give appropriate copyright permission. 360 | 361 | Notwithstanding any other provision of this License, for material you 362 | add to a covered work, you may (if authorized by the copyright holders of 363 | that material) supplement the terms of this License with terms: 364 | 365 | a) Disclaiming warranty or limiting liability differently from the 366 | terms of sections 15 and 16 of this License; or 367 | 368 | b) Requiring preservation of specified reasonable legal notices or 369 | author attributions in that material or in the Appropriate Legal 370 | Notices displayed by works containing it; or 371 | 372 | c) Prohibiting misrepresentation of the origin of that material, or 373 | requiring that modified versions of such material be marked in 374 | reasonable ways as different from the original version; or 375 | 376 | d) Limiting the use for publicity purposes of names of licensors or 377 | authors of the material; or 378 | 379 | e) Declining to grant rights under trademark law for use of some 380 | trade names, trademarks, or service marks; or 381 | 382 | f) Requiring indemnification of licensors and authors of that 383 | material by anyone who conveys the material (or modified versions of 384 | it) with contractual assumptions of liability to the recipient, for 385 | any liability that these contractual assumptions directly impose on 386 | those licensors and authors. 387 | 388 | All other non-permissive additional terms are considered "further 389 | restrictions" within the meaning of section 10. If the Program as you 390 | received it, or any part of it, contains a notice stating that it is 391 | governed by this License along with a term that is a further 392 | restriction, you may remove that term. If a license document contains 393 | a further restriction but permits relicensing or conveying under this 394 | License, you may add to a covered work material governed by the terms 395 | of that license document, provided that the further restriction does 396 | not survive such relicensing or conveying. 397 | 398 | If you add terms to a covered work in accord with this section, you 399 | must place, in the relevant source files, a statement of the 400 | additional terms that apply to those files, or a notice indicating 401 | where to find the applicable terms. 402 | 403 | Additional terms, permissive or non-permissive, may be stated in the 404 | form of a separately written license, or stated as exceptions; 405 | the above requirements apply either way. 406 | 407 | 8. Termination. 408 | 409 | You may not propagate or modify a covered work except as expressly 410 | provided under this License. Any attempt otherwise to propagate or 411 | modify it is void, and will automatically terminate your rights under 412 | this License (including any patent licenses granted under the third 413 | paragraph of section 11). 414 | 415 | However, if you cease all violation of this License, then your 416 | license from a particular copyright holder is reinstated (a) 417 | provisionally, unless and until the copyright holder explicitly and 418 | finally terminates your license, and (b) permanently, if the copyright 419 | holder fails to notify you of the violation by some reasonable means 420 | prior to 60 days after the cessation. 421 | 422 | Moreover, your license from a particular copyright holder is 423 | reinstated permanently if the copyright holder notifies you of the 424 | violation by some reasonable means, this is the first time you have 425 | received notice of violation of this License (for any work) from that 426 | copyright holder, and you cure the violation prior to 30 days after 427 | your receipt of the notice. 428 | 429 | Termination of your rights under this section does not terminate the 430 | licenses of parties who have received copies or rights from you under 431 | this License. If your rights have been terminated and not permanently 432 | reinstated, you do not qualify to receive new licenses for the same 433 | material under section 10. 434 | 435 | 9. Acceptance Not Required for Having Copies. 436 | 437 | You are not required to accept this License in order to receive or 438 | run a copy of the Program. Ancillary propagation of a covered work 439 | occurring solely as a consequence of using peer-to-peer transmission 440 | to receive a copy likewise does not require acceptance. However, 441 | nothing other than this License grants you permission to propagate or 442 | modify any covered work. These actions infringe copyright if you do 443 | not accept this License. Therefore, by modifying or propagating a 444 | covered work, you indicate your acceptance of this License to do so. 445 | 446 | 10. Automatic Licensing of Downstream Recipients. 447 | 448 | Each time you convey a covered work, the recipient automatically 449 | receives a license from the original licensors, to run, modify and 450 | propagate that work, subject to this License. You are not responsible 451 | for enforcing compliance by third parties with this License. 452 | 453 | An "entity transaction" is a transaction transferring control of an 454 | organization, or substantially all assets of one, or subdividing an 455 | organization, or merging organizations. If propagation of a covered 456 | work results from an entity transaction, each party to that 457 | transaction who receives a copy of the work also receives whatever 458 | licenses to the work the party's predecessor in interest had or could 459 | give under the previous paragraph, plus a right to possession of the 460 | Corresponding Source of the work from the predecessor in interest, if 461 | the predecessor has it or can get it with reasonable efforts. 462 | 463 | You may not impose any further restrictions on the exercise of the 464 | rights granted or affirmed under this License. For example, you may 465 | not impose a license fee, royalty, or other charge for exercise of 466 | rights granted under this License, and you may not initiate litigation 467 | (including a cross-claim or counterclaim in a lawsuit) alleging that 468 | any patent claim is infringed by making, using, selling, offering for 469 | sale, or importing the Program or any portion of it. 470 | 471 | 11. Patents. 472 | 473 | A "contributor" is a copyright holder who authorizes use under this 474 | License of the Program or a work on which the Program is based. The 475 | work thus licensed is called the contributor's "contributor version". 476 | 477 | A contributor's "essential patent claims" are all patent claims 478 | owned or controlled by the contributor, whether already acquired or 479 | hereafter acquired, that would be infringed by some manner, permitted 480 | by this License, of making, using, or selling its contributor version, 481 | but do not include claims that would be infringed only as a 482 | consequence of further modification of the contributor version. For 483 | purposes of this definition, "control" includes the right to grant 484 | patent sublicenses in a manner consistent with the requirements of 485 | this License. 486 | 487 | Each contributor grants you a non-exclusive, worldwide, royalty-free 488 | patent license under the contributor's essential patent claims, to 489 | make, use, sell, offer for sale, import and otherwise run, modify and 490 | propagate the contents of its contributor version. 491 | 492 | In the following three paragraphs, a "patent license" is any express 493 | agreement or commitment, however denominated, not to enforce a patent 494 | (such as an express permission to practice a patent or covenant not to 495 | sue for patent infringement). To "grant" such a patent license to a 496 | party means to make such an agreement or commitment not to enforce a 497 | patent against the party. 498 | 499 | If you convey a covered work, knowingly relying on a patent license, 500 | and the Corresponding Source of the work is not available for anyone 501 | to copy, free of charge and under the terms of this License, through a 502 | publicly available network server or other readily accessible means, 503 | then you must either (1) cause the Corresponding Source to be so 504 | available, or (2) arrange to deprive yourself of the benefit of the 505 | patent license for this particular work, or (3) arrange, in a manner 506 | consistent with the requirements of this License, to extend the patent 507 | license to downstream recipients. "Knowingly relying" means you have 508 | actual knowledge that, but for the patent license, your conveying the 509 | covered work in a country, or your recipient's use of the covered work 510 | in a country, would infringe one or more identifiable patents in that 511 | country that you have reason to believe are valid. 512 | 513 | If, pursuant to or in connection with a single transaction or 514 | arrangement, you convey, or propagate by procuring conveyance of, a 515 | covered work, and grant a patent license to some of the parties 516 | receiving the covered work authorizing them to use, propagate, modify 517 | or convey a specific copy of the covered work, then the patent license 518 | you grant is automatically extended to all recipients of the covered 519 | work and works based on it. 520 | 521 | A patent license is "discriminatory" if it does not include within 522 | the scope of its coverage, prohibits the exercise of, or is 523 | conditioned on the non-exercise of one or more of the rights that are 524 | specifically granted under this License. You may not convey a covered 525 | work if you are a party to an arrangement with a third party that is 526 | in the business of distributing software, under which you make payment 527 | to the third party based on the extent of your activity of conveying 528 | the work, and under which the third party grants, to any of the 529 | parties who would receive the covered work from you, a discriminatory 530 | patent license (a) in connection with copies of the covered work 531 | conveyed by you (or copies made from those copies), or (b) primarily 532 | for and in connection with specific products or compilations that 533 | contain the covered work, unless you entered into that arrangement, 534 | or that patent license was granted, prior to 28 March 2007. 535 | 536 | Nothing in this License shall be construed as excluding or limiting 537 | any implied license or other defenses to infringement that may 538 | otherwise be available to you under applicable patent law. 539 | 540 | 12. No Surrender of Others' Freedom. 541 | 542 | If conditions are imposed on you (whether by court order, agreement or 543 | otherwise) that contradict the conditions of this License, they do not 544 | excuse you from the conditions of this License. If you cannot convey a 545 | covered work so as to satisfy simultaneously your obligations under this 546 | License and any other pertinent obligations, then as a consequence you may 547 | not convey it at all. For example, if you agree to terms that obligate you 548 | to collect a royalty for further conveying from those to whom you convey 549 | the Program, the only way you could satisfy both those terms and this 550 | License would be to refrain entirely from conveying the Program. 551 | 552 | 13. Use with the GNU Affero General Public License. 553 | 554 | Notwithstanding any other provision of this License, you have 555 | permission to link or combine any covered work with a work licensed 556 | under version 3 of the GNU Affero General Public License into a single 557 | combined work, and to convey the resulting work. The terms of this 558 | License will continue to apply to the part which is the covered work, 559 | but the special requirements of the GNU Affero General Public License, 560 | section 13, concerning interaction through a network will apply to the 561 | combination as such. 562 | 563 | 14. Revised Versions of this License. 564 | 565 | The Free Software Foundation may publish revised and/or new versions of 566 | the GNU General Public License from time to time. Such new versions will 567 | be similar in spirit to the present version, but may differ in detail to 568 | address new problems or concerns. 569 | 570 | Each version is given a distinguishing version number. If the 571 | Program specifies that a certain numbered version of the GNU General 572 | Public License "or any later version" applies to it, you have the 573 | option of following the terms and conditions either of that numbered 574 | version or of any later version published by the Free Software 575 | Foundation. If the Program does not specify a version number of the 576 | GNU General Public License, you may choose any version ever published 577 | by the Free Software Foundation. 578 | 579 | If the Program specifies that a proxy can decide which future 580 | versions of the GNU General Public License can be used, that proxy's 581 | public statement of acceptance of a version permanently authorizes you 582 | to choose that version for the Program. 583 | 584 | Later license versions may give you additional or different 585 | permissions. However, no additional obligations are imposed on any 586 | author or copyright holder as a result of your choosing to follow a 587 | later version. 588 | 589 | 15. Disclaimer of Warranty. 590 | 591 | THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY 592 | APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT 593 | HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY 594 | OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, 595 | THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR 596 | PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM 597 | IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF 598 | ALL NECESSARY SERVICING, REPAIR OR CORRECTION. 599 | 600 | 16. Limitation of Liability. 601 | 602 | IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING 603 | WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MODIFIES AND/OR CONVEYS 604 | THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY 605 | GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE 606 | USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF 607 | DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD 608 | PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS), 609 | EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF 610 | SUCH DAMAGES. 611 | 612 | 17. Interpretation of Sections 15 and 16. 613 | 614 | If the disclaimer of warranty and limitation of liability provided 615 | above cannot be given local legal effect according to their terms, 616 | reviewing courts shall apply local law that most closely approximates 617 | an absolute waiver of all civil liability in connection with the 618 | Program, unless a warranty or assumption of liability accompanies a 619 | copy of the Program in return for a fee. 620 | 621 | END OF TERMS AND CONDITIONS 622 | 623 | How to Apply These Terms to Your New Programs 624 | 625 | If you develop a new program, and you want it to be of the greatest 626 | possible use to the public, the best way to achieve this is to make it 627 | free software which everyone can redistribute and change under these terms. 628 | 629 | To do so, attach the following notices to the program. It is safest 630 | to attach them to the start of each source file to most effectively 631 | state the exclusion of warranty; and each file should have at least 632 | the "copyright" line and a pointer to where the full notice is found. 633 | 634 | {one line to give the program's name and a brief idea of what it does.} 635 | Copyright (C) {year} {name of author} 636 | 637 | This program is free software: you can redistribute it and/or modify 638 | it under the terms of the GNU General Public License as published by 639 | the Free Software Foundation, either version 3 of the License, or 640 | (at your option) any later version. 641 | 642 | This program is distributed in the hope that it will be useful, 643 | but WITHOUT ANY WARRANTY; without even the implied warranty of 644 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 645 | GNU General Public License for more details. 646 | 647 | You should have received a copy of the GNU General Public License 648 | along with this program. If not, see . 649 | 650 | Also add information on how to contact you by electronic and paper mail. 651 | 652 | If the program does terminal interaction, make it output a short 653 | notice like this when it starts in an interactive mode: 654 | 655 | {project} Copyright (C) {year} {fullname} 656 | This program comes with ABSOLUTELY NO WARRANTY; for details type `show w'. 657 | This is free software, and you are welcome to redistribute it 658 | under certain conditions; type `show c' for details. 659 | 660 | The hypothetical commands `show w' and `show c' should show the appropriate 661 | parts of the General Public License. Of course, your program's commands 662 | might be different; for a GUI interface, you would use an "about box". 663 | 664 | You should also get your employer (if you work as a programmer) or school, 665 | if any, to sign a "copyright disclaimer" for the program, if necessary. 666 | For more information on this, and how to apply and follow the GNU GPL, see 667 | . 668 | 669 | The GNU General Public License does not permit incorporating your program 670 | into proprietary programs. If your program is a subroutine library, you 671 | may consider it more useful to permit linking proprietary applications with 672 | the library. If this is what you want to do, use the GNU Lesser General 673 | Public License instead of this License. But first, please read 674 | . 675 | 676 | -------------------------------------------------------------------------------- /README.md: -------------------------------------------------------------------------------- 1 | # mc-wolf3d 2 | Little raycasting game engine. 3 | 4 | $ cd quicklisp/local-projects/ 5 | $ git clone https://github.com/josrr/mc-wolf3d.git 6 | $ sbcl 7 | This is SBCL 1.4.6, an implementation of ANSI Common Lisp. 8 | More information about SBCL is available at . 9 | 10 | SBCL is free software, provided as is, with absolutely no warranty. 11 | It is mostly in the public domain; some portions are provided under 12 | BSD-style licenses. See the CREDITS and COPYING files in the 13 | distribution for more information. 14 | * (ql:quickload "mc-wolf3d") 15 | To load "mc-wolf3d": 16 | Load 1 ASDF system: 17 | mc-wolf3d 18 | ; Loading "mc-wolf3d" 19 | .................................................. 20 | [package escenario]............................... 21 | [package mc-wolf3d]........ 22 | ("mc-wolf3d") 23 | * (mc-wolf3d:wolf3d-main escenario:*mapa*) 24 | 25 | ![Screenshot](wolf3d04.png) 26 | 27 | Press the n key to start the game 28 | 29 | ### Code by José Miguel R. R. 30 | ### Art by Alexis Ruiz Martínez 31 | 32 | ## License 33 | Copyright © 2018 [José Miguel R. R.](mailto:) 34 | 35 | GNU General Public License version 3. 36 | 37 | 38 | -------------------------------------------------------------------------------- /Wargames-copyright.txt: -------------------------------------------------------------------------------- 1 | This package was debianized by Aurelien Jarno on 2 | Mon, 7 Apr 2003 00:33:50 +0200. 3 | 4 | All the fonts were downloaded from http://www.dustismo.com 5 | 6 | Upstream Author: Dustin Norlander 7 | 8 | 9 | Copyright (C) 2002-2003 Dustin Norlander 10 | 11 | You are free to distribute this software under the terms of the GNU General 12 | Public License. On Debian systems, the complete text of the GNU General Public 13 | License can be found in /usr/share/common-licenses/GPL-2 file. 14 | -------------------------------------------------------------------------------- /Wargames.ttf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/josrr/mc-wolf3d/5d469031947f1b2d0414673847d44a6eb720f4b5/Wargames.ttf -------------------------------------------------------------------------------- /editundo.ttf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/josrr/mc-wolf3d/5d469031947f1b2d0414673847d44a6eb720f4b5/editundo.ttf -------------------------------------------------------------------------------- /editundo.txt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/josrr/mc-wolf3d/5d469031947f1b2d0414673847d44a6eb720f4b5/editundo.txt -------------------------------------------------------------------------------- /escenario.lisp: -------------------------------------------------------------------------------- 1 | (in-package #:escenario) 2 | 3 | (declaim (type single-float *ancho* *alto* *tex-ancho* *tex-alto*) 4 | (type fixnum *alto/2* *alto-fix* *ancho-fix* *tex-ancho-fix* *tex-alto-fix*)) 5 | (defparameter *ancho* 1280.0) 6 | (defparameter *alto* 760.0) 7 | (defparameter *tex-ancho* 128.0) 8 | (defparameter *tex-alto* 128.0) 9 | (defparameter *tex-ancho-fix* (truncate *tex-ancho*)) 10 | (defparameter *tex-alto-fix* (truncate *tex-alto*)) 11 | (defparameter *alto-fix* (truncate *alto*)) 12 | (defparameter *ancho-fix* (truncate *ancho*)) 13 | (defparameter *alto/2* (truncate *alto* 2)) 14 | 15 | (declaim (inline aproxima-angulo)) 16 | (defun aproxima-angulo (angulo) 17 | (declare (optimize (speed 3) (safety 0) (debug 0)) 18 | (type single-float angulo)) 19 | (let ((fraccion (coerce (/ pi *tex-ancho*) 'single-float))) 20 | (declare (type single-float fraccion)) 21 | (* (the fixnum (truncate angulo fraccion)) fraccion))) 22 | 23 | (defconstant +valmax+ 10000000.0) 24 | (declaim (inline divseg)) 25 | (defun divseg (x y) 26 | (declare (optimize (speed 3) (safety 0) (debug 0)) 27 | (type single-float x y)) 28 | (if (zerop y) 29 | 10000.0 30 | (/ x y))) 31 | 32 | (defclass escenario () 33 | ((ancho :initarg :ancho :accessor ancho :initform *ancho* :type single-float) 34 | (alto :initarg :ancho :accessor alto :initform *alto* :type single-float) 35 | (posición :initarg :posicion :accessor posición :initform (vec2 1.0 1.0)) 36 | (dirección :initarg :dirección :accessor dirección :initform (vec2 -1 0)) 37 | (plano-camara :initarg :plano-camara :accessor plano-camara :initform (vec2 0 0.66)) 38 | (rayos-pares :accessor rayos-pares :initform t :type boolean) 39 | (vel-mov :accessor vel-mov :initform 0.2 :type single-float) 40 | (vel-rot :accessor vel-rot :initform (aproxima-angulo (coerce (* 1.0 (/ pi 32.0)) 'single-float)) :type single-float) 41 | (zbuffer :accessor zbuffer :initform (make-array (truncate *ancho*) :element-type 'single-float :initial-element 0.0)) 42 | (imagen :accessor imagen :initarg :imagen :initform 43 | (make-image *ancho-fix* *alto-fix*)) 44 | (manos :accessor manos :initform nil :initarg :manos :type (simple-array (unsigned-byte 32))) 45 | (mapa :initarg :mapa :accessor mapa :initform nil :type (simple-array fixnum (24 24))) 46 | (sprites-maestros :initform (make-hash-table) :initarg :sprites-maestros :accessor sprites-maestros :type hash-table) 47 | (sprites :initform nil :initarg :sprites :accessor sprites :type (simple-array sprite)) 48 | (personajes :initform nil :initarg :personajes :accessor personajes :type (simple-array personaje)) 49 | (texturas :initarg :texturas :accessor texturas :initform nil 50 | :type (simple-array (simple-array (unsigned-byte 32) (*tex-ancho-fix* *tex-alto-fix*)) *)) 51 | (sonidos :initform nil :initarg :sonidos :accessor sonidos :type (simple-array t)))) 52 | 53 | (defun crea-escenario (mapa sprites-maestros sprites 54 | ruta-sonidos &optional (ruta-texturas #P"./pics/")) 55 | (let* ((tabla-sprites (carga-sprites-maestros sprites-maestros)) 56 | (arreglo-sprites (crea-sprites tabla-sprites sprites)) 57 | (personajes (remove-if (complement 58 | (lambda (s) 59 | (member (sprite-nombre (sprite-maestro s)) 60 | *personajes* :key #'car))) 61 | arreglo-sprites))) 62 | (make-instance 'escenario 63 | :texturas (carga-texturas ruta-texturas) 64 | :mapa mapa 65 | :sonidos (carga-sonidos ruta-sonidos) 66 | :sprites-maestros tabla-sprites 67 | :sprites arreglo-sprites 68 | :personajes (make-array (length personajes) :element-type 'personaje 69 | :initial-contents (map 'list 70 | (lambda (s) 71 | (let ((comp (assoc (sprite-nombre (sprite-maestro s)) 72 | *personajes*))) 73 | (crea-personaje s (when comp (cdr comp))))) 74 | personajes)) 75 | :manos (carga-archivo (merge-pathnames #P"pics/manos.png" mc-wolf3d:*ruta-del-sistema*))))) 76 | 77 | (defgeneric rota (escenario &optional dir)) 78 | 79 | (defmethod rota (escenario &optional (dir 1)) 80 | (declare (optimize (speed 3) (safety 1)) 81 | (type fixnum dir)) 82 | (with-slots (dirección plano-camara vel-rot) escenario 83 | (declare (type single-float vel-rot)) 84 | (let ((mat-rot (mrotation +vz+ (* dir vel-rot)))) 85 | (setf dirección (vxy (m* mat-rot (vxy__ dirección))) 86 | plano-camara (vxy (m* mat-rot (vxy__ plano-camara))))))) 87 | 88 | (defun mueve (escenario &optional (dir 1)) 89 | (declare (optimize (speed 3) (safety 0)) 90 | (type fixnum dir)) 91 | (with-slots (mapa posición dirección vel-mov) escenario 92 | (declare (type single-float vel-mov) 93 | (type (simple-array fixnum (24 24)) mapa)) 94 | (let* ((nueva-posicion (v+ posición (v* (* dir vel-mov) dirección))) 95 | (x-i (truncate (vx2 nueva-posicion))) 96 | (y-i (truncate (vy2 nueva-posicion)))) 97 | (declare (type fixnum x-i y-i)) 98 | (when (and (> x-i 0) (< x-i (array-dimension mapa 1)) 99 | (> y-i 0) (< y-i (array-dimension mapa 0)) 100 | (zerop (aref mapa x-i y-i))) 101 | (setf posición nueva-posicion))))) 102 | 103 | (proclaim '(ftype (function ((simple-array (unsigned-byte 32) *) 104 | keyword fixnum fixnum fixnum fixnum 105 | (simple-array (unsigned-byte 32) *) fixnum) 106 | null) 107 | dibuja-linea-vertical)) 108 | 109 | (declaim (inline dibuja-linea-vertical borra-imagen dibuja-piso)) 110 | (defun dibuja-linea-vertical (arreglo modo x y-ini y-fin largo-linea textura x-tex) 111 | (declare (optimize (speed 3) (safety 0) (debug 0)) 112 | (type (simple-array (unsigned-byte 32) *) arreglo) 113 | (type (or null (simple-array (unsigned-byte 32) *)) textura) 114 | (type fixnum y-ini y-fin largo-linea x)) 115 | (loop with dy single-float = (* 0.5 (- largo-linea (1- *alto*))) 116 | for y fixnum from y-ini below y-fin 117 | for valor of-type (unsigned-byte 32) = (aref textura 118 | (the fixnum (truncate (* *tex-alto* (+ y dy)) largo-linea)) 119 | x-tex) 120 | do (setf (aref arreglo y x) 121 | (if (eq :vertical modo) 122 | (logior (ash (ash (logand (ash valor -8) #xFEFEFE) -1) 8) #xFF) 123 | valor)))) 124 | 125 | (declaim (type (simple-array single-float *) *distancias*)) 126 | (defparameter *distancias* (make-array *alto/2* 127 | :element-type 'single-float 128 | :initial-contents (loop for y from *alto/2* to (1- *alto*) 129 | collect (divseg *alto* (- (* 2.0 y) *alto*))))) 130 | 131 | (defun dibuja-piso (arreglo pos-x pos-y x y-fin dist-pared-perp lado pared-x rayo-dir-x rayo-dir-y mapa-x mapa-y textura-piso textura-techo &optional textura-piso-2) 132 | (declare (optimize (speed 3) (safety 0) (debug 0)) 133 | (type fixnum x y-fin) 134 | (type single-float pared-x rayo-dir-x rayo-dir-y dist-pared-perp pos-x pos-y mapa-x mapa-y) 135 | (type (simple-array (unsigned-byte 32) *) arreglo textura-piso textura-techo) 136 | (type (or null (simple-array (unsigned-byte 32) *)) textura-piso-2)) 137 | (multiple-value-bind (piso-pared-x piso-pared-y) (if (eq :horizontal lado) 138 | (values (if (plusp rayo-dir-x) 139 | mapa-x 140 | (1+ mapa-x)) 141 | (+ mapa-y pared-x)) 142 | (values (+ mapa-x pared-x) 143 | (if (plusp rayo-dir-y) 144 | mapa-y 145 | (1+ mapa-y)))) 146 | (declare (type single-float piso-pared-x piso-pared-y)) 147 | (loop for y fixnum from (1+ (if (minusp y-fin) *alto-fix* y-fin)) below *alto-fix* 148 | for peso single-float = (divseg (aref *distancias* (- y *alto/2*)) dist-pared-perp) 149 | for c-x single-float = (+ (* peso (- piso-pared-x pos-x)) pos-x) 150 | and c-y single-float = (+ (* peso (- piso-pared-y pos-y)) pos-y) 151 | for c-x-fix fixnum = (the fixnum (truncate c-x)) 152 | and c-y-fix fixnum = (the fixnum (truncate c-y)) 153 | for tex-x fixnum = (mod (the fixnum (truncate (* *tex-ancho* c-x))) *tex-ancho-fix*) 154 | and tex-y fixnum = (mod (the fixnum (truncate (* *tex-ancho* c-y))) *tex-alto-fix*) 155 | do (setf (aref arreglo y x) 156 | (aref (if textura-piso-2 157 | (if (zerop (mod (+ c-x-fix c-y-fix) 2)) textura-piso-2 textura-piso) 158 | textura-techo) 159 | tex-y tex-x) 160 | (aref arreglo (- *alto-fix* y) x) 161 | (aref textura-techo tex-y tex-x))))) 162 | 163 | (defun borra-imagen (arreglo) 164 | (declare (optimize (speed 3) (safety 1) (debug 1)) 165 | (type (simple-array (unsigned-byte 32) (768 1280)) arreglo)) 166 | (loop for y from 0 below (array-dimension arreglo 0) 167 | do (loop for x from 0 below (array-dimension arreglo 1) 168 | do (setf (aref arreglo y x) 169 | (if (< y *alto/2*) #xFFaaaaaa #xFFdd6666))))) 170 | 171 | #+sbcl 172 | (declaim (type (simple-array (or null function)) *tareas*) 173 | (type (simple-array sb-thread:mutex) *bloqueos*) 174 | (type (simple-array sb-thread:waitqueue) *conds*)) 175 | 176 | (defparameter *num-hilos* 4) 177 | (defparameter *tareas* (make-array *num-hilos* :initial-element nil)) 178 | (defparameter *conds* (make-array *num-hilos* :initial-contents (loop repeat *num-hilos* collect (bt:make-condition-variable)))) 179 | (defparameter *bloqueos* (make-array *num-hilos* :initial-contents (loop repeat *num-hilos* collect (bt:make-lock)))) 180 | (defparameter *hilos* nil) 181 | (defparameter *bloqueo-fin* (bt:make-lock "fin")) 182 | (defparameter *cond-fin* (bt:make-condition-variable)) 183 | 184 | (defun inicia-hilos () 185 | (unless *hilos* 186 | (setf *hilos* 187 | (loop for i from 0 below *num-hilos* collect 188 | (bt:make-thread (funcall (lambda (i) 189 | (lambda () 190 | (loop with cv = (aref *conds* i) 191 | and bl = (aref *bloqueos* i) 192 | while t 193 | do (bt:thread-yield) 194 | (bt:with-lock-held (bl) 195 | (loop until (aref *tareas* i) 196 | do (bt:condition-wait cv bl))) 197 | (funcall (aref *tareas* i)) 198 | (setf (aref *tareas* i) nil) 199 | (bt:with-lock-held (*bloqueo-fin*) 200 | (when (every #'null *tareas*) 201 | (bt:condition-notify *cond-fin*)))))) 202 | i)))))) 203 | 204 | (defun termina-hilos () 205 | (map 'nil #'bt:destroy-thread *hilos*) 206 | (setf *hilos* nil)) 207 | 208 | (declaim (inline genera-escenario dibuja-manos)) 209 | (defun genera-escenario (x-ini x-fin pixels dirección posición plano-camara mapa texturas zbuffer) 210 | (declare (optimize (speed 3) (safety 0) (debug 0)) 211 | (type single-float x-ini x-fin) 212 | (type (simple-array (unsigned-byte 32) *) pixels) 213 | (type (simple-array fixnum (24 24)) mapa) 214 | (type (simple-array (simple-array (unsigned-byte 32))) texturas) 215 | (type (simple-array single-float) zbuffer)) 216 | (loop with paso-x fixnum = 0 and paso-y fixnum = 0 217 | and lado-dist = (vec2 0 0) and lado keyword = :horizontal 218 | for x single-float from x-ini below x-fin by 1.0 219 | and mapa-x fixnum = (the fixnum (truncate (vx2 posición))) 220 | and mapa-y fixnum = (the fixnum (truncate (vy2 posición))) 221 | for camara-x single-float = (1- (/ (* 2.0 x) *ancho*)) 222 | for rayo-dir = (v+ dirección (v* camara-x plano-camara)) 223 | for Δ-dist = (vec2 (abs (divseg 1.0 (vx2 rayo-dir))) 224 | (abs (divseg 1.0 (vy2 rayo-dir)))) 225 | if (minusp (vx2 rayo-dir)) do 226 | (setf paso-x -1 227 | (vx2 lado-dist) (* (- (vx2 posición) mapa-x) (vx2 Δ-dist))) 228 | else do 229 | (setf paso-x 1 230 | (vx2 lado-dist) (* (- (the fixnum (1+ mapa-x)) (vx2 posición)) (vx2 Δ-dist))) 231 | end if (minusp (vy2 rayo-dir)) do 232 | (setf paso-y -1 233 | (vy2 lado-dist) (* (- (vy2 posición) mapa-y) (vy2 Δ-dist))) 234 | else do 235 | (setf paso-y 1 236 | (vy2 lado-dist) (* (- (the fixnum (1+ mapa-y)) (vy2 posición)) (vy2 Δ-dist))) 237 | end 238 | do (loop if (< (vx2 lado-dist) (vy2 lado-dist)) 239 | do (incf (vx2 lado-dist) (vx2 Δ-dist)) 240 | (incf mapa-x paso-x) 241 | (setf lado :horizontal) 242 | else do 243 | (incf (vy2 lado-dist) (vy2 Δ-dist)) 244 | (incf mapa-y paso-y) 245 | (setf lado :vertical) end 246 | while (zerop (aref mapa mapa-x mapa-y))) 247 | (let* ((dist-pared-perp (if (eq :horizontal lado) 248 | (divseg (+ mapa-x (- (vx2 posición)) (/ (- 1 paso-x) 2.0)) 249 | (vx2 rayo-dir)) 250 | (divseg (+ mapa-y (- (vy2 posición)) (/ (- 1 paso-y) 2.0)) 251 | (vy2 rayo-dir)))) 252 | (pared-x (if (eq :horizontal lado) 253 | (+ (vy2 posición) (* dist-pared-perp (vy2 rayo-dir))) 254 | (+ (vx2 posición) (* dist-pared-perp (vx2 rayo-dir))))) 255 | (tex-x (truncate (decf pared-x (the fixnum (truncate pared-x))) 256 | (/ *tex-ancho*))) 257 | (largo-linea (truncate (divseg *alto* dist-pared-perp))) 258 | (y-fin (let ((tmp (/ (+ *alto* largo-linea) 2.0))) 259 | (declare (type single-float tmp)) 260 | (if (> tmp *alto*) 261 | *alto* tmp))) 262 | (x-fix (truncate x)) 263 | (mapa-x-f (coerce mapa-x 'single-float)) 264 | (mapa-y-f (coerce mapa-y 'single-float))) 265 | (declare (type fixnum tex-x largo-linea x-fix) 266 | (type single-float dist-pared-perp pared-x y-fin mapa-x-f mapa-y-f)) 267 | (when (and (eq :horizontal lado) (plusp (vx2 rayo-dir))) 268 | (setf tex-x (- *tex-ancho-fix* tex-x 1))) 269 | (when (and (eq :vertical lado) (minusp (vy2 rayo-dir))) 270 | (setf tex-x (- *tex-ancho-fix* tex-x 1))) 271 | (dibuja-linea-vertical pixels lado x-fix 272 | (let ((tmp (truncate (- *alto* largo-linea) 2.0))) 273 | (declare (type fixnum tmp)) 274 | (if (minusp tmp) 0 tmp)) 275 | (the fixnum (truncate y-fin)) 276 | largo-linea 277 | (aref texturas (1- (aref mapa mapa-x mapa-y))) 278 | tex-x) 279 | (setf (aref zbuffer x-fix) dist-pared-perp) 280 | (dibuja-piso pixels 281 | (vx2 posición) (vy2 posición) 282 | x-fix (the fixnum (truncate y-fin)) 283 | dist-pared-perp lado pared-x 284 | (vx2 rayo-dir) (vy2 rayo-dir) 285 | mapa-x-f mapa-y-f 286 | (aref texturas 3) 287 | (aref texturas 3) 288 | (aref texturas 3))))) 289 | 290 | (defun dibuja-manos (manos pixels x y ancho-manos alto-manos) 291 | (declare (optimize (speed 3) (safety 0) (debug 0)) 292 | (type fixnum x y ancho-manos alto-manos) 293 | (type (simple-array (unsigned-byte 32) *) manos pixels)) 294 | (loop for j fixnum from 0 below alto-manos do 295 | (loop for i fixnum from 0 below ancho-manos 296 | for color = (aref manos j i) 297 | if (/= color #xFF) do 298 | (setf (aref pixels (+ y j) (+ x i)) 299 | color)))) 300 | 301 | (defgeneric regenera (escenario)) 302 | 303 | (defmethod regenera ((escenario escenario)) 304 | (declare (optimize (speed 3) (safety 0) (debug 0))) 305 | (with-slots (imagen ancho alto dirección posición pane mapa 306 | manos plano-camara sprites texturas zbuffer) 307 | escenario 308 | (declare (type single-float ancho alto) 309 | (type (simple-array fixnum (24 24)) mapa) 310 | (type (simple-array single-float *) zbuffer) 311 | (type (simple-array (simple-array (unsigned-byte 32) *) *) texturas)) 312 | (sprites-ordena posición sprites) 313 | (let ((pixels (clime:pattern-array imagen))) 314 | (declare (type (simple-array (unsigned-byte 32) *) pixels)) 315 | (loop with paso single-float = (/ ancho (the fixnum *num-hilos*)) 316 | for x single-float from 0.0 below ancho by paso 317 | and i fixnum from 0 318 | do (bt:with-lock-held ((aref *bloqueos* i)) 319 | (setf (aref *tareas* i) 320 | (let ((x x)) 321 | (lambda () 322 | (genera-escenario x (+ x paso) pixels dirección 323 | posición plano-camara 324 | mapa texturas zbuffer) 325 | (sprites-dibuja pixels 326 | x paso 327 | ancho alto 328 | (vx2 posición) (vy2 posición) 329 | (vx2 plano-camara) (vy2 plano-camara) 330 | (vx2 dirección) (vy2 dirección) 331 | sprites zbuffer texturas)))) 332 | (bt:condition-notify (aref *conds* i)))) 333 | (bt:with-lock-held (*bloqueo-fin*) 334 | (loop until (every #'null *tareas*) 335 | do (bt:condition-wait *cond-fin* *bloqueo-fin*))) 336 | (let ((ancho-manos (array-dimension manos 1)) 337 | (alto-manos (array-dimension manos 0))) 338 | (declare (type fixnum ancho-manos alto-manos)) 339 | (dibuja-manos manos pixels 340 | (the fixnum (truncate (- ancho ancho-manos) 2)) 341 | (- (the fixnum (truncate alto)) alto-manos) 342 | ancho-manos alto-manos))))) 343 | 344 | (defclass accion () 345 | ((pars :initarg :pars :accessor accion-pars) 346 | (realizada :initform nil :accessor accion-realizada))) 347 | (defclass accion-sonido (accion) 348 | ()) 349 | (defclass accion-dialogo (accion) 350 | ()) 351 | (defclass evento () 352 | ((accion :initarg :accion :accessor evento-accion :type accion))) 353 | (defclass evento-contacto (evento) ()) 354 | 355 | (defgeneric accion-realiza (escenario accion sprite lienzo mezclador)) 356 | 357 | (defgeneric evento-reliza (escenario evento sprite lienzo mezclador)) 358 | 359 | (defmethod accion-realiza ((escenario escenario) (accion accion-sonido) (sprite sprite) lienzo mezclador) 360 | (declare (optimize (speed 3)) (ignore lienzo)) 361 | (with-slots (sonidos) escenario 362 | (declare (type (simple-array mixalot-vorbis:vorbis-streamer) sonidos)) 363 | (let ((snd (aref sonidos (accion-pars accion)))) 364 | (declare (type mixalot-vorbis:vorbis-streamer snd)) 365 | (if (mixalot:streamer-paused-p snd mezclador) 366 | (progn 367 | (mixalot:streamer-seek snd mezclador 0) 368 | (mixalot:streamer-unpause snd mezclador)) 369 | (if (member snd (mixalot:mixer-stream-list mezclador)) 370 | (when (> (the fixnum (mixalot:streamer-position snd mezclador)) 371 | 22050) 372 | (mixalot:streamer-seek snd mezclador 0)) 373 | (mixalot:mixer-add-streamer mezclador snd)))))) 374 | 375 | (defparameter *tipo-dialogo* (make-text-style "Edit Undo BRK" "Regular" 24)) 376 | (defun dibuja-dialogo (escenario lienzo texto) 377 | (with-slots (alto ancho) escenario 378 | (draw-rectangle* lienzo 379 | 256 (- (bounding-rectangle-height lienzo) 256) 380 | (- (bounding-rectangle-width lienzo) 320) 381 | (- (bounding-rectangle-height lienzo) 24) 382 | :filled nil 383 | :ink +turquoise+) 384 | (draw-rectangle* lienzo 385 | 258 (- (bounding-rectangle-height lienzo) 248) 386 | (- (bounding-rectangle-width lienzo) 324) 387 | (- (bounding-rectangle-height lienzo) 28) 388 | :filled t 389 | :ink +black+) 390 | (loop for linea in texto 391 | for y-ini from (- (bounding-rectangle-height lienzo) 230) by 26 do 392 | (draw-text* lienzo linea 393 | 264 y-ini 394 | :align-x :left 395 | :text-style *tipo-dialogo* 396 | :ink +turquoise+)))) 397 | 398 | (defmethod accion-realiza ((escenario escenario) (accion accion-dialogo) (sprite sprite) lienzo mezclador) 399 | (declare (optimize (speed 3)) 400 | (ignore mezclador sprite)) 401 | (unless (accion-realizada accion) 402 | (setf (accion-realizada accion) t) 403 | (dibuja-dialogo escenario lienzo (accion-pars accion)))) 404 | 405 | (defmethod evento-reliza ((escenario escenario) (evento evento-contacto) 406 | (sprite sprite) lienzo mezclador) 407 | (declare (optimize (speed 3))) 408 | (with-slots (posición) escenario 409 | (with-slots (x y) sprite 410 | (declare (type single-float x y)) 411 | (let ((Δᵤ (abs (the single-float (- (vx2 posición) x)))) 412 | (Δᵥ (abs (the single-float (- (vy2 posición) y))))) 413 | (declare (type single-float Δᵤ Δᵥ)) 414 | (when (and (<= Δᵤ 0.75) (<= Δᵥ 0.35)) 415 | (accion-realiza escenario (evento-accion evento) sprite lienzo mezclador)))))) 416 | 417 | (defgeneric escenario-revisa-eventos (escenario lienzo mezclador)) 418 | 419 | (defmethod escenario-revisa-eventos ((escenario escenario) lienzo mezclador) 420 | (declare (optimize (speed 3))) 421 | (with-slots (sprites) escenario 422 | (declare (type (simple-array sprite) sprites)) 423 | (when sprites 424 | (loop for sprite across sprites do 425 | (loop for ev in (sprite-eventos (sprite-maestro sprite)) do 426 | (evento-reliza escenario ev sprite lienzo mezclador)))))) 427 | 428 | (defgeneric personaje-realiza-comportamiento (personaje escenario)) 429 | 430 | (defmethod personaje-realiza-comportamiento ((personaje personaje) (escenario escenario)) 431 | (with-slots (comportamiento) personaje 432 | (when comportamiento 433 | (funcall comportamiento escenario personaje)))) 434 | 435 | (defgeneric escenario-realiza-personajes (escenario)) 436 | 437 | (defmethod escenario-realiza-personajes ((escenario escenario)) 438 | (declare (optimize (speed 3))) 439 | (with-slots (personajes) escenario 440 | (declare (type (simple-array personaje) personajes)) 441 | (when personajes 442 | (some #'identity 443 | (loop for personaje across personajes collect 444 | (personaje-realiza-comportamiento personaje escenario)))))) 445 | -------------------------------------------------------------------------------- /fondo.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/josrr/mc-wolf3d/5d469031947f1b2d0414673847d44a6eb720f4b5/fondo.png -------------------------------------------------------------------------------- /gen-imagen.lisp: -------------------------------------------------------------------------------- 1 | ;; -*- coding: utf-8-unix; -*- 2 | (in-package #:common-lisp-user) 3 | (ql:quickload "mc-wolf3d") 4 | ;; 5 | (uiop/image:register-image-restore-hook 6 | (lambda () 7 | (mc-wolf3d:wolf3d-main) 8 | (gc :full t) 9 | (sb-impl::toplevel-repl nil)) 10 | nil) 11 | 12 | (uiop/image:dump-image "mc-wolf3d" :executable t) 13 | 14 | 15 | -------------------------------------------------------------------------------- /mapas.lisp: -------------------------------------------------------------------------------- 1 | (in-package #:escenario) 2 | 3 | (declaim (type (cons (simple-array fixnum (24 24))) *mapas*)) 4 | 5 | (defparameter *mapas* 6 | (list 7 | (make-array '(24 24) 8 | :element-type 'fixnum 9 | :initial-contents 10 | '((2 2 2 1 2 1 2 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2) 11 | (7 0 0 0 0 0 0 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2) 12 | (2 2 2 2 2 2 2 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2) 13 | (2 2 2 2 2 2 2 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2) 14 | (2 2 2 2 2 2 2 0 2 2 2 2 1 2 2 2 1 2 2 2 1 2 2 2) 15 | (2 2 2 2 2 2 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1) 16 | (2 2 2 2 2 2 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2) 17 | (2 2 2 2 2 2 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2) 18 | (2 2 2 2 2 2 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2) 19 | (2 2 2 2 2 2 1 2 2 2 2 2 2 2 0 0 2 2 2 2 2 2 2 1) 20 | (2 2 2 2 2 2 2 0 0 0 0 0 0 2 0 0 2 0 0 0 0 0 0 2) 21 | (2 2 2 2 2 2 2 0 0 0 0 0 0 2 0 0 2 0 0 0 0 0 0 2) 22 | (2 2 2 2 2 2 2 0 0 0 0 0 0 2 0 0 2 0 0 0 0 0 0 2) 23 | (2 2 2 2 2 2 1 0 0 0 0 0 0 2 0 0 2 0 0 0 0 0 0 1) 24 | (2 2 2 2 2 2 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2) 25 | (2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 0 2 2 2 2 2 2 2 2) 26 | (2 2 2 2 2 2 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2) 27 | (2 2 2 2 2 2 1 0 0 0 0 0 0 2 0 0 2 0 0 0 0 0 0 1) 28 | (2 2 2 2 2 2 2 0 0 0 0 0 0 2 0 0 2 0 0 0 0 0 0 2) 29 | (2 2 2 2 2 2 2 0 0 0 0 0 0 2 0 0 2 0 0 0 0 0 0 2) 30 | (2 2 2 2 2 2 2 0 0 0 0 0 0 2 0 0 2 0 0 0 0 0 0 2) 31 | (2 2 2 2 2 2 1 0 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1) 32 | (2 2 2 2 2 2 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2) 33 | (2 2 2 2 2 2 2 2 1 2 2 2 1 2 2 2 1 2 2 2 1 2 2 2))))) 34 | 35 | (declaim (type (simple-vector 12) *colores-mapa*)) 36 | (defparameter *colores-mapa* 37 | (make-array 12 :initial-contents (list +royal-blue+ +gray10+ +gray20+ +gray30+ 38 | +gray40+ +gray50+ +gray60+ +gray70+ 39 | +gray80+ +gray90+ +gray100+ +blue+))) 40 | 41 | (defun dibuja-mapa (escenario pane x y tamaño) 42 | (declare (optimize (speed 3) (safety 1)) 43 | (type fixnum x y tamaño)) 44 | (let ((y-fin (+ y tamaño))) 45 | (declare (type fixnum y-fin)) 46 | (with-translation (pane x y-fin) 47 | (loop with mapa of-type (simple-array fixnum (24 24)) = (mapa escenario) 48 | and pos-x single-float = (vx2 (posición escenario)) 49 | and pos-y single-float = (vy2 (posición escenario)) 50 | and dir-x = (vx2 (dirección escenario)) 51 | and dir-y = (vy2 (dirección escenario)) 52 | with num-columnas fixnum = (array-dimension mapa 1) 53 | with Δx fixnum = (truncate (/ tamaño num-columnas)) 54 | for j fixnum from 0 below (array-dimension mapa 0) 55 | do (loop for i fixnum from 0 below num-columnas 56 | do (draw-rectangle* pane 57 | (* j Δx) (- (* i Δx)) 58 | (* (1+ j) Δx) (- (* (1+ i) Δx)) 59 | :ink (aref *colores-mapa* 60 | (aref mapa j i)))) 61 | finally (let ((centro (make-point (* pos-x Δx) 62 | (- (* pos-y Δx)))) 63 | (personajes (personajes escenario))) 64 | (declare (type (simple-array personaje) personajes)) 65 | (with-rotation (pane (atan dir-x dir-y) centro) 66 | (draw-arrow* pane 67 | (* pos-x Δx) 68 | (- (* (1- pos-y) Δx)) 69 | (* pos-x Δx) 70 | (- (* (1+ pos-y) Δx)) 71 | :line-thickness 1.75 72 | :head-length 8 73 | :head-width 10 74 | :ink +turquoise+)) 75 | (when personajes 76 | (loop for p across personajes 77 | for s = (personaje-sprite p) do 78 | (draw-circle* pane 79 | (* (the single-float (sprite-x s)) Δx) 80 | (- (* (the single-float (sprite-y s)) Δx)) 81 | (/ Δx 2) :ink +red+)))))))) 82 | -------------------------------------------------------------------------------- /mc-wolf3d.asd: -------------------------------------------------------------------------------- 1 | ;;;; mc-wolf3d.asd 2 | 3 | (asdf:defsystem #:mc-wolf3d 4 | :description "Pequeño motor raycasting" 5 | :author "José Miguel Ronquillo Rivera " 6 | :license "GPL Ver. 3" 7 | :version "0.0.1" 8 | :serial t 9 | :depends-on (:mcclim 10 | ;; :mcclim-raster-image 11 | :3d-vectors 12 | :3d-matrices 13 | :local-time 14 | :mixalot 15 | :mixalot-vorbis) 16 | :components ((:file "package") 17 | (:file "texturas") 18 | (:file "personajes") 19 | (:file "sprites") 20 | (:file "mapas") 21 | (:file "sonidos") 22 | (:file "escenario") 23 | (:file "mc-wolf3d"))) 24 | -------------------------------------------------------------------------------- /mc-wolf3d.lisp: -------------------------------------------------------------------------------- 1 | ;;;; mc-wolf3d.lisp 2 | (in-package #:mc-wolf3d) 3 | 4 | (defparameter *frame* nil) 5 | (defparameter *ruta-del-sistema* (asdf:component-pathname (asdf:find-system 'mc-wolf3d))) 6 | 7 | (defclass canvas-gadget (clime:never-repaint-background-mixin basic-gadget) 8 | ((bloqueo-cuadro :accessor bloqueo-cuadro :initform (clim-sys:make-lock "Bloqueo cuadro")))) 9 | 10 | (define-application-frame mc-wolf3d () 11 | ((escenario :initarg :escenario :accessor escenario :initform (make-instance 'escenario) :type escenario) 12 | (mezclador :initarg :mezclador :accessor mezclador :initform nil) 13 | (tiempo :accessor tiempo :initform (local-time:now)) 14 | (tiempo-anterior :accessor tiempo-anterior :initform 0) 15 | (periodo-cuadros :accessor periodo-cuadros :initform 0.0 :type single-float) 16 | (modo-mov :accessor modo-mov :initform nil) 17 | (modo-rot :accessor modo-rot :initform nil) 18 | (jugando :accessor jugando :initform nil) 19 | (portada :initform (make-pattern-from-bitmap-file (merge-pathnames #P"fondo.png" *ruta-del-sistema*)))) 20 | (:pane (make-pane 'canvas-gadget 21 | :background +black+ 22 | :min-width 1280 23 | :min-height 1024))) 24 | 25 | (defparameter *tipo-titulos* (make-text-style :serif :bold 18)) 26 | (defparameter *tipo-subtitulos* (make-text-style "Wargames" "Regular" 24)) 27 | (defparameter *tipo-normal* (make-text-style "Edit Undo BRK" "Regular" 48)) 28 | 29 | (defun redibuja-cuadro (frame &optional gadget-arg) 30 | (with-slots (escenario tiempo tiempo-anterior periodo-cuadros portada) frame 31 | (declare (type single-float periodo-cuadros)) 32 | (let ((gadget (or gadget-arg (car (frame-current-panes frame))))) 33 | (labels ((dibuja-portada () 34 | (let* ((ancho-portada (pattern-width portada)) 35 | (alto-portada (pattern-height portada)) 36 | (desp (/ (- (bounding-rectangle-width (sheet-region gadget)) ancho-portada) 2.0))) 37 | (with-translation (gadget desp desp) 38 | (draw-pattern* gadget portada 0 0) 39 | (let ((cadena "mc-wolf3d")) 40 | (multiple-value-bind (t-ancho t-alto) (text-size gadget cadena :text-style *tipo-normal*) 41 | (draw-text* gadget cadena 42 | (- ancho-portada t-ancho 12) 43 | (- alto-portada t-alto 96) 44 | :text-style *tipo-normal*))) 45 | (let ((cadena "Por José M. Ronquillo Rivera")) 46 | (multiple-value-bind (t-ancho t-alto) (text-size gadget cadena :text-style *tipo-titulos*) 47 | (draw-text* gadget cadena 48 | (- ancho-portada t-ancho 12) 49 | (- alto-portada t-alto 32) 50 | :text-style *tipo-titulos*))) 51 | (let ((cadena "Arte por Alexis Ruíz Martínez")) 52 | (multiple-value-bind (t-ancho t-alto) (text-size gadget cadena :text-style *tipo-titulos*) 53 | (draw-text* gadget cadena 54 | (- ancho-portada t-ancho 12) 55 | (- alto-portada t-alto) 56 | :text-style *tipo-titulos*))))) 57 | (dibuja-dialogo escenario gadget '("" " Presiona la tecla 'n' para comenzar el juego;" 58 | "" " 'q' para salir del juego;" 59 | "" " 'arriba', 'abajo', 'izquierda' y 'derecha' para moverte."))) 60 | (dibuja-juego () 61 | (declare (optimize (speed 3) (safety 1))) 62 | (regenera escenario) 63 | (setf tiempo-anterior tiempo 64 | tiempo (local-time:now) 65 | periodo-cuadros (coerce (the double-float 66 | (local-time:timestamp-difference tiempo 67 | tiempo-anterior)) 68 | 'single-float)) 69 | (let* ((ancho-gadget (bounding-rectangle-width (sheet-region gadget))) 70 | (alto-gadget (bounding-rectangle-height (sheet-region gadget))) 71 | (desp (/ (- ancho-gadget *ancho*) 2.0)) 72 | (cadena (format nil "~5,2F fps" (/ periodo-cuadros)))) 73 | (declare (type fixnum ancho-gadget alto-gadget)) 74 | ;;(draw-pattern* gadget (imagen escenario) desp desp) 75 | (draw-design gadget (imagen escenario) :x desp :y desp) 76 | ;;(draw-design gadget (make-rectangle* desp desp (+ desp *ancho-fix* 100 ) (+ desp *alto-fix*)) :ink (imagen escenario)) 77 | (draw-rectangle* gadget 78 | 0 1003 79 | (the fixnum (+ 40 (the fixnum (text-size gadget cadena :text-style *tipo-normal*)))) 900 80 | :ink +black+) 81 | (dibuja-mapa escenario gadget (- ancho-gadget 248) (- alto-gadget 256) 248) 82 | (draw-text* gadget cadena 10 990 :text-style *tipo-normal* :ink +turquoise+)))) 83 | (if (jugando frame) 84 | (dibuja-juego) 85 | (dibuja-portada)))))) 86 | 87 | (defmethod handle-repaint ((gadget canvas-gadget) region) 88 | (declare (ignore region)) 89 | (clim-sys:with-lock-held ((bloqueo-cuadro gadget)) 90 | (redibuja-cuadro *frame* gadget))) 91 | 92 | (defparameter *tipografia* nil) 93 | (defun carga-tipografia () 94 | (mcclim-truetype::register-all-ttf-fonts (find-port) *ruta-del-sistema*) 95 | (setf *tipografia* t)) 96 | 97 | (defun wolf3d-main (&optional (mapa (car *mapas*)) 98 | (sprites (car *sprites*))) 99 | (escenario:inicia-hilos) 100 | (unless *tipografia* (carga-tipografia)) 101 | (setf *frame* (make-application-frame 'mc-wolf3d) 102 | (escenario *frame*) (crea-escenario (or mapa (car *mapas*)) 103 | *sprites-maestros* 104 | (or sprites (car *sprites*)) 105 | (merge-pathnames #P"sonidos/" *ruta-del-sistema*) 106 | (merge-pathnames #P"pics/" *ruta-del-sistema*))) 107 | (bt:make-thread (lambda () 108 | (run-frame-top-level *frame*) 109 | (setf *frame* nil) 110 | (escenario:termina-hilos)) 111 | :name "mc-wolf3d-main")) 112 | 113 | (define-mc-wolf3d-command (com-restablece-todo :name "restablece") () 114 | (with-slots (posición dirección plano-camara) (escenario *frame*) 115 | (setf posición (vec 1.0 1.0) 116 | dirección (vec -1.0 0.0) 117 | plano-camara (vec 0 0.66))) 118 | (redibuja-cuadro *frame*)) 119 | 120 | (define-mc-wolf3d-command (com-terminar-juego :name "terminar-juego") () 121 | (when (jugando *frame*) 122 | (let ((lienzo (car (frame-current-panes *frame*)))) 123 | (clim-sys:with-lock-held ((bloqueo-cuadro lienzo)) 124 | (clim-sys:destroy-process (jugando *frame*)) 125 | (setf (jugando *frame*) nil))) 126 | (mixalot:mixer-remove-all-streamers (mezclador *frame*)) 127 | (mixalot:destroy-mixer (mezclador *frame*)) 128 | (setf (mezclador *frame*) nil) 129 | (redibuja-cuadro *frame*))) 130 | 131 | (define-mc-wolf3d-command (com-salir :name "salir") () 132 | (let ((lienzo (car (frame-current-panes *frame*)))) 133 | (clim-sys:with-lock-held ((bloqueo-cuadro lienzo)) 134 | (when (jugando *frame*) 135 | (clim-sys:destroy-process (jugando *frame*)) 136 | (setf (jugando *frame*) nil)) 137 | (frame-exit *application-frame*)))) 138 | 139 | (defun juega (frame) 140 | (clim-sys:make-process 141 | (lambda () 142 | (declare (optimize (speed 3) (safety 1) (debug 1))) 143 | (with-slots (modo-rot modo-mov escenario mezclador) frame 144 | (loop while t 145 | with sonidos of-type (simple-array t) = (sonidos escenario) 146 | and lienzo = (car (frame-current-panes frame)) 147 | if modo-mov do (mueve escenario (if (eq :adelante modo-mov) 1 -1)) 148 | if modo-rot do (rota escenario (if (eq :derecha modo-rot) 1 -1)) 149 | do (when sonidos 150 | (loop for snd across (subseq sonidos 1) 151 | if (and (not (mixalot:streamer-paused-p snd mezclador)) 152 | (member snd (mixalot:mixer-stream-list mezclador)) 153 | (< (the fixnum (- (the fixnum (mixalot:streamer-length snd mezclador)) 154 | (the fixnum (mixalot:streamer-position snd mezclador)))) 155 | 5512)) 156 | do (mixalot:streamer-pause snd mezclador) 157 | (mixalot:streamer-seek snd mezclador 0)) 158 | (when (< (- (the fixnum (mixalot:streamer-length (aref sonidos 0) mezclador)) 159 | (the fixnum (mixalot:streamer-position (aref sonidos 0) mezclador))) 160 | 5512) 161 | (mixalot:streamer-seek (aref sonidos 0) mezclador 0))) 162 | (escenario-revisa-eventos escenario lienzo mezclador) 163 | if (or (escenario-realiza-personajes escenario) modo-rot modo-mov) do 164 | (clim-sys:with-lock-held ((bloqueo-cuadro lienzo)) 165 | (redibuja-cuadro frame lienzo)) 166 | end do (clim-sys:process-yield)))))) 167 | 168 | (define-mc-wolf3d-command (com-nuevo :name "Nuevo juego") 169 | () 170 | (when *frame* 171 | (with-slots (jugando mezclador escenario) *frame* 172 | (unless jugando 173 | (mixalot:main-thread-init) 174 | (setf mezclador (mixalot:create-mixer)) 175 | (when (sonidos escenario) 176 | (mixalot:mixer-add-streamer mezclador (aref (sonidos escenario) 0))) 177 | (setf jugando (juega *frame*)))))) 178 | 179 | (defmethod handle-event ((gadget canvas-gadget) (evento key-press-event)) 180 | (when *frame* 181 | (with-slots (escenario) *frame* 182 | (case (keyboard-event-key-name evento) 183 | ((:Q :|q|) (execute-frame-command *frame* `(com-salir))) 184 | ((:X :|x|) (execute-frame-command *frame* `(com-terminar-juego))) 185 | ((:N :|n|) (execute-frame-command *frame* `(com-nuevo))) 186 | ((:R :|r|) (execute-frame-command *frame* `(com-restablece-todo))) 187 | (:up (setf (slot-value *frame* 'modo-mov) :adelante)) 188 | (:down (setf (slot-value *frame* 'modo-mov) :atras)) 189 | (:right (setf (slot-value *frame* 'modo-rot) :izquierda)) 190 | (:left (setf (slot-value *frame* 'modo-rot) :derecha)))))) 191 | 192 | (defmethod handle-event ((gadget canvas-gadget) (evento key-release-event)) 193 | (when *frame* 194 | (case (keyboard-event-key-name evento) 195 | ((:up :down) (setf (slot-value *frame* 'modo-mov) nil)) 196 | ((:right :left) (setf (slot-value *frame* 'modo-rot) nil))))) 197 | 198 | -------------------------------------------------------------------------------- /package.lisp: -------------------------------------------------------------------------------- 1 | ;;;; package.lisp 2 | 3 | (defpackage #:escenario 4 | (:use #:clim 5 | #:clim-lisp 6 | #:mcclim-render 7 | #:3d-vectors 8 | #:3d-matrices) 9 | (:export #:escenario 10 | #:*ancho* 11 | #:*alto* 12 | #:*ancho-fix* 13 | #:*alto* 14 | #:*alto-fix* 15 | #:regenera 16 | #:dibuja-mapa 17 | #:dibuja-manos 18 | #:dibuja-dialogo 19 | #:mapa 20 | #:imagen 21 | #:rota 22 | #:mueve 23 | #:posición 24 | #:sonidos 25 | #:sprites 26 | #:sprite-x 27 | #:sprite-y 28 | #:escenario 29 | #:escenario-revisa-eventos 30 | #:escenario-realiza-personajes 31 | #:crea-escenario 32 | #:carga-texturas 33 | #:carga-sprites 34 | #:personaje-realiza-comportamiento 35 | #:*mapas* 36 | #:*sprites* 37 | #:*sprites-maestros* 38 | #:inicia-hilos 39 | #:termina-hilos)) 40 | 41 | (defpackage #:mc-wolf3d 42 | (:nicknames :wol3d) 43 | (:use #:clim 44 | #:clim-lisp 45 | #:mcclim-render 46 | #:3d-vectors 47 | #:3d-matrices 48 | #:escenario) 49 | (:export #:wolf3d-main 50 | #:*ruta-del-sistema*)) 51 | 52 | -------------------------------------------------------------------------------- /personajes.lisp: -------------------------------------------------------------------------------- 1 | (in-package #:escenario) 2 | 3 | (declaim (type single-float *velocidad-personaje*)) 4 | (defparameter *velocidad-personaje* 0.005) 5 | 6 | (defparameter *comportamiento* 7 | (lambda () (declare (optimize (speed 3) (safety 1))) 8 | (lambda (escenario personaje) 9 | (let* ((pos (posición escenario)) 10 | (sprite (personaje-sprite personaje)) 11 | (mapa (mapa escenario))) 12 | (declare (type (simple-array fixnum (24 24)) mapa)) 13 | (labels ((gira-y-avanza (angulo paso) 14 | (declare (type single-float angulo paso)) 15 | (values (+ (sprite-x sprite) (* paso (cos angulo))) 16 | (+ (sprite-y sprite) (* paso (sin angulo))))) 17 | (calcula-posicion (dir-x dir-y) 18 | (let* ((nueva-x (+ (sprite-x sprite) (* (+ *velocidad-personaje* (random 0.02) -0.01) dir-x))) 19 | (nueva-y (+ (sprite-y sprite) (* (+ *velocidad-personaje* (random 0.02) -0.01) dir-y))) 20 | (tipo (aref mapa 21 | (the fixnum (truncate nueva-x)) 22 | (the fixnum (truncate nueva-y))))) 23 | (declare (type single-float nueva-x nueva-y)) 24 | (when (zerop tipo) 25 | (setf (sprite-x sprite) nueva-x 26 | (sprite-y sprite) nueva-y) 27 | t)))) 28 | (loop for vecdir = (vec2 (- (vx2 pos) (sprite-x sprite)) 29 | (- (vy2 pos) (sprite-y sprite))) 30 | then (multiple-value-bind (n-x n-y) 31 | (gira-y-avanza (coerce (/ pi 4.0) 'single-float) 10.0) 32 | (declare (type single-float n-x n-y)) 33 | (vec2 (- n-x (sprite-x sprite)) (- n-y (sprite-y sprite)))) 34 | while (null (calcula-posicion (vx2 vecdir) (vy2 vecdir)))))) 35 | t))) 36 | 37 | (defclass personaje () 38 | ((sprite :initform nil :initarg :sprite :accessor personaje-sprite) 39 | (direccion :initform (vec2 0 -1) :accessor personaje-direccion) 40 | (comportamiento :initform *comportamiento* 41 | :initarg :comportamiento :accessor personaje-comportamiento))) 42 | 43 | (defun crea-personaje (sprite &optional (comportamiento *comportamiento*)) 44 | (make-instance 'personaje 45 | :sprite sprite 46 | :comportamiento (when comportamiento 47 | (if (functionp comportamiento) 48 | (funcall comportamiento) 49 | comportamiento)))) 50 | 51 | (defun personajes-redefine-comportamiento (escenario nuevo-comportamiento) 52 | (loop for p across (personajes escenario) do 53 | (setf (personaje-comportamiento p) (if (functionp nuevo-comportamiento) 54 | (funcall nuevo-comportamiento) 55 | nuevo-comportamiento)))) 56 | -------------------------------------------------------------------------------- /pics/00-paredventana.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/josrr/mc-wolf3d/5d469031947f1b2d0414673847d44a6eb720f4b5/pics/00-paredventana.png -------------------------------------------------------------------------------- /pics/01-paredplana.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/josrr/mc-wolf3d/5d469031947f1b2d0414673847d44a6eb720f4b5/pics/01-paredplana.png -------------------------------------------------------------------------------- /pics/02-paredescalera.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/josrr/mc-wolf3d/5d469031947f1b2d0414673847d44a6eb720f4b5/pics/02-paredescalera.png -------------------------------------------------------------------------------- /pics/03-piso.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/josrr/mc-wolf3d/5d469031947f1b2d0414673847d44a6eb720f4b5/pics/03-piso.png -------------------------------------------------------------------------------- /pics/04-paredconcontroles.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/josrr/mc-wolf3d/5d469031947f1b2d0414673847d44a6eb720f4b5/pics/04-paredconcontroles.png -------------------------------------------------------------------------------- /pics/05-paredplanaint.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/josrr/mc-wolf3d/5d469031947f1b2d0414673847d44a6eb720f4b5/pics/05-paredplanaint.png -------------------------------------------------------------------------------- /pics/06-paredelevador.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/josrr/mc-wolf3d/5d469031947f1b2d0414673847d44a6eb720f4b5/pics/06-paredelevador.png -------------------------------------------------------------------------------- /pics/07-paredconmapa.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/josrr/mc-wolf3d/5d469031947f1b2d0414673847d44a6eb720f4b5/pics/07-paredconmapa.png -------------------------------------------------------------------------------- /pics/08-paredventana01.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/josrr/mc-wolf3d/5d469031947f1b2d0414673847d44a6eb720f4b5/pics/08-paredventana01.png -------------------------------------------------------------------------------- /pics/09-portal.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/josrr/mc-wolf3d/5d469031947f1b2d0414673847d44a6eb720f4b5/pics/09-portal.png -------------------------------------------------------------------------------- /pics/10-portalA-000.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/josrr/mc-wolf3d/5d469031947f1b2d0414673847d44a6eb720f4b5/pics/10-portalA-000.png -------------------------------------------------------------------------------- /pics/10-portalA-045.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/josrr/mc-wolf3d/5d469031947f1b2d0414673847d44a6eb720f4b5/pics/10-portalA-045.png -------------------------------------------------------------------------------- /pics/10-portalA-090.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/josrr/mc-wolf3d/5d469031947f1b2d0414673847d44a6eb720f4b5/pics/10-portalA-090.png -------------------------------------------------------------------------------- /pics/10-portalA-135.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/josrr/mc-wolf3d/5d469031947f1b2d0414673847d44a6eb720f4b5/pics/10-portalA-135.png -------------------------------------------------------------------------------- /pics/10-portalA-180.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/josrr/mc-wolf3d/5d469031947f1b2d0414673847d44a6eb720f4b5/pics/10-portalA-180.png -------------------------------------------------------------------------------- /pics/10-portalA.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/josrr/mc-wolf3d/5d469031947f1b2d0414673847d44a6eb720f4b5/pics/10-portalA.png -------------------------------------------------------------------------------- /pics/11-escalera.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/josrr/mc-wolf3d/5d469031947f1b2d0414673847d44a6eb720f4b5/pics/11-escalera.png -------------------------------------------------------------------------------- /pics/12-pared.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/josrr/mc-wolf3d/5d469031947f1b2d0414673847d44a6eb720f4b5/pics/12-pared.png -------------------------------------------------------------------------------- /pics/13-pared-ventana.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/josrr/mc-wolf3d/5d469031947f1b2d0414673847d44a6eb720f4b5/pics/13-pared-ventana.png -------------------------------------------------------------------------------- /pics/14-techo-escalera.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/josrr/mc-wolf3d/5d469031947f1b2d0414673847d44a6eb720f4b5/pics/14-techo-escalera.png -------------------------------------------------------------------------------- /pics/15-rayos-01.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/josrr/mc-wolf3d/5d469031947f1b2d0414673847d44a6eb720f4b5/pics/15-rayos-01.png -------------------------------------------------------------------------------- /pics/16-traje.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/josrr/mc-wolf3d/5d469031947f1b2d0414673847d44a6eb720f4b5/pics/16-traje.png -------------------------------------------------------------------------------- /pics/17-lampara-01.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/josrr/mc-wolf3d/5d469031947f1b2d0414673847d44a6eb720f4b5/pics/17-lampara-01.png -------------------------------------------------------------------------------- /pics/18-trajem.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/josrr/mc-wolf3d/5d469031947f1b2d0414673847d44a6eb720f4b5/pics/18-trajem.png -------------------------------------------------------------------------------- /pics/19-robot.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/josrr/mc-wolf3d/5d469031947f1b2d0414673847d44a6eb720f4b5/pics/19-robot.png -------------------------------------------------------------------------------- /pics/manos.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/josrr/mc-wolf3d/5d469031947f1b2d0414673847d44a6eb720f4b5/pics/manos.png -------------------------------------------------------------------------------- /sonidos.lisp: -------------------------------------------------------------------------------- 1 | (in-package #:escenario) 2 | 3 | (defun carga-sonidos (ruta) 4 | (let ((archivos (directory (merge-pathnames "*.ogg" ruta)))) 5 | (make-array (length archivos) 6 | :initial-contents (mapcar (lambda (a) 7 | (mixalot-vorbis:make-vorbis-streamer (namestring a))) 8 | archivos)))) 9 | -------------------------------------------------------------------------------- /sonidos/001-34736__drni__gas-stove-space-ship-short.ogg: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/josrr/mc-wolf3d/5d469031947f1b2d0414673847d44a6eb720f4b5/sonidos/001-34736__drni__gas-stove-space-ship-short.ogg -------------------------------------------------------------------------------- /sonidos/002-22331__black-boe__wind.ogg: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/josrr/mc-wolf3d/5d469031947f1b2d0414673847d44a6eb720f4b5/sonidos/002-22331__black-boe__wind.ogg -------------------------------------------------------------------------------- /sonidos/003-27568__suonho__memorymoon-space-blaster-plays.ogg: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/josrr/mc-wolf3d/5d469031947f1b2d0414673847d44a6eb720f4b5/sonidos/003-27568__suonho__memorymoon-space-blaster-plays.ogg -------------------------------------------------------------------------------- /sprites.lisp: -------------------------------------------------------------------------------- 1 | (in-package #:escenario) 2 | 3 | (defparameter *sprites-maestros* '((:portal-a 4 | #(10 11 12 13 14) #(#(60 0 70 127) 5 | #(20 0 107 127) 6 | #(0 0 127 127) 7 | #(20 0 107 127) 8 | #(60 0 70 127)) 9 | ((:contacto . (:sonido . 2)))) 10 | (:lampara-01 11 | #(22) #(#(0 0 127 127))) 12 | (:escalera 13 | #(16) #(#(32 0 95 127)) 14 | ((:contacto . (:dialogo . ("Para terminar el nivel debes encerrar a los robots" 15 | "y apagar todos los interruptores."))))) 16 | (:persona-1 17 | #(21) #(#(0 0 127 127)) 18 | ((:contacto . (:dialogo . ("Hola. Necesitamos ayuda controlando los robots." 19 | "La IA, que ya no está bajo nuestro control," 20 | "está usando a los robots para mantener los" 21 | "controles manuales encendidos." 22 | "" 23 | "Hay que encerrar a los robots y apagar" 24 | "los controles."))))) 25 | (:robot 26 | #(24) #(#(0 0 127 127)) 27 | ((:contacto . (:sonido . 2)))) 28 | (:trajem 29 | #(23) #(#(0 0 127 127)) 30 | ((:contacto . (:sonido . 2)))))) 31 | 32 | (defparameter *sprites* 33 | '(((:persona-1 1.75 7.35) 34 | (:lampara-01 1.5 7.5) 35 | (:lampara-01 1.5 5.5) 36 | (:lampara-01 1.5 3.5) 37 | (:lampara-01 1.5 1.5) 38 | (:robot 7.5 21.5) 39 | (:robot 11.5 21.5) 40 | (:robot 19.5 21.5) 41 | (:robot 7.5 8.5) 42 | (:robot 11.5 8.5) 43 | (:robot 19.5 8.5) 44 | (:escalera 22.5 22.5)))) 45 | 46 | (defparameter *personajes* 47 | (list (cons :robot *comportamiento*) (cons :trajem *comportamiento*))) 48 | 49 | (defclass sprite-maestro () 50 | ((nombre :initform :obj-1 :type :keyword :initarg :nombre 51 | :accessor sprite-nombre) 52 | (texturas :initform #(0) :type (simple-array fixnum) 53 | :accessor sprite-texturas :initarg :texturas) 54 | (fronteras :initform #(#(0 0 127 127)) :type (simple-vector) 55 | :accessor sprite-fronteras :initarg :fronteras) 56 | (eventos :initform nil 57 | :accessor sprite-eventos :initarg :eventos))) 58 | 59 | (defun carga-sprites-maestros (definiciones-sprites) 60 | (let ((sprites-ht (make-hash-table))) 61 | (dolist (s definiciones-sprites) 62 | (let ((obj (make-instance 'sprite-maestro 63 | :nombre (car s) 64 | :texturas (cadr s) 65 | :fronteras (or (caddr s) 66 | `#(0 0 ,(1- *tex-ancho-fix*) 67 | ,(1- *tex-alto-fix*))))) 68 | (eventos (cadddr s))) 69 | (when eventos 70 | (setf (sprite-eventos obj) 71 | (mapcar (lambda (ev) 72 | (make-instance 73 | (intern (concatenate 'string "EVENTO-" 74 | (symbol-name (car ev))) 75 | 'escenario) 76 | :accion (make-instance 77 | (intern (concatenate 'string 78 | "ACCION-" 79 | (symbol-name (cadr ev))) 80 | 'escenario) 81 | :pars (cddr ev)))) 82 | eventos))) 83 | (setf (gethash (car s) sprites-ht) obj))) 84 | sprites-ht)) 85 | 86 | (defclass sprite () 87 | ((x :initform 0.0 :type single-float :accessor sprite-x :initarg :x) 88 | (y :initform 0.0 :type single-float :accessor sprite-y :initarg :y) 89 | (sprite :initform nil :accessor sprite-maestro :initarg :sprite-maestro))) 90 | 91 | (defun crea-sprites (sprites-maestros definiciones-sprites) 92 | (make-array (length definiciones-sprites) 93 | :element-type 'sprite 94 | :initial-contents (mapcar (lambda (def) 95 | (make-instance 'sprite 96 | :x (cadr def) :y (caddr def) 97 | :sprite-maestro (gethash (car def) sprites-maestros))) 98 | definiciones-sprites) )) 99 | 100 | (declaim (inline sprites-ordena)) 101 | (defun sprites-ordena (posición sprites) 102 | (declare (optimize (speed 3) (safety 1) (debug 1)) 103 | (type (simple-array sprite) sprites)) 104 | (sort sprites #'> :key (lambda (s) 105 | (declare (optimize (speed 3) (safety 1) (debug 1))) 106 | (let ((x (- (vx2 posición) (the single-float (sprite-x s)))) 107 | (y (- (vy2 posición) (the single-float (sprite-y s))))) 108 | (declare (type single-float x y)) 109 | (+ (* x x) (* y y)))))) 110 | 111 | (defun sprites-dibuja (pixels x-inicial ancho-franja ancho alto pos-x pos-y 112 | plcam-x plcam-y dir-x dir-y sprites zbuffer texturas) 113 | (declare (optimize (speed 3) (safety 0) (debug 0)) 114 | (type (simple-array (unsigned-byte 32) *) pixels) 115 | (type (simple-array sprite) sprites) 116 | (type (simple-array single-float) zbuffer) 117 | (type (simple-array (simple-array (unsigned-byte 32))) texturas) 118 | (type single-float x-inicial ancho-franja ancho alto 119 | pos-x pos-y plcam-x plcam-y dir-x dir-y)) 120 | (let ((inv-det (/ (- (* plcam-x dir-y) (* dir-x plcam-y)))) 121 | (alto/2 (/ alto 2.0))) 122 | (declare (type single-float inv-det alto/2)) 123 | (labels ((dibuja (trans-x trans-y idx-textura sprite-texturas sprite-fronteras) 124 | (declare (type (simple-array fixnum) sprite-texturas) 125 | (type (simple-vector) sprite-fronteras)) 126 | (let* ((sprite-screen-x (* (/ ancho 2.0) (1+ (divseg trans-x trans-y)))) 127 | (sprite-ancho (abs (divseg alto trans-y))) 128 | (sprite-ancho/2 (/ sprite-ancho 2.0)) 129 | (y-ini (- alto/2 sprite-ancho/2)) 130 | (y-fin (+ alto/2 sprite-ancho/2)) 131 | (prop-ancho (divseg *tex-ancho* sprite-ancho)) 132 | (frontera (aref sprite-fronteras idx-textura))) 133 | (declare (type single-float sprite-screen-x sprite-ancho 134 | sprite-ancho/2 y-ini y-fin prop-ancho) 135 | (type (simple-vector 4) frontera)) 136 | (loop for x single-float from x-inicial below (+ x-inicial ancho-franja) 137 | for x-fix fixnum = (truncate x) 138 | if (< trans-y (aref zbuffer x-fix)) 139 | do (let ((tex-x (the fixnum (truncate (* (- (+ x sprite-ancho/2) sprite-screen-x) 140 | prop-ancho))))) 141 | (declare (type fixnum tex-x idx-textura)) 142 | (when (and (>= tex-x (the fixnum (aref frontera 0))) 143 | (<= tex-x (the fixnum (aref frontera 2)))) 144 | (loop for y single-float from (if (minusp y-ini) 0.0 y-ini) below (if (>= y-fin alto) (1- alto) y-fin) 145 | for tex-y fixnum = (truncate (divseg (* (- y y-ini) *tex-alto-fix*) sprite-ancho)) 146 | for color = (aref (aref texturas (aref sprite-texturas idx-textura)) 147 | tex-y tex-x) 148 | if (and (>= tex-y (the fixnum (aref frontera 1))) 149 | (<= tex-y (the fixnum (aref frontera 3))) 150 | (/= #xFF color)) 151 | do (let ((y-fix (truncate y))) 152 | (declare (type fixnum y-fix)) 153 | (setf (aref pixels y-fix x-fix) 154 | (case color 155 | (#xFFE8AB (let ((a (aref pixels y-fix x-fix))) 156 | (ash (- (+ a color) (logand (logxor a color) 157 | #x010101)) 158 | -1))) 159 | (#xFFE8AC (logand (aref pixels y-fix x-fix) color)) 160 | (t color))))))))))) 161 | (declare (inline dibuja)) 162 | (loop for s across sprites 163 | for s-x single-float = (- (the single-float (sprite-x s)) pos-x) 164 | and s-y single-float = (- (the single-float (sprite-y s)) pos-y) 165 | for trans-x single-float = (* inv-det (- (* dir-y s-x) (* dir-x s-y))) 166 | and trans-y single-float = (* inv-det (- (* plcam-x s-y) (* plcam-y s-x))) 167 | and angulo = (atan s-y s-x) 168 | and sprite-fronteras of-type (simple-vector) = (sprite-fronteras (sprite-maestro s)) 169 | if (plusp trans-y) 170 | do (dibuja trans-x trans-y 171 | (if (and sprite-fronteras (> (length sprite-fronteras) 1)) 172 | (cond ((or (and (> angulo 1.963) (<= angulo 2.749)) 173 | (and (< angulo -0.393) (>= angulo -1.178))) 174 | 3) 175 | ((or (and (> angulo 1.178) (<= angulo 1.963)) 176 | (and (< angulo -1.178) (>= angulo -1.963))) 177 | 2) 178 | ((or (and (> angulo 0.393) (<= angulo 1.178)) 179 | (and (< angulo -1.963) (>= angulo -2.749))) 180 | 1) 181 | (t 0)) 182 | 0) 183 | (sprite-texturas (sprite-maestro s)) 184 | sprite-fronteras))))) 185 | 186 | ;;(ash (+ (logand a #xfEfEfE) (logand color #xfEfEfE)) -1) 187 | -------------------------------------------------------------------------------- /texturas.lisp: -------------------------------------------------------------------------------- 1 | (in-package #:escenario) 2 | 3 | (defun color-a-entero (color) 4 | (multiple-value-bind (r g b) (color-rgb color) 5 | (+ (ash (floor (* 255.0 b)) 16) 6 | (ash (floor (* 255.0 g)) 8) 7 | (truncate (* 255.0 r))))) 8 | 9 | (defun carga-archivo (archivo) 10 | (labels ((opticolor-a-entero (r g b) 11 | (+ (ash r 24) (ash g 16) (ash b 8) #xFF))) 12 | (let ((img (opticl:read-image-file archivo))) 13 | (when img 14 | (let* ((height (array-dimension img 0)) 15 | (width (array-dimension img 1)) 16 | (array (make-array (list height width) 17 | :element-type '(unsigned-byte 32)))) 18 | (opticl:do-pixels (y x) img 19 | (setf (aref array y x) 20 | (opticolor-a-entero (aref img y x 0) 21 | (aref img y x 1) 22 | (aref img y x 2)))) 23 | array))))) 24 | 25 | (defun carga-texturas (&optional (ruta #P"./pics/")) 26 | (let ((archivos (directory (merge-pathnames "*.png" (or ruta #P"./pics/"))))) 27 | (make-array (length archivos) 28 | :element-type 'simple-array 29 | :initial-contents 30 | (mapcar #'carga-archivo archivos)))) 31 | -------------------------------------------------------------------------------- /wolf3d01.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/josrr/mc-wolf3d/5d469031947f1b2d0414673847d44a6eb720f4b5/wolf3d01.png -------------------------------------------------------------------------------- /wolf3d02.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/josrr/mc-wolf3d/5d469031947f1b2d0414673847d44a6eb720f4b5/wolf3d02.png -------------------------------------------------------------------------------- /wolf3d03.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/josrr/mc-wolf3d/5d469031947f1b2d0414673847d44a6eb720f4b5/wolf3d03.png -------------------------------------------------------------------------------- /wolf3d04.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/josrr/mc-wolf3d/5d469031947f1b2d0414673847d44a6eb720f4b5/wolf3d04.png -------------------------------------------------------------------------------- /wolf3d05.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/josrr/mc-wolf3d/5d469031947f1b2d0414673847d44a6eb720f4b5/wolf3d05.png -------------------------------------------------------------------------------- /wolf3d06.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/josrr/mc-wolf3d/5d469031947f1b2d0414673847d44a6eb720f4b5/wolf3d06.png -------------------------------------------------------------------------------- /wolf3d07.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/josrr/mc-wolf3d/5d469031947f1b2d0414673847d44a6eb720f4b5/wolf3d07.png -------------------------------------------------------------------------------- /wolf3d08.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/josrr/mc-wolf3d/5d469031947f1b2d0414673847d44a6eb720f4b5/wolf3d08.png -------------------------------------------------------------------------------- /wolf3d09.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/josrr/mc-wolf3d/5d469031947f1b2d0414673847d44a6eb720f4b5/wolf3d09.png -------------------------------------------------------------------------------- /wolf3d10.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/josrr/mc-wolf3d/5d469031947f1b2d0414673847d44a6eb720f4b5/wolf3d10.png --------------------------------------------------------------------------------