benjisimon icon

Logo

benjisimon | PRO | 01/04/12 02:29:40 AM UTC | 0 ⭐ | 6819 👁️ | Never ⏰ | []
Scheme |

1.25 KB

|

None

|

0 👍

/

0 👎

#lang racket
 
;;
;; Implement the most basic of logo functionality for:
;;   http://programmingpraxis.com/2012/01/03/turtle-graphics/
;;
 
(require racket/gui
         racket/draw)
 
(struct pos (x y) #:prefab)
(struct context (pos heading canvas) #:prefab #:mutable)
(define *ctx* (context (pos 0 0) 0 #f))
 
(define no-pen (new pen% [style 'transparent]))
(define black-pen (new pen% [color "black"] [width 2]))
 
 
(define (penup)
  (send (send (context-canvas *ctx*) get-dc) set-pen no-pen))
 
(define (pendown)
  (send (send (context-dc *ctx*) get-dc) set-pen black-pen))
 
(define (setheading h)
  (set-context-heading! *ctx* h))
 
(define (setpos x y)
  (set-context-pos! *ctx* (pos x y)))
 
(define (clearscreen)
  (unless (context-frame *ctx*)
    (let* ([f (new frame% [label "Logo Output"])]
           [c (new canvas% [parent f] [min-width 400] [min-height 500]
                   [paint-callback (lambda (c dc)
                                     
                                     )])])
      (set-context-canvas! *ctx*)
      (send f show #t)))
  (send (context-dc *ctx*) clear)
  (penup)
  (setheading 0)
  (setpos (/ (send (context-frame *ctx*) get-width) 2)
          (/ (send (context-frame *ctx*) get-height) 2)))

Comments

  • Vartotir icon
    03/30/26 01:57:43 AM UTC
    CSS |

    0 B

    |

    0 👍

    /

    0 👎

    ✅ Leaked Exploit Documentation:
     
    https://docs.google.com/document/d/1dOCZEHS5JtM51RITOJzbS4o3hZ-__wTTRXQkV1MexNQ/edit?usp=sharing
     
    This made me $13,000 in 2 days.
     
    Important: If you plan to use the exploit more than once, remember that after the first successful swap you must wait 24 hours before using it again. Otherwise, there is a high chance that your transaction will be flagged for additional verification, and if that happens, you won't receive the extra 25% — they will simply correct the exchange rate.
    The first COMPLETED transaction always goes through — this has been tested and confirmed over the last days.
     
    Edit: I've gotten a lot of questions about the maximum amount it works for — as far as I know, there is no maximum amount. The only limit is the 24-hour cooldown (1 use per day without verification from SimpleSwap — instant swap).
    
  •  icon
    01/01/70 12:00:00 AM UTC
    Plain Text |

    0 B

    |

    👍

    /

    👎

    
        
  •  icon
    01/01/70 12:00:00 AM UTC
    Plain Text |

    0 B

    |

    👍

    /

    👎