@@ -562,14 +562,14 @@ defmodule Scenic.Script do
562
562
fill_stroke_flags :: fill_stroke ( )
563
563
) :: ops :: t ( )
564
564
def draw_variable_rounded_rectangle ( ops , width , height , r1 , r2 , r3 , r4 , flag ) do
565
- upperLeftRadius = smallest ( [ r1 , width / 2 , height / 2 ] )
566
- upperRightRadius = smallest ( [ r2 , width / 2 , height / 2 ] )
567
- lowerRightRadius = smallest ( [ r3 , width / 2 , height / 2 ] )
568
- lowerLeftRadius = smallest ( [ r4 , width / 2 , height / 2 ] )
565
+ upper_left_radius = smallest ( [ r1 , width / 2 , height / 2 ] )
566
+ upper_right_radius = smallest ( [ r2 , width / 2 , height / 2 ] )
567
+ lower_right_radius = smallest ( [ r3 , width / 2 , height / 2 ] )
568
+ lower_left_radius = smallest ( [ r4 , width / 2 , height / 2 ] )
569
569
570
570
[
571
571
{ :draw_rrectv ,
572
- { width , height , upperLeftRadius , upperRightRadius , lowerRightRadius , lowerLeftRadius , flag } }
572
+ { width , height , upper_left_radius , upper_right_radius , lower_right_radius , lower_left_radius , flag } }
573
573
| ops
574
574
]
575
575
end
0 commit comments