is_vertex_line Function

public pure function is_vertex_line(line)

与えられた行がOBJ頂点行(v)かを判定する。

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: line

判定対象の1行文字列。

Return Value logical


Called by

proc~~is_vertex_line~~CalledByGraph proc~is_vertex_line is_vertex_line proc~parse_obj parse_obj proc~parse_obj->proc~is_vertex_line proc~scan_obj scan_obj proc~scan_obj->proc~is_vertex_line proc~load_obj_mesh load_obj_mesh proc~load_obj_mesh->proc~parse_obj proc~load_obj_mesh->proc~scan_obj proc~build_mesh_from_config build_mesh_from_config proc~build_mesh_from_config->proc~load_obj_mesh proc~load_or_init_run_state load_or_init_run_state proc~load_or_init_run_state->proc~build_mesh_from_config program~main main program~main->proc~load_or_init_run_state

Source Code

  logical pure function is_vertex_line(line)
    character(len=*), intent(in) :: line
    character(:), allocatable :: adj

    adj = adjustl(line)
    is_vertex_line = (len_trim(adj) > 1) .and. (adj(1:2) == 'v ')
  end function is_vertex_line