diff --git a/src/draw.c b/src/draw.c
index c6af613f..f5bb1c9e 100644
--- a/src/draw.c
+++ b/src/draw.c
@@ -930,10 +930,14 @@ static void drawgrid()
   double mult;
   #if DRAW_ALL_CAIRO==0
   int i=0;
+  const char *psize_ptr;
   int big_gr = tclgetboolvar("big_grid_points");
+  int grid_point_size = -1;
   char dash_arr[2];
   int axes = tclgetboolvar("draw_grid_axes");
  
+  psize_ptr = tclgetvar("grid_point_size"); 
+  if(psize_ptr[0]) grid_point_size = atoi(psize_ptr);
   if(axes) {
     dash_arr[0] = dash_arr[1] = (char) 3;
     XSetDashes(display, xctx->gc[GRIDLAYER], 0, dash_arr, 1);
@@ -959,9 +963,8 @@ static void drawgrid()
     delta = delta * pow(CADGRIDMULTIPLY, mult);
   }
 
-  /* while(delta < CADGRIDTHRESHOLD) delta *= CADGRIDMULTIPLY; */  /* <-- to be improved,but works */
-
 
+  /* ************************ Draw axes ****************** */
   #if DRAW_ALL_CAIRO==1
   xax =floor(xctx->xorigin*xctx->mooz) + 0.5; yax = floor(xctx->yorigin*xctx->mooz) + 0.5;
   #else
@@ -1007,26 +1010,36 @@ static void drawgrid()
       #endif
     }
   }
+  /* ************************ /Draw axes ****************** */
+
   #if DRAW_ALL_CAIRO==0
-  if(axes) {
+  if(grid_point_size != -1) {
+      XSetLineAttributes (display, xctx->gc[GRIDLAYER],
+          grid_point_size, LineSolid, LINECAP, LINEJOIN);
+  } else if(!big_gr) {
+    XSetLineAttributes (display, xctx->gc[GRIDLAYER],
+        0, LineSolid, LINECAP, LINEJOIN);
+  } else {
     XSetLineAttributes (display, xctx->gc[GRIDLAYER],
         XLINEWIDTH(xctx->lw), LineSolid, LINECAP, LINEJOIN);
   }
   #endif
 
+  if(grid_point_size >= 0) big_gr = 1;
+
   tmp = floor((xctx->areay1+1)/delta)*delta-fmod(-xctx->yorigin*xctx->mooz, delta);
   for(x=floor((xctx->areax1+1)/delta)*delta-fmod(-xctx->xorigin*xctx->mooz, delta); x < xctx->areax2; x += delta) {
     xx = x;
     #if DRAW_ALL_CAIRO==1
     xx = floor(x) + 0.5;
     #endif
-    if((int)xx == (int)xax) continue;
+    if(axes && (int)xx == (int)xax) continue;
     for(y=tmp; y < xctx->areay2; y += delta) {
       yy = y;
       #if DRAW_ALL_CAIRO==1
       yy = floor(y) + 0.5;
       #endif
-      if((int)yy == (int)yax) continue;
+      if(axes && (int)yy == (int)yax) continue;
       #if DRAW_ALL_CAIRO==1
       if(xctx->draw_window) {
         cairo_move_to(xctx->cairo_ctx, xx, yy) ;
@@ -1087,6 +1100,12 @@ static void drawgrid()
   if(xctx->draw_pixmap) cairo_stroke(xctx->cairo_save_ctx);
   if(xctx->draw_window) cairo_stroke(xctx->cairo_ctx);
   #endif
+
+  #if DRAW_ALL_CAIRO==0
+  XSetLineAttributes (display, xctx->gc[GRIDLAYER],
+      XLINEWIDTH(xctx->lw), LineSolid, LINECAP, LINEJOIN);
+  #endif
+
 }
 
 #if !defined(__unix__) && HAS_CAIRO==1
diff --git a/src/xschem.tcl b/src/xschem.tcl
index d0803710..02a702fd 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -7863,42 +7863,34 @@ proc no_open_dialogs {} {
 ## "file_dialog_*" only one load_file_dialog window is allowed
 
 set tctx::global_list {
-  PDK_ROOT PDK SKYWATER_MODELS SKYWATER_STDCELLS 
-  INITIALINSTDIR INITIALLOADDIR INITIALPROPDIR INITIALTEXTDIR XSCHEM_LIBRARY_PATH
-  add_all_windows_drives auto_hilight auto_hilight_graph_nodes autofocus_mainwindow
-  autotrim_wires bespice_listen_port big_grid_points bus_replacement_char cadgrid cadlayers
-  cadsnap cairo_font_name cairo_font_scale change_lw color_ps tctx::colors compare_sch constr_mv
-  copy_cell crosshair_layer crosshair_size cursor_2_hook custom_label_prefix custom_token
-  dark_colors dark_colorscheme dark_gui_colorscheme delay_flag
-  dim_bg dim_value disable_unique_names do_all_inst draw_crosshair
-  draw_grid draw_grid_axes draw_window edit_prop_pos edit_prop_size
-  edit_symbol_prop_new_sel editprop_sympath en_hilight_conn_inst enable_dim_bg enable_stretch
-  enter_text_default_geometry filetmp fix_broken_tiled_fill flat_netlist fullscreen
-  gaw_fd gaw_tcp_address graph_autoload graph_bus
-  graph_change_done graph_digital graph_dialog_default_geometry 
-  graph_legend graph_linewidth_mult graph_logx
-  graph_logy graph_private_cursor graph_rainbow graph_schname graph_sel_color graph_sel_wave
-  graph_selected graph_sort graph_unlocked graph_use_ctrl_key
-  hide_empty_graphs hide_symbols tctx::hsize
-  incr_hilight incremental_select infix_interface infowindow_text intuitive_interface 
-  keep_symbols launcher_default_program
-  light_colors line_width live_cursor2_backannotate local_netlist_dir lvs_ignore
-  lvs_netlist measure_text netlist_dir netlist_show netlist_type no_ask_save
-  no_change_attrs nolist_libs noprint_libs old_selected_tok only_probes path pathlist
-  persistent_command preserve_unchanged_attrs prev_symbol ps_colors ps_paper_size rainbow_colors
-  tctx::rcode recentfile
-  retval retval_orig rotated_text search_case search_exact search_found search_schematic
-  search_select search_value select_touch selected_tok show_hidden_texts show_infowindow
-  show_infowindow_after_netlist
-  simconf_default_geometry simconf_vpos simulate_bg spiceprefix split_files svg_colors
-  svg_font_name sym_txt symbol symbol_width tabstop tclcmd_txt tclstop text_line_default_geometry
-  text_replace_selection text_tabs_setting textwindow_fileid textwindow_filename textwindow_w
-  toolbar_horiz toolbar_list
-  toolbar_visible top_is_subckt transparent_svg undo_type use_lab_wire unselect_partial_sel_wires
-  use_label_prefix use_tclreadline
-  user_wants_copy_cell verilog_2001 verilog_bitblast viewdata_fileid viewdata_filename viewdata_w
-  tctx::vsize xschem_libs xschem_listen_port zoom_full_center orthogonal_wiring snap_cursor
-  snap_cursor_size cadence_compat use_cursor_for_selection
+ INITIALINSTDIR INITIALLOADDIR INITIALPROPDIR INITIALTEXTDIR PDK PDK_ROOT SKYWATER_MODELS
+ SKYWATER_STDCELLS XSCHEM_LIBRARY_PATH add_all_windows_drives auto_hilight
+ auto_hilight_graph_nodes autofocus_mainwindow autotrim_wires bespice_listen_port big_grid_points
+ bus_replacement_char cadence_compat cadgrid cadlayers cadsnap cairo_font_name cairo_font_scale
+ change_lw color_ps compare_sch constr_mv copy_cell crosshair_layer crosshair_size cursor_2_hook
+ custom_label_prefix custom_token dark_colors dark_colorscheme dark_gui_colorscheme delay_flag
+ dim_bg dim_value disable_unique_names do_all_inst draw_crosshair draw_grid draw_grid_axes
+ draw_window edit_prop_pos edit_prop_size edit_symbol_prop_new_sel editprop_sympath
+ en_hilight_conn_inst enable_dim_bg enable_stretch enter_text_default_geometry filetmp
+ fix_broken_tiled_fill flat_netlist fullscreen gaw_fd gaw_tcp_address graph_autoload graph_bus
+ graph_change_done graph_dialog_default_geometry graph_digital graph_legend graph_linewidth_mult
+ graph_logx graph_logy graph_private_cursor graph_rainbow graph_schname graph_sel_color
+ graph_sel_wave graph_selected graph_sort graph_unlocked graph_use_ctrl_key hide_empty_graphs
+ hide_symbols incr_hilight incremental_select infix_interface infowindow_text intuitive_interface
+ keep_symbols launcher_default_program light_colors line_width live_cursor2_backannotate
+ local_netlist_dir lvs_ignore lvs_netlist measure_text netlist_dir netlist_show netlist_type
+ no_ask_save no_change_attrs nolist_libs noprint_libs old_selected_tok only_probes
+ orthogonal_wiring path pathlist persistent_command preserve_unchanged_attrs prev_symbol ps_colors
+ ps_paper_size rainbow_colors recentfile retval retval_orig rotated_text search_case search_exact
+ search_found search_schematic search_select search_value select_touch selected_tok
+ show_hidden_texts show_infowindow show_infowindow_after_netlist simconf_default_geometry
+ simconf_vpos simulate_bg snap_cursor snap_cursor_size spiceprefix split_files svg_colors
+ svg_font_name sym_txt symbol symbol_width tabstop tclcmd_txt tclstop tctx::colors tctx::hsize
+ tctx::rcode tctx::vsize text_line_default_geometry text_replace_selection text_tabs_setting
+ textwindow_fileid textwindow_filename textwindow_w toolbar_horiz toolbar_list toolbar_visible
+ top_is_subckt transparent_svg undo_type unselect_partial_sel_wires use_cursor_for_selection
+ use_lab_wire use_label_prefix use_tclreadline user_wants_copy_cell verilog_2001 verilog_bitblast
+ viewdata_fileid viewdata_filename viewdata_w xschem_libs xschem_listen_port zoom_full_center
 }
 
 ## list of global arrays to save/restore on context switching
@@ -8283,7 +8275,7 @@ proc load_raw {{type {}}} {
 
 proc build_widgets { {topwin {} } } {
   global XSCHEM_SHAREDIR tabbed_interface simulate_bg OS sim
-  global dark_gui_colorscheme draw_crosshair
+  global dark_gui_colorscheme draw_crosshair grid_point_size
   global recentfile color_ps transparent_svg menu_debug_var enable_stretch
   global netlist_show flat_netlist split_files compare_sch intuitive_interface
   global draw_grid big_grid_points sym_txt change_lw incr_hilight symbol_width
@@ -8621,6 +8613,10 @@ proc build_widgets { {topwin {} } } {
          set change_lw 0
          input_line "Enter linewidth (float):" "xschem line_width"
        }
+  $topwin.menubar.view add command -label "Set grid point size" \
+       -command {
+         input_line "Enter Grid point size (int or -1: $grid_point_size)" "set grid_point_size" $grid_point_size
+       }
   $topwin.menubar.view add checkbutton -label "Tabbed interface" -variable tabbed_interface \
     -selectcolor $selectcolor -command setup_tabbed_interface
 
@@ -9361,6 +9357,7 @@ set_ne select_touch 1
 
 set_ne draw_grid 1
 set_ne big_grid_points 0
+set_ne grid_point_size -1 ;# grid point size (>=0) or unspecified (-1)
 set_ne draw_grid_axes 1
 set_ne persistent_command 0
 set_ne intuitive_interface 1
diff --git a/src/xschemrc b/src/xschemrc
index b472f338..64304589 100644
--- a/src/xschemrc
+++ b/src/xschemrc
@@ -289,6 +289,9 @@
 #### enable to scale grid point size as done with lines at close zoom, default: 0
 # set big_grid_points 0
 
+#### explicitly set grid point size in pixels. Default: -1 (not set)
+# set grid_point_size 2
+
 #### enable drawing grid axes. Default: enabled (1)
 # set draw_grid_axes 1