Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Challenge: Triangle Function
#15
Hey, I made a weirdo! :lol:


Code:
Screen 12

Type Vector2D
    As Single X,Y
End Type

Dim As Vector2D P1=>(50,50),P2=>(150,150),P3=>(50,150)

For y=0 to 479
    For x=0 to 639
        
        If ((P2.X - X) * (P3.Y - Y) - (P3.X - X) * (P2.Y - Y)) / (P2.X - P1.X) * (P3.Y - P1.Y) - (P3.X - P1.X) * (P2.Y - P1.Y)>0 And _
           ((P3.X - X) * (P1.Y - Y) - (P1.X - X) * (P3.Y - Y)) / (P2.X - P1.X) * (P3.Y - P1.Y) - (P3.X - P1.X) * (P2.Y - P1.Y)>0 And _
           ((P1.X - X) * (P2.Y - Y) - (P2.X - X) * (P1.Y - Y)) / (P2.X - P1.X) * (P3.Y - P1.Y) - (P3.X - P1.X) * (P2.Y - P1.Y)>0 Then
           Pset(X,Y),14
        End If
        
    Next
Next

Sleep
Reply


Messages In This Thread
Challenge: Triangle Function - by DrV - 01-28-2006, 08:01 AM
Challenge: Triangle Function - by Dio - 01-28-2006, 09:00 AM
Challenge: Triangle Function - by Deleter - 01-28-2006, 09:23 AM
Challenge: Triangle Function - by DefHo - 01-28-2006, 01:44 PM
Challenge: Triangle Function - by stylin - 01-28-2006, 10:46 PM
Challenge: Triangle Function - by LooseCaboose - 01-29-2006, 09:25 AM
Re: Challenge: Triangle Function - by KiZ - 01-29-2006, 08:09 PM
Challenge: Triangle Function - by marzecTM - 01-29-2006, 09:04 PM
Challenge: Triangle Function - by KiZ - 01-30-2006, 03:25 AM
Challenge: Triangle Function - by marzecTM - 01-30-2006, 05:56 AM
Challenge: Triangle Function - by Ralph - 01-30-2006, 09:48 AM
Challenge: Triangle Function - by axipher - 01-31-2006, 06:14 AM
Challenge: Triangle Function - by Dr_Davenstein - 02-03-2006, 03:24 AM
Challenge: Triangle Function - by stylin - 02-03-2006, 04:10 AM
Challenge: Triangle Function - by Dr_Davenstein - 02-03-2006, 04:26 AM
Challenge: Triangle Function - by Deleter - 02-03-2006, 11:02 AM

Forum Jump:


Users browsing this thread: 1 Guest(s)