home *** CD-ROM | disk | FTP | other *** search
/ The Equalizer BBS / equalizer-bbs-collection_2004.zip / equalizer-bbs-collection / DEMOSCENE-STUFF / TC_3D.ZIP / 3D.PAS < prev    next >
Pascal/Delphi Source File  |  2004-08-28  |  4KB  |  140 lines
  1. { 3D Motha Fuckin' Demonstration In Turbo Pascal 7.0 }
  2. {  CopyRight 1995 (C) By TOMER SASSON - The Chronic  }
  3.  
  4. { Fuck The KKK, Germany, Austria, & The Other Motha Fuckin' Nazies ! }
  5. { DR. DRE, EAZY E, MC REN, ICE CUBE, D.J. YELLA - Real Motha Fuckin' G'z }
  6.  
  7. { Deeez Intro Iz Using Two 8x16 Font Files --> BIG.FNT, & LCD.FNT }
  8.  
  9. Uses Chronic;
  10.  
  11. Const
  12.  
  13. LObj3D : LObj =
  14.         (((-5,0,-10),(0,-10,0)),((0,-10,0),(5,0,-10)),
  15.         ((-5,0,-10),(0,10,0)),((0,10,0),(5,0,-10)),
  16.         ((-5,0,10),(0,-10,0)),((0,-10,0),(5,0,10)),
  17.         ((-5,0,10),(0,10,0)),((0,10,0),(5,0,10)),
  18.         ((-5,0,-10),(-5,0,10)),((5,0,-10),(5,0,10)));
  19.  
  20. PObj3D : PObj =
  21.         (((0,8,-10),(-8,0,-10),(0,-8,-10),(8,0,-10)),
  22.         ((0,8,10),(-8,0,10),(0,-8,10),(8,0,10)),
  23.         ((-10,0,-8),(-10,0,8),(10,0,8),(10,0,-8)),
  24.         ((0,0,0),(0,0,0),(0,0,0),(0,0,0)),
  25.         ((0,0,0),(0,0,0),(0,0,0),(0,0,0)),
  26.         ((0,0,0),(0,0,0),(0,0,0),(0,0,0)),
  27.         ((0,0,0),(0,0,0),(0,0,0),(0,0,0)),
  28.         ((0,0,0),(0,0,0),(0,0,0),(0,0,0)),
  29.         ((0,0,0),(0,0,0),(0,0,0),(0,0,0)),
  30.         ((0,0,0),(0,0,0),(0,0,0),(0,0,0)));
  31.  
  32. Label
  33. Start,Stop;
  34.  
  35. Var
  36. Deg : Integer;
  37. VAddr1, VAddr2 : VAddr;
  38. Ptr1, Ptr2 : VirtPtr;
  39. FPtr1, FPtr2 : FntPtr;
  40. PP : Pallette;
  41. M : Char;
  42.  
  43. Procedure Deg_LPoints;
  44.  
  45. Begin
  46. Flip(VAddr2,VAddr1);
  47. Deg:=(Deg+5) Mod 360;
  48. RotateLinePoints(Deg,Deg,Deg,10);
  49. DrawLinePoints(10,15,VAddr1);
  50. Flip(VAddr1,VGA);
  51. Cls(0,VAddr1);
  52. End;
  53.  
  54. Procedure Deg_PPoints;
  55.  
  56. Begin
  57. Flip(VAddr2,VAddr1);
  58. Deg:=(Deg+5) Mod 360;
  59. RotatePolyPoints(Deg,Deg,Deg,3);
  60. DrawPolyPoints(3,120,VAddr1);
  61. Flip(VAddr1,VGA);
  62. Cls(0,VAddr1);
  63. End;
  64.  
  65. Begin
  66. LoadFont('Big.Fnt',FPtr1);
  67. LoadFont('Lcd.Fnt',FPtr2);
  68. InitVGA;
  69. InitVirtual(Ptr1,Vaddr1);
  70. InitVirtual(Ptr2,Vaddr2);
  71. Cls(0,VAddr1);
  72. Cls(0,VAddr2);
  73. WriteFnt(FPtr1,40,150,'Use De Motha Fuckin'' Arrows',8,VAddr2);
  74. WriteFnt(FPtr1,40,170,'(Left & Right), Esc To Exit',8,VAddr2);
  75. WriteFnt(FPtr1,40,70,'The Chronic''s Unit Examples',10,VAddr2);
  76. SetUp3DLines(10,LObj3D);
  77. ZOff := -65;
  78. YOff := 70;
  79. Start:
  80. Repeat
  81. Deg_LPoints;
  82. Until KeyPressed;
  83. M := ReadKey;
  84. Case M Of
  85. #27 : Goto Stop;
  86. #77 : Inc(XOff,3);
  87. #75 : Dec(XOff,3);
  88. End;
  89. If XOff > 275 Then XOff := 275;
  90. If XOff < 45 Then XOff := 45;
  91. GoTo Start;
  92. Stop :
  93. Repeat
  94. Deg_LPoints;
  95. Inc(YOff,5);
  96. Until YOff = 160;
  97. Repeat
  98. Deg_LPoints;
  99. Dec(YOff,5);
  100. Until YOff = -10;
  101. GetPal(PP);
  102. FadeOut(0);
  103. Cls(0,VAddr2);
  104. WriteFnt(FPtr1,80,80,'Niggaz Wit Attitude',7,VAddr2);
  105. Flip(VAddr2,VGA);
  106. FadeIn(PP,0);
  107. ScrollMsg(FPtr2,130,'That Was The 3D-Line Procedures,  ',4,VGA);
  108. ScrollMsg(FPtr2,130,'Now Ya''r ''bout To See The 3D Polygon Procedures.....                                       ',4,VGA);
  109. WriteFnt(FPtr2,50,130,'Press Any Key To Exit...',9,VAddr2);
  110. If KeyPressed Then ReadKey;
  111. SetUpPoly(3,PObj3D);
  112. ZOff := -600;
  113. Repeat
  114. Deg_PPoints;
  115. Inc(ZOff,12);
  116. Until ZOff > -65;
  117. Repeat
  118. Deg_PPoints;
  119. Until KeyPressed;
  120. ReadKey;
  121. CloseVirtual(Ptr1);
  122. CloseVirtual(Ptr2);
  123. CloseVGA;
  124. Cursor(0);
  125. FunkyWrite(0,0,'Coded By TOMER SASSON - The Chronic',2,10,25);
  126. WriteLn;
  127. FunkyWrite(0,2,'Fuck The KKK, Germany, Austria & The Other Motha Fuckin'' Nazies !',7,8,0);
  128. WriteLn;
  129. FunkyWrite(0,3,'Deeez Intro Was Made By Using The Chronic''s Unit, Check Out The Source,',4,12,0);
  130. WriteLn;
  131. FunkyWrite(0,4,'And Ya''ll See How Simple Iz It.... (It''s In The Package TC_3D.ZIP).',4,12,0);
  132. WriteLn;
  133. FunkyWrite(15,7,'-= Born & Raised In Motha Fuckin'' Compton =-',2,10,20);
  134. ScrollWrite(10,15,15,'The Chronic''s Unit Iz The Best Unit For Codin'' Intros');
  135. ScrollWrite(10,15,15,'In Fact, Deeez Unit Contains Everything Ya Need To Code A Proffessional Intro');
  136. ScrollWrite(10,15,15,'The Chronic''s Unit Iz Made Of 100% Pure Pascal & Asm, & It''s More Then Just Fast....');
  137. ScrollWrite(10,15,15,'Call The Parental Advisory BBS, +972-233-2884 For More Details...');
  138. Cursor(1);
  139. WriteLn;
  140. End.