Show Posts
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
I stopped up last night and started from scratch, putting what i have learned in to Perspective and few tweaks her and there and it's now looking like the real thing. 
Img = CreateImage(#PB_Any, #ResX, 240)
StartDrawing(ImageOutput(Img))
For Y = 0 To 240
R + 3 : G + 1 : b + 3
LineXY(0, Y, #ResX, Y, RGB(R,G,b))
Next
StopDrawing()
I have to be truthfull and say I was hopping for an answer or even a rewrite!..
#Minimum_Rpm = 20
Global Gear = 1
Enumeration
#Accelerate
#Brake
#SlowDown
EndEnumeration
Structure GearAccel
GearUpAt.f ; RPM for next gear (up)
GearDownAt.f ; RPM for next gear (down)
AccelUp.f ; RPM to add when accelerating
AccelBreak.f ; RPM to subtract when braking
AccelDown.f ; RPM to subtract when automatic slow down
AccelDiff.f ; RPM difference between gears
SpeedUp.f ;
SlowDown.f ;
EndStructure
Global Dim GearTable.GearAccel(5)
; Init GearTable
GearTable(1)\AccelUp = 0.5 : GearTable(1)\GearUpAt = 50 ; change up at
GearTable(1)\AccelDown = 0.5 : GearTable(1)\GearDownAt = 5 ; change down at
GearTable(1)\AccelBreak = 0.5 : GearTable(1)\AccelDiff = 20 ; rpm between change
GearTable(1)\SpeedUp = 0.1 : GearTable(1)\SlowDown = 0.1
GearTable(2)\AccelUp = 0.4 : GearTable(2)\GearUpAt = 55
GearTable(2)\AccelDown = 0.4 : GearTable(2)\GearDownAt = 15
GearTable(2)\AccelBreak = 0.4 : GearTable(2)\AccelDiff = 20
GearTable(2)\SpeedUp = 0.1 : GearTable(2)\SlowDown = 0.1
GearTable(3)\AccelUp = 0.3 : GearTable(3)\GearUpAt = 60
GearTable(3)\AccelDown = 0.3 : GearTable(3)\GearDownAt = 25
GearTable(3)\AccelBreak = 0.3 : GearTable(3)\AccelDiff = 20
GearTable(3)\SpeedUp = 0.1 : GearTable(3)\SlowDown = 0.1
GearTable(4)\AccelUp = 0.2 : GearTable(4)\GearUpAt = 65
GearTable(4)\AccelDown = 0.2 : GearTable(4)\GearDownAt = 35
GearTable(4)\AccelBreak = 0.2 : GearTable(4)\AccelDiff = 20
GearTable(4)\SpeedUp = 0.1 : GearTable(4)\SlowDown = 0.1
GearTable(5)\AccelUp = 0.1 : GearTable(5)\GearUpAt = 70
GearTable(5)\AccelDown = 0.1 : GearTable(5)\GearDownAt = 45
GearTable(5)\AccelBreak = 0.1 : GearTable(5)\AccelDiff = 20
GearTable(5)\SpeedUp = 0.1 : GearTable(5)\SlowDown = 0.1
Procedure Transmission(accel)
Shared Motor
If accel = #Accelerate
If Rpm >= GearTable(Gear)\GearUpAt And Gear < 5 ; Accelerate - Gear Up
Rpm - GearTable(Gear)\AccelDiff
Gear + 1
Else
Rpm + GearTable(Gear)\AccelUp ; Accelerate
Mph + GearTable(Gear)\SpeedUp ; Speed up
If Gear = 5 And Rpm > 50 : Rpm = 50 : EndIf
If Gear = 5 And Mph > 30 : Mph = 30 : EndIf
EndIf
ElseIf accel = #Brake
Rpm - GearTable(Gear)\AccelBreak ; Brake
Mph - GearTable(Gear)\SlowDown ; Slow down
If Rpm <= GearTable(Gear)\GearDownAt And Gear > 1 ; Brake - Gear Down
Rpm + GearTable(Gear)\AccelDiff
Gear - 1
ElseIf Gear = 1
If Rpm < #Minimum_Rpm : Rpm = #Minimum_Rpm : EndIf
If Mph < #Minimum_Mph : Mph = #Minimum_Mph : EndIf
EndIf
Else
Rpm - GearTable(Gear)\AccelDown ; Slow Down
Mph - GearTable(Gear)\SlowDown
If Rpm <= GearTable(Gear)\GearDownAt And Gear > 1 ; Slow Down - Gear Down
Rpm + GearTable(Gear)\AccelDiff
Gear - 1
ElseIf Gear = 1 ; Slow Down - 1st Gear minimum Rpm
If Rpm < #Minimum_Rpm : Rpm = #Minimum_Rpm : EndIf
If Mph < #Minimum_Mph : Mph = #Minimum_Mph : EndIf
EndIf
EndIf
; Change the engine freq acording to Rpm
SoundFrequency(Motor,Rpm*400)
; Return Mph
ProcedureReturn Mph
EndProcedure
I have been sorting out the transmission.