mirror of
				https://github.com/SoftFever/OrcaSlicer.git
				synced 2025-11-02 20:51:23 -07:00 
			
		
		
		
	Bugfix: flow wasn't adjusted for first layer according to its height setting. #182
This commit is contained in:
		
							parent
							
								
									4a9672bd88
								
							
						
					
					
						commit
						eb33c03926
					
				
					 2 changed files with 8 additions and 1 deletions
				
			
		| 
						 | 
					@ -128,7 +128,7 @@ sub extrude_path {
 | 
				
			||||||
    
 | 
					    
 | 
				
			||||||
    # calculate extrusion length per distance unit
 | 
					    # calculate extrusion length per distance unit
 | 
				
			||||||
    my $s = $path->flow_spacing || $Slic3r::flow_spacing;
 | 
					    my $s = $path->flow_spacing || $Slic3r::flow_spacing;
 | 
				
			||||||
    my $h = $path->depth_layers * $Slic3r::layer_height;
 | 
					    my $h = $path->depth_layers * $self->layer->height;
 | 
				
			||||||
    my $w = ($s - $Slic3r::min_flow_spacing * $Slic3r::overlap_factor) / (1 - $Slic3r::overlap_factor);
 | 
					    my $w = ($s - $Slic3r::min_flow_spacing * $Slic3r::overlap_factor) / (1 - $Slic3r::overlap_factor);
 | 
				
			||||||
    
 | 
					    
 | 
				
			||||||
    my $area;
 | 
					    my $area;
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
| 
						 | 
					@ -91,6 +91,13 @@ sub print_z {
 | 
				
			||||||
        + ($self->id * $Slic3r::layer_height)) / $Slic3r::resolution;
 | 
					        + ($self->id * $Slic3r::layer_height)) / $Slic3r::resolution;
 | 
				
			||||||
}
 | 
					}
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					sub height {
 | 
				
			||||||
 | 
					    my $self = shift;
 | 
				
			||||||
 | 
					    return $self->id == 0
 | 
				
			||||||
 | 
					        ? ($Slic3r::layer_height * $Slic3r::first_layer_height_ratio)
 | 
				
			||||||
 | 
					        : $Slic3r::layer_height;
 | 
				
			||||||
 | 
					}
 | 
				
			||||||
 | 
					
 | 
				
			||||||
sub add_line {
 | 
					sub add_line {
 | 
				
			||||||
    my $self = shift;
 | 
					    my $self = shift;
 | 
				
			||||||
    my ($line) = @_;
 | 
					    my ($line) = @_;
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Loading…
	
	Add table
		Add a link
		
	
		Reference in a new issue