----------------------------------- Viper Wed Nov 17, 2004 9:05 am Ma Pimpin truck ----------------------------------- %Viper %truck %nov 11/04 var WinID := Window.Open ("graphics:max;max") var x, y : int procedure frame var a : array 1 .. 3 of int := init (280, 200, 311) var b : array 1 .. 3 of int := init (355 - 10, 275 - 10, 276 - 10) drawfillpolygon (a, b, 3, 55) %cab drawfillbox (95, 190, 580, 275, 55) %back drawfillbox (281, 212 - 10, 370, 355 - 10, 55) %cab end frame %========================================================================= procedure framelines var f : array 1 .. 5 of int := init (340 + 5, 340 + 5, 235 + 5, 235 + 5, 280 + 5) var g : array 1 .. 5 of int := init (330, 270, 270, 285, 330) drawline (286, 340, 350 + 5, 340, 7) %door drawline (350 + 5, 340, 350 + 5, 209, 7) %door drawline (350 + 5, 209, 225 + 5, 209, 7) %door drawline (225 + 5, 209, 225 + 5, 284, 7) %door drawline (225 + 5, 284, 281 + 5, 340, 7) %door drawline (580, 276, 580, 190, 7) %backback drawline (370, 276, 377, 286, 7) %backline drawline (377, 286, 587, 286, 7) %backline drawline (378, 286, 378, 276, 7) %backline drawline (587, 286, 580, 276, 7) %backline drawline (580, 276, 370, 276, 7) %backline drawline (587, 286, 587, 203, 7) %backline drawline (587, 203, 580, 190, 7) %backline drawline (370, 276, 370, 356 - 10, 7) %backline drawline (370, 356 - 10, 377, 363 - 10, 7) %backline drawline (377, 363 - 10, 377, 286 - 10, 7) %backline drawfillpolygon (f, g, 5, grey) %doorwindow drawpolygon (f, g, 5, 7) %d.w.outline drawfilloval (315 + 5, 263 - 10, 2, 5, 1) %handle drawfilloval (315 + 5, 263 - 10, 7, 1, grey) %handle end framelines %=========================================================================== procedure lights drawfilloval (98, 267, 7, 7, yellow) %topfront drawfilloval (98, 255, 7, 7, 42) %2ndtopfront drawfilloval (577, 267, 7, 7, yellow) %topback drawfilloval (577, 255, 7, 7, 12) %2ndtopback end lights %============================================================================ procedure wheelholes drawfillarc (150, 195, 40, 40, -10, 190, 1) %frontwheelhole drawfillarc (478, 195, 40, 40, -10, 190, 1) %backwheelhole end wheelholes %============================================================================ procedure wheels drawfilloval (150, 195, 30, 30, grey) %frontinner drawfilloval (150, 195, 35, 35, 7) %frontwheelouter %*********************************************** drawfilloval (478, 195, 35, 35, 7) %backwheelouter drawfilloval (478, 195, 30, 30, grey) %backinner end wheels %============================================================================ procedure spokes (clr : int) drawfilloval (150, 195, 30, 30, grey) %frontinner drawline (150, 195, 180, 195, clr) %spokes drawline (150, 195, 178, 175, clr) %spokes drawline (150, 195, 165, 165, clr) %spokes drawline (150, 195, 145, 160, clr) %spokes drawline (150, 195, 124, 172, clr) %spokes drawline (150, 195, 120, 195, clr) %spokes drawline (150, 195, 120, 212, clr) %spokes drawline (150, 195, 132, 225, clr) %spokes drawline (150, 195, 153, 230, clr) %spokes drawline (150, 195, 175, 219, clr) %spokes drawfilloval (150, 195, 5, 5, 7) %frontinnerinner drawfilloval (150, 195, 2, 2, grey) %frontinnerinnerinner %****************************************** drawfilloval (478, 195, 30, 30, grey) %backinner drawline (478, 195, 508, 195, clr) %spokes drawline (478, 195, 506, 175, clr) %spokes drawline (478, 195, 493, 165, clr) %spokes drawline (478, 195, 473, 160, clr) %spokes drawline (478, 195, 452, 172, clr) %spokes drawline (478, 195, 448, 195, clr) %spokes drawline (478, 195, 448, 212, clr) %spokes drawline (478, 195, 460, 225, clr) %spokes drawline (478, 195, 481, 230, clr) %spokes drawline (478, 195, 503, 219, clr) %spokes drawfilloval (478, 195, 5, 5, 7) %backinnerinner drawfilloval (478, 195, 2, 2, grey) %backinnerinnerinner end spokes %============================================================================ procedure deptheffect drawfilloval (585, 279, 7, 7, yellow) %fartopback drawfilloval (585, 267, 7, 7, 12) %far2ndtop var h : array 1 .. 4 of int := init (281, 291, 377, 370) var i : array 1 .. 4 of int := init (356 - 10, 363 - 10, 363 - 10, 356 - 10) drawfillpolygon (h, i, 4, 54) %top var j : array 1 .. 4 of int := init (370, 377, 377, 370) var k : array 1 .. 4 of int := init (356 - 10, 363 - 10, 287 - 10, 276 - 10) drawfillpolygon (j, k, 4, 9) %backwindow var l : array 1 .. 4 of int := init (370, 377, 587, 580) var m : array 1 .. 4 of int := init (276, 286, 286, 276) drawfillpolygon (l, m, 4, 1) %backback var n : array 1 .. 4 of int := init (587, 580, 580, 587) var o : array 1 .. 4 of int := init (286, 276, 190, 203) drawfillpolygon (n, o, 4, 9) %backbackback var p : array 1 .. 4 of int := init (95, 107, 207 + 10, 191 + 10) var q : array 1 .. 4 of int := init (276, 283, 283, 268) drawfillpolygon (p, q, 4, 54) %front end deptheffect %============================================================================ procedure spokes2 (clr : int) drawfilloval (150, 195, 30, 30, grey) %frontinner drawline (150, 195, 179, 195 + 8, clr) %spokes drawline (150, 195, 178, 175 + 10, clr) %spokes drawline (150, 195, 165 + 5, 165 + 8, clr) %spokes drawline (150, 195, 145 + 10, 160 + 6, clr) %spokes drawline (150, 195, 124 + 13, 172 - 2, clr) %spokes drawline (150, 195, 120 + 2, 195 - 7, clr) %spokes drawline (150, 195, 120 + 3, 212 - 5, clr) %spokes drawline (150, 195, 132 - 4, 225 - 10, clr) %spokes drawline (150, 195, 153 - 7, 230 - 6, clr) %spokes drawline (150, 195, 175 - 15, 219 + 4, clr) %spokes drawfilloval (150, 195, 5, 5, 7) %frontinnerinner drawfilloval (150, 195, 2, 2, grey) %frontinnerinnerinner %--------------------------------------------------- drawfilloval (478, 195, 30, 30, grey) %backinner drawline (478, 195, 507, 195 + 8, clr) %spokes drawline (478, 195, 506, 175 + 10, clr) %spokes drawline (478, 195, 493 + 5, 165 + 8, clr) %spokes drawline (478, 195, 473 + 10, 160 + 6, clr) %spokes drawline (478, 195, 452 + 13, 172 - 2, clr) %spokes drawline (478, 195, 448 + 2, 195 - 7, clr) %spokes drawline (478, 195, 448 + 3, 212 - 5, clr) %spokes drawline (478, 195, 460 - 4, 225 - 10, clr) %spokes drawline (478, 195, 481 - 7, 230 - 6, clr) %spokes drawline (478, 195, 503 - 15, 219 + 4, clr) %spokes drawfilloval (478, 195, 5, 5, 7) %backinnerinner drawfilloval (478, 195, 2, 2, grey) %backinnerinnerinner end spokes2 %============================================================================ var pic : int var pic2 : int var pic3 : int var pic4 : int var count : int spokes (7) deptheffect lights frame framelines wheelholes wheels spokes2 (0) pic := Pic.New (25, 25, 590, 450) pic2 := Pic.Rotate (pic, -5, 478, 195) pic3 := Pic.Rotate (pic, -10, 478, 195) pic4 := Pic.Rotate (pic, -15, 478, 195) count:=0 loop cls count := 0 loop spokes (7) delay (100) deptheffect lights frame framelines wheelholes wheels spokes2 (0) View.Update delay (100) count:= count+1 exit when count>=20 end loop cls count := 0 loop Pic.Draw (pic2, 20, 20, picCopy) delay (130) Pic.Draw (pic3, 20, 20, picCopy) delay (130) Pic.Draw (pic4, 20, 20, picCopy) delay (130) Pic.Draw (pic3, 20, 20, picCopy) delay (130) Pic.Draw (pic2, 20, 20, picCopy) delay (130) Pic.Draw (pic, 20, 20, picCopy) delay (130) count:= count+1 exit when count>=5 end loop end loop ----------------------------------- Neo Wed Nov 17, 2004 10:38 am ----------------------------------- That is a pimpin truck :D ----------------------------------- zomg Wed Nov 17, 2004 11:50 am ----------------------------------- thats pretty kewl... try adding a road and a backgroud nice job ----------------------------------- m&m Wed Nov 17, 2004 4:10 pm ----------------------------------- thats pretty kewl... try adding a road and a backgroud Is That even possible with turing? ----------------------------------- Viper Thu Nov 18, 2004 1:42 pm background & road ----------------------------------- i tried put a background but as you can see i did a pic rotate thing n when it turns the pic to give the truck a hydrolic look it made it look dumb bc the background would turn to ----------------------------------- Martin Thu Nov 18, 2004 3:59 pm ----------------------------------- Look people, there is a lot that you can do with Turing. Search for Evasive Maneuvers for an example, or look for Catalyst's 3d stuff. Yes, that is the same turing that you are using. Your 100 line programs are coming nowhere near pushing Turing to it's max. ----------------------------------- zomg Thu Nov 18, 2004 4:24 pm ----------------------------------- :x :x if i may say so i dont think he was trying to "push turing to the max" jeez There are allot of programs here that would not be "pushing turing to the max" not every body is a l33t programer why dont u think before u knock somebodies program just because catalyst is an amazing programmer doesnt mean that he sets the standard around here besides its pretty good ----------------------------------- Cervantes Thu Nov 18, 2004 5:15 pm ----------------------------------- why dont u think before u knock somebodies program I believe martin's comment was more of a general comment on the flooding of Turing Submissions with very basic and repetitive programs. ----------------------------------- Neo Thu Nov 18, 2004 5:28 pm Re: background & road ----------------------------------- i tried put a background but as you can see i did a pic rotate thing n when it turns the pic to give the truck a hydrolic look it made it look dumb bc the background would turn to You have to create the truck pic then use the Pic.New command to copy it then rotate it and draw the background underneath. ----------------------------------- Viper Fri Nov 19, 2004 9:09 am i did ----------------------------------- i tried that n it didnt work out 2 good so any other suggestions im open 2 try em out ----------------------------------- benQ Sat Jan 08, 2005 5:01 pm Nice Truck ----------------------------------- That really is a pimpin truck. Nice job! :D ----------------------------------- co0kxox Sun Jan 09, 2005 8:55 pm ----------------------------------- nice truck.....it looks cool