Update digestR.R

SplashScreen Update

Author: DDesmonts

R/digestR.R

@@ -1339,26 +1339,56 @@ popupGui <- function(dev){
   #colMain <- '#FF5733'  # A warm main color
   #colBack <- '#2E86C1'  # A contrasting background color
 
-  # Letter positions and colors
-  letters <- c('D', 'I', 'G', 'E', 'S', 'T', 'R')
-  colors <- c(colMain, colMain, colMain, colMain, colMain, colMain,colBack)
-  cex_values <- c(7, 7, 7, 7, 7, 7, 6.5)
-  offset_values <- c(0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5)
+  # # Letter positions and colors
+  # letters <- c('D', 'I', 'G', 'E', 'S', 'T', 'R')
+  # colors <- c(colMain, colMain, colMain, colMain, colMain, colMain,colBack)
+  # cex_values <- c(7, 7, 7, 7, 7, 7, 6.5)
+  # offset_values <- c(0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5)
+  
+  # # Loop to create and position letters
+  # for (i in 1:length(letters)) {
+  #   text(-0.65 + (i-1)*0.25, 0.2, letters[i], col=colors[i], cex=cex_values[i], pos=3, offset=offset_values[i])
+  # }
 
-  # Loop to create and position letters
-  for (i in 1:length(letters)) {
-    text(-0.65 + (i-1)*0.25, 0.2, letters[i], col=colors[i], cex=cex_values[i], pos=3, offset=offset_values[i])
-  }
+  # # # Add a decorative 'R' in a different color
+  # # text(0.70, 0.2, 'R', col='#E74C3C', cex=5.5, pos=3, offset=0.4)
 
-  # Add a decorative 'R' in a different color
-  text(0.70, 0.2, 'R', col='#E74C3C', cex=5.5, pos=3, offset=0.4)
+  # # # Other text elements (modify as needed)
+  # # text(0, 0.01, 'Digestomics Analyzer', col=colMain, cex=2.5, font=1)
+  # # text(0, -0.15, paste('version 1.0.0', pkgVar$version), col=colMain, font=3)
+  # # text(0, -0.25, 'gp() - Generate New Proteome', col=colMain)
+  # # text(0, -0.35, 'pm() - Process Mascot files', col=colMain)
+  # text(0, -0.45, 'fo() - Open *.dcf files', col=colMain)
+
+# Set up background color gradient with an even darker shade
+  plot(0, 0, type='n', xlab='', ylab='', axes=FALSE)
+  rect(-2, -2, 2, 2, col=rgb(0.05, 0.2, 0.4, alpha=0.9), border=NA)  # Darker blue background
 
-  # Other text elements (modify as needed)
-  text(0, 0.08, 'Digestomics Analyzer', col=colMain, cex=2.5, font=1)
-  text(0, -0.15, paste('version 1.0.0', pkgVar$version), col=colMain, font=3)
-  text(0, -0.25, 'gp() - Generate New Proteome', col=colMain)
-  text(0, -0.35, 'pm() - Process Mascot files', col=colMain)
-  text(0, -0.45, 'fo() - Open *.dcf files', col=colMain)
+  # Letter positions and modern color scheme
+  letters <- c('D', 'I', 'G', 'E', 'S', 'T', 'R')
+  colors <- rep('#b4d0f3', 7)
+  cex_values <- c(6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6)  # Slightly smaller 'R'
+  offset_values <- c(0.3, 0.3, 0.3, 0.3, 0.3, 0.3, 0.2)
+
+  # Add shadow effect to the letters for depth
+  shadow_col <- '#00000050'  # Semi-transparent black
+  for (i in 1:length(letters)) {
+    text(-0.75 + (i-1)*0.25 + 0.02, 0.2 - 0.02, letters[i], col=shadow_col, cex=cex_values[i], pos=3)
+    text(-0.75 + (i-1)*0.25, 0.2, letters[i], col=colors[i], cex=cex_values[i], pos=3)
+  }
+
+  # Decorative 'R' with shadow
+  text(0.70 + 0.02, 0.2 - 0.02, 'R', col=shadow_col, cex=5.5, pos=3)
+  text(0.70, 0.2, 'R', col='#E74C3C', cex=5.5, pos=3)
+
+  # Modern titles with a larger font
+  text(0, 0.02, 'Digestomics Analyzer', col='#ffffff', cex=3, font=2)
+  text(0, -0.15, paste('version 1.0.0', pkgVar$version), col='#b4d0f3', font=3)
+
+  # Clean, minimal function list with better spacing
+  text(0, -0.25, 'gp() - Generate New Proteome', col='#ffffff', cex=1.2)
+  text(0, -0.32, 'pm() - Process Mascot files', col='#ffffff', cex=1.2)
+  text(0, -0.39, 'fo() - Open *.dcf files', col='#ffffff', cex=1.2)
 
   # Force the graphics device to refresh
   dev.flush()