@@ -562,14 +562,14 @@ defmodule Scenic.Script do
562562 fill_stroke_flags :: fill_stroke ( )
563563 ) :: ops :: t ( )
564564 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 ] )
569569
570570 [
571571 { :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 } }
573573 | ops
574574 ]
575575 end
0 commit comments