Rev 3458 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 3458 | Rev 3466 | ||
|---|---|---|---|
| Line 30... | Line 30... | ||
| 30 | } |
30 | } |
| 31 | page_links[j] = 0x00; |
31 | page_links[j] = 0x00; |
| 32 | strcpy(#URL, #page_links+strrchr(#page_links, '|')); |
32 | strcpy(#URL, #page_links+strrchr(#page_links, '|')); |
| 33 | } |
33 | } |
| 34 | 34 | ||
| 35 | - | ||
| 36 | //Ó íàñ íåò íàêëîííûõ øðèôòîâ, ïîýòîìó äåëàåì êîñòûëü èç |
- | |
| 37 | //ïàëî÷åê äëÿ ìîðîæåíîãî è æåâàòåëüíîé ðåçèíêè: |
- | |
| 38 | //Ñíèìàåì îáëàñòü ýêðàíà è âûâîäèì å¸ îáðàòíî ïîëîñêàìè ñî ñìåùåíèåì, |
- | |
| 39 | //÷òî äà¸ò ïåðåêîñ êàðòèíêè |
- | |
| 40 | //Ïðè íàëè÷èè ôîíà è ò.ï. ïðîÿâèòñÿ âñÿ êîñòûëüíîñòü ðåøåíèÿ :) |
- | |
| 41 | - | ||
| 42 | inline void Skew(dword x,y,w,h) |
- | |
| 43 | { |
- | |
| 44 | dword italic_buf; |
- | |
| 45 | int tile_height=2, |
- | |
| 46 | shift=-2, |
- | |
| 47 | i, skin_height; |
- | |
| 48 | - | ||
| 49 | italic_buf = mem_Alloc(w*h*3); |
- | |
| 50 | skin_height = GetSkinHeight(); |
- | |
| 51 | CopyScreen(italic_buf, x+Form.left+2, y+Form.top+skin_height, w, h); |
- | |
| 52 | - | ||
| 53 | FOR (i=0;i*tile_height |
- | |
| 54 | _PutImage(x+shift-i+1,i*tile_height+y, w,tile_height, w*3*tile_height*i+italic_buf); |
- | |
| 55 | - | ||
| 56 | mem_Free(italic_buf); |
- | |
| 57 | } |
- | |
| 58 | > |
- | |